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).
Sans "NewMail.Attachments = MyMail.Attachments", le message est bien transféré. Avec, non.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
La moindre idée sera la bienvenue,
merci,
Karl3i.
Partager