Running Outlook 2003 SP2 on Win XP SP2/ Exchange Server 2003

We receive product review requests via email to an Exchange account. Requests are validated manually for certain criteria, which are found within the email. I'm trying to automate that validation process by parsing some dates and numbers in the email. This code is working OK in test, which I'm doing in a public folder where I copied all of the emails to. When I run the code in the mailbox it errors on the final line below:

Sub ValidateRequests()
Dim objApp As Outlook.Application
Dim objFolder As Outlook.MAPIFolder
Dim objItem As Object
Dim strMsg As String

Set objApp = CreateObject("Outlook.Application")
Set objFolder = objApp.ActiveExplorer.CurrentFolder

For Each objItem In objFolder.Items
strMsg = objItem.Body

The error is:

Thanks for any ideas.

Bill Le May

What type of Object is being retrieved? Look for objItem.Class or something
like TypeName(objItem) or get the MessageClass of the object to see what's
going on.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Bill" wrote in message
...
Running Outlook 2003 SP2 on Win XP SP2/ Exchange Server 2003

We receive product review requests via email to an Exchange account.
Requests are validated manually for certain criteria, which are found within
the email. I'm trying to automate that validation process by parsing some
dates and numbers in the email. This code is working OK in test, which I'm
doing in a public folder where I copied all of the emails to. When I run
the code in the mailbox it errors on the final line below:

Sub ValidateRequests()
Dim objApp As Outlook.Application
Dim objFolder As Outlook.MAPIFolder
Dim objItem As Object
Dim strMsg As String

Set objApp = CreateObject("Outlook.Application")
Set objFolder = objApp.ActiveExplorer.CurrentFolder

For Each objItem In objFolder.Items
strMsg = objItem.Body

The error is:

Thanks for any ideas.

Bill Le May

A Mail item is being retrieved.

I Googled this error message and got one hit in ...outlook.program_vba, where, in retrospect, I should have posted this question in the first place. The solution there was a permissions issue, which I do not believe to be the case here. I had already given myself godlike privileges to the email box in question. To verify this, I opened a message, performed an Edit Message and successfully saved the changed message.

"Ken Slovak - [MVP - Outlook]" wrote in message ...
What type of Object is being retrieved? Look for objItem.Class or something like TypeName(objItem) or get the MessageClass of the object to see what's going on.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Bill" wrote in message ...
Running Outlook 2003 SP2 on Win XP SP2/ Exchange Server 2003

We receive product review requests via email to an Exchange account. Requests are validated manually for certain criteria, which are found within the email. I'm trying to automate that validation process by parsing some dates and numbers in the email. This code is working OK in test, which I'm doing in a public folder where I copied all of the emails to. When I run the code in the mailbox it errors on the final line below:

Sub ValidateRequests()
Dim objApp As Outlook.Application
Dim objFolder As Outlook.MAPIFolder
Dim objItem As Object
Dim strMsg As String

Set objApp = CreateObject("Outlook.Application")
Set objFolder = objApp.ActiveExplorer.CurrentFolder

For Each objItem In objFolder.Items
strMsg = objItem.Body

The error is:

Thanks for any ideas.

Bill Le May

Well, I don't have any answers for you then. Are you positive that you are
getting a valid MAPIFolder object and Items collection? Can you retrieve the
Items.Count?

It isn't possible that the item could be encrypted or signed is it?

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Bill" wrote in message
...
A Mail item is being retrieved.

I Googled this error message and got one hit in ...outlook.program_vba,
where, in retrospect, I should have posted this question in the first place.
The solution there was a permissions issue, which I do not believe to be the
case here. I had already given myself godlike privileges to the email box in
question. To verify this, I opened a message, performed an Edit Message and
successfully saved the changed message.

The collection appears to be valid.



The message is a plain text email generated by our website.
"Ken Slovak - [MVP - Outlook]" wrote in message ...
Well, I don't have any answers for you then. Are you positive that you are getting a valid MAPIFolder object and Items collection? Can you retrieve the Items.Count?

It isn't possible that the item could be encrypted or signed is it?

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Bill" wrote in message ...
A Mail item is being retrieved.

I Googled this error message and got one hit in ....outlook.program_vba, where, in retrospect, I should have posted this question in the first place. The solution there was a permissions issue, which I do not believe to be the case here. I had already given myself godlike privileges to the email box in question. To verify this, I opened a message, performed an Edit Message and successfully saved the changed message.

What's the exact error you get, I don't believe you posted it.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Bill" wrote in message
...
The collection appears to be valid.



The message is a plain text email generated by our website.