Outlook VBA .Display does not display; .Send works fine.

[georgiboy]

Hi there,

Have you tried moving the .Display part up the chain, for example displaying the mail before adding the details as below:

Sub SendNew(Item As Outlook.MailItem)

    Dim objMsg As MailItem
    Set objMsg = Application.CreateItemFromTemplate("C:\Users\McRandom\Desktop\test.oft")
    NL = "<br/>"
    With objMsg
        .Display
        .HTMLBody = .HTMLBody & NL & "- - - - - - - - - - - - - - - - - - - - " & NL & "." _
                    & NL & "." & "From:  " & Item.SenderEmailAddress & NL & "." & NL & "." _
                    & NL & Item.Subject & NL & "." & NL & "." & Item.HTMLBody
        .Subject = "FW: " & Item.Subject
        .Recipients.Add "me AT test.com"        'Send to selected persong
    End With
    Set objMsg = Nothing
End Sub

Or adding a .Save line in before the .Display as below:

Sub SendNew(Item As Outlook.MailItem)

    Dim objMsg As MailItem
    Set objMsg = Application.CreateItemFromTemplate("C:\Users\McRandom\Desktop\test.oft")
    NL = "<br/>"
    With objMsg
        .Save
        .Display
        .HTMLBody = .HTMLBody & NL & "- - - - - - - - - - - - - - - - - - - - " & NL & "." _
                    & NL & "." & "From:  " & Item.SenderEmailAddress & NL & "." & NL & "." _
                    & NL & Item.Subject & NL & "." & NL & "." & Item.HTMLBody
        .Subject = "FW: " & Item.Subject
        .Recipients.Add "me AT test.com"        'Send to selected persong
    End With
    Set objMsg = Nothing
End Sub

Hope this helps