Outlook. How do I read the contents of attachments that are emails?

[uczmeg]

Hi,

We need to process emails that have been returned undeliverable to an Outlook folder.

We store a tag in the original email body with an ID I need.

Some returned emails contain the original message in the email body and stepping through a list of emails and processing the bodies to find the tag is easy enough.

However, in a majority of the returns the original email is an attachment containing the original email (.msg format).

Can anyone one help me work out how to open and scan the contents of that attachment?

I'm working in VB6 and the target Outlook will probably be a fairly recent one (certainly at least from Office 2000)


Thanks
Marc

 

[uczmeg]

Okay managed to solve it!

Basically you need to save the attachment as a file, and then open it as a Mailitem.

So, assuming there is an attachment and it is a msg file (checks not included in the example)

Dim oApp as Outlook.Application
Dim oMsg As Outlook.MailItem
Dim oMsg2 As Outlook.MailItem

'your code here to find the email messages you want in outlook

'save attachment
oMsg.Attachments.item(1).SaveAsFile App.Path & "temp.msg"

'open it as a new mail item
Set oMsg2 = oApp.CreateItemFromTemplate(App.Path & "temp.msg")

'now do whatever you want with it!
MsgBox oMsg2.Body