Open last layer in forwarded message (O2k) (O2k)

Topic

New Reply

I get these messages that have 5 or more layers of forwarded messages and I have to keep clicking on the attachment icon to finally get to the last layer to read the actual message. Is there a way or an add-on that will allow me to just read the last layer with the heart of the message?

Reply | Quote

Replies

Bet that most are from AOL email adresses.

DaveA I am so far behind, I think I am First
Genealogy....confusing the dead and annoying the living

Reply | Quote

Perhaps there’s an add-in that will do this? Outlook itself does not seem to have this option, and its “object model” for programming macros doesn’t work very well with message-type attachments (so there isn’t a quick way to write a macro to do it).

Reply | Quote

Remember this thread? The purpose was different, but maybe the code could be recycled.

Reply | Quote

I don’t think we actually got code to work. But since then, I downloaded the Redemption library from http://www.dimastr.com/redemption/%5B/url%5D. So you can imagine nesting code like the following to extract and then, if appropriate, compile all of the messages together:

Sub PopAttachBody()
‘ Proof of concept, accessing body of embedded message using Redemption
Dim outMsg As MailItem, msg As New Redemption.SafeMailItem
Dim att As Redemption.Attachment
Set outMsg = ActiveInspector.CurrentItem
msg.Item = outMsg
For Each att In msg.Attachments
If att.Type = 5 Then
MsgBox att.EmbeddedMsg.Body
End If
Next
If Not (att Is Nothing) Then Set att = Nothing
If Not (msg Is Nothing) Then Set msg = Nothing
If Not (outMsg Is Nothing) Then Set outMsg = Nothing
End Sub

Reply | Quote

I don’t think we actually got code to work. But since then, I downloaded the Redemption library from http://www.dimastr.com/redemption/%5B/url%5D. So you can imagine nesting code like the following to extract and then, if appropriate, compile all of the messages together:

Sub PopAttachBody()
‘ Proof of concept, accessing body of embedded message using Redemption
Dim outMsg As MailItem, msg As New Redemption.SafeMailItem
Dim att As Redemption.Attachment
Set outMsg = ActiveInspector.CurrentItem
msg.Item = outMsg
For Each att In msg.Attachments
If att.Type = 5 Then
MsgBox att.EmbeddedMsg.Body
End If
Next
If Not (att Is Nothing) Then Set att = Nothing
If Not (msg Is Nothing) Then Set msg = Nothing
If Not (outMsg Is Nothing) Then Set outMsg = Nothing
End Sub

Reply | Quote

Remember this thread? The purpose was different, but maybe the code could be recycled.

Reply | Quote