Forward incoming email with 4 embedded images in the body without original sender

[Diane Poremsky]

This code works here.... not a good video but it shows the flashing that can't be avoided using word object model to copy.

ETA: this is a slightly better video - I'm closing the incoming message right after the copy. And I'm showing the sent copy.

https://www.screencast.com/t/xxR2ec0HbO9

It works with closing the incoming message after the copy, but without the display in the new message, it doesn't send the message.

Sub SendTransfer(Item As Outlook.MailItem)
 
Dim objMsg As MailItem
   ' Add reference to Word library
    ' in VBA Editor, Tools, References
    Dim objWord As Word.Application
    Dim objInsp As Inspector
    Dim objDoc As Word.Document
    Dim objSel As Word.Selection
 
    On Error Resume Next
 
If Not Item Is Nothing Then
   If Item.Class = olMail Then
   Item.Display
       Set objInsp = Item.GetInspector
       If objInsp.EditorType = olEditorWord Then
           Set objDoc = objInsp.WordEditor
           Set objWord = objDoc.Application
           Set objSel = objWord.Selection
   With objSel
      'use wholestory to copy the entire message body
        .WholeStory
        .Copy
  End With
Item.Close olDiscard
       End If
   End If
End If
 
Set objMsg = Application.CreateItem(olMailItem)


 Set objInsp = objMsg.GetInspector
 Set objDoc = objInsp.WordEditor
 Set objSel = objDoc.Windows(1).Selection


With objMsg
    .Subject = "Transfers " & Item.Subject
    .Recipients.Add "diane@contrarytech.com"
     objSel.PasteAndFormat (wdFormatOriginalFormatting)
    .Display
    .Send
End With




End Sub

 

[fuz]

Hi Diane,
After adding the item.Close olDiscard, the compile error went away, and a blank email sent out. It didn't copy the content of the incoming email.
I will try your last code tomorrow.

 

[fuz]

Hi Diane,
The script runs great except the email subject didn't change to what I specify in the script. It goes out using the same subject from the incoming email. I also wonder will this script paste anything on my clipboard to the new email if I happen to have something copied at the time the incoming email arrives. Thank you so much!