Can't import body of email since Office upgrade

[sharky12345]

I have been using a macro to import the body of an Outlook message from Excel, this has worked flawlessly in Officer 2013. I have recently upgraded to Office 2016 and now it won't work.

The routine is able to read Outlook fine, (other parts of the module count how many emails have a certain subject line), but it fails on the line which tries to read the email body. For info, I have checked the Outlook settings and they are identical to what was in 2013.

My code:

Dim objNS As Outlook.Namespace
Dim objFolder As Outlook.MAPIFolder
Set objNS = GetNamespace("MAPI")
Application.ScreenUpdating = False

Set objFolder = objNS.Folders("DEMAND PROJECT Mailbox").Folders("Inbox")
Set DestFolder = objNS.Folders("DEMAND PROJECT Mailbox").Folders("Emails")

For Each Item In objFolder.Items

If InStr(Item.Subject, "Demand Data") Then
Body = Item.Body

and this is the line that fails:

Body = Item.Body

Has anyone experienced this and can point me towards a solution?

 

[Zack Barresse]

Works fine for me. What is 'Body' variable declared as? Also, as a general note, it's not a good idea to just loop through all emails. While you can, you shouldn't. Your code will be fairly inefficient. Instead, look at the Restrict method to basically filter the email objects to a collection, then peruse that. Here is more info on Restrict.

 

[sharky12345]

Thanks Zack - I've looked at the Restrict method and that does what I need just fine, so problem sorted. Many thanks!