Код (обновил следующие предложения здесь - спасибо) показан ниже. Он НЕ отображает сообщение электронной почты. Единственный вывод - «Before.Display», и затем он переходит к следующему сообщению.
Sub SendNewNunn(Item As Outlook.MailItem)
Dim objMsg As MailItem
Set objMsg = Application.CreateItemFromTemplate("C:\Users\Rincewind\AppData\Roaming\Microsoft\Templates\Test.oft")
NL = "<br/>"
With objMsg
.HTMLBody = .HTMLBody & NL & "- - - - - - - - - - - - - - - - - - - - " & NL & "." _
& NL & "." & "From: " & Item.SenderEmailAddress & NL & "." & NL & "." _
& NL & Item.Subject & NL & "." & NL & "." & Item.HTMLBody
.Subject = "FW: " & Item.Subject
.Recipients.Add Item.SenderEmailAddress 'Make sure original sender gets it as well
.Recipients.Add "me@test.com" 'Send to selected persong
End With
MsgBox "Before .display"
objMsg.Display
MsgBox "After .display"
' Answer = MsgBox("sendNewNunn. Send Message?", vbQuestion + vbYesNo + vbDefaultButton2)
' If Answer = vbYes Then objMsg.Send
End Sub