Bonjour à tous,
Je reçois des mails avec pièces jointes et je dois les transférer avec les pj à une adresse mail (toujours la même) et je me suis créé un template spécifique, j'ai déjà un bout de code qui marche bien sauf pour les pièces jointes qui ne suivent pas....
J'ai bidouillé ce code avec ce que j'ai trouvé, désolé pour les puristes s'il y a des erreurs grossières..
Quelqu'un peut m'aider??
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 ForwardFor() Dim currItem As Outlook.MailItem Dim newFwd As Outlook.MailItem Dim myItem As Outlook.MailItem Dim myattachments As Outlook.Attachments Set currItem = ActiveInspector.CurrentItem Set newFwd = currItem.Forward Set myattachments = currItem.Attachments Set myItem = Application.CreateItemFromTemplate("C:\Users\Public\Modeles\test.oft") myItem.To = myItem.Recipients.Add("test@test.com") myItem.HTMLBody = myItem.HTMLBody & newFwd.HTMLBody newFwd.Close olDiscard myItem.Display Set newFwd = Nothing Set myItem = Nothing Set currItem = Nothing Set myattachments = Nothing End Sub
Merci d'avance!
Jay.See
Partager