VBA autoforward issue

Question

Donc je suis en train de travailler sur un script pour le transfert automatique du courrier avec un message personnalisé et une pièce jointe du courrier d'origine.

code fonctionne mais l'une des pièces jointes est le message d'origine comme ceci:

Example

Tout le monde sait comment l'enlever?

Option Explicit 
Public Sub FW(olItem As Outlook.MailItem) 

    With olItem 
     .Attachments.Add olItem, olEmbeddeditem 
     .Subject = "" & olItem.Subject 
     .Body = "Hello there." 
     .To = "someone@somewhere.com" ' <- update 
     .Send 
    End With 

    '// Clean up 
    Set olItem = Nothing 
End Sub 

Answer 1

Vous êtes mieux juste en utilisant la méthode .Forward pour créer une version transmise de l'e-mail d'origine, car cela conserve automatiquement les pièces jointes.

Option Explicit 
Public Sub FW(olItem As Outlook.MailItem) 

    Dim olForward as Outlook.MailItem 
    Set olForward = olItem.Forward 

    With olForward 
     .Subject = "" & olItem.Subject 
     .Body = "Hello there." 
     .To = "someone@somewhere.com" ' <- update 
     .Send 
    End With 

    '// Clean up 
    Set olItem = Nothing 
    Set olForward = Nothing 
End Sub