Results 1 to 5 of 5
  1. #1
    Lounger
    Join Date
    Jun 2002
    Location
    Michigan City, Indiana, USA
    Posts
    37
    Thanks
    0
    Thanked 0 Times in 0 Posts

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

    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?

  2. #2
    Super Moderator
    Join Date
    Dec 2000
    Location
    Renton, Washington, USA
    Posts
    12,560
    Thanks
    0
    Thanked 4 Times in 4 Posts

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

    Bet that most are from AOL email adresses.

    Now running HP Pavilion a6528p, with Win7 64 Bit OS.

  3. #3
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

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

    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).

  4. #4
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Salt Lake City, Utah, USA
    Posts
    9,508
    Thanks
    0
    Thanked 6 Times in 6 Posts

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

    Remember <!post=this,265503>this<!/post> thread? The purpose was different, but maybe the code could be recycled.
    -John ... I float in liquid gardens
    UTC -7ąDS

  5. #5
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

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

    I don't think we actually got code to work. But since then, I downloaded the Redemption library from http://www.dimastr.com/redemption/. 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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •