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