Problème avec les pièces jointes
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).
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
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.