Problème avec les pièces jointes

[karl3i]

Bonjour à tous,

je développe un script pour retransférer des messages. J'ai un problème avec la copie des pièces jointes depuis le mail reçu au mail que je vais renvoyer.
Concrètement, lorsque je copie les attachments, le script se comporte comme s'il ne s'exécutait pas (sans message d'erreur).

 
Sub Transfert(MyMail As Outlook.MailItem)
Dim oRecipient As Outlook.Recipient
Dim NewMail As Outlook.MailItem
For Each oRecipient In MyMail.Recipients
  If (oRecipient.Address = "<un mail>") Then
     Set NewMail = Application.CreateItem(olMailItem)
     NewMail = MyMail
     Dim HelioAccount As Outlook.Account
     Dim oAccount As Outlook.Account
     For Each oAccount In Application.Session.Accounts
        If (oAccount.DisplayName = "<un nom>") Then
          NewMail.SendUsingAccount = oAccount
          NewMail.Recipients.Add ("<mail cible>")
'          NewMail.Attachments = MyMail.Attachments ' Avec cette ligne ça ne marche pas
          NewMail.HTMLBody = MyMail.HTMLBody
          NewMail.Send
        End If
     Next
     GoTo Fin 
  End If
Next
Fin:
End Sub
 

Sans "NewMail.Attachments = MyMail.Attachments", le message est bien transféré. Avec, non.

La moindre idée sera la bienvenue,
merci,
Karl3i.

[Oliv-]

Salut,
Essaye avec
Set NewMail = mymail.reply

[karl3i]

Salut,

merci, mais même combat avec mymail.reply...

Karl3i.

[Oliv-]

Salut,
en fait me suis trompé je voulais écrire : Forward

[karl3i]

Merci, mais toujours même combat.

Avec :

NewMail.Attachments = MyMail.Attachments

le mail ne part pas.

Sans

NewMail.Attachments = MyMail.Attachments

le mail part, mais sans attachment, que ce soit avec reply ou forward.

[Oliv-]

SAlut,
En principe avec forward les PJ sont déjà dans le nouveau mail il ne faut pas les ajouter.