Discussion :

[Jay.See]

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..

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

Quelqu'un peut m'aider??

Merci d'avance!
Jay.See

[Oliv-]

Bonjour,
Pour les PJ le seul moyen de les copier d'un mail vers un autre c'est de les enregistrer sur le disque puis de les attahcer au nouveau Mail.

Par contre avec la méthode .Forward ils sont copiés dans le nouveau mail, par conséquent tu dois inverser ton traitement.

au lieu de vouloir ajouter tes pj dans ton Email myItem modifie et envoi le newFwd

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")
 
newFwd.Recipients.Add("test@test.com")
newFwd.HTMLBody = myItem.HTMLBody & newFwd.HTMLBody
 
myItem.Close olDiscard
newFwd.Display
 
Set newFwd = Nothing
Set myItem = Nothing
Set currItem = Nothing
Set myattachments = Nothing
End Sub

[Jay.See]

Merci Oliv-!!! Ca marche impec!



Mots clés pour les futurs qui ont le même problème:
Macro VBA Outlook transférer mail avec pièces jointes pj et modèle template oft
Forward email mail with attachment files using oft template in VBA outlook