Discussion :

[jpflamand]

Bonjour,
J'arrive très bien à faire un emailing de masse par la fusion entre doc word et feuille excel mais ne trouve pas le moyen d'ajouter aux mails qui sont générés une (ou plusieurs) pièce(s) jointe(s), qui seraient les mêmes pour tous.
Toutes pistes seront bienvenues.
Merci d'avance

[Heureux-oli]

Salut,

Il faut passer par du VBA et ajouter la pièce jointe par code.
Avec cette manière de faire, on peut même changer la pièce jointe pour chaque destinataire.

Un exemple en passant ?

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
25
26
27
 
Sub envoiPieceJointe()
Dim oApp As Outlook.Application
Dim myAtts As Attachments
Dim myMail As MailItem
 
Set oApp = New Outlook.Application
Set myMail = oApp.CreateItem(olMailItem)
Set myAtts = myMail.Attachments
 
 
With myAtts
    .Add "MonFichier"
    .Add "MonAutreFichier"
End With
 
With myMail
    .To = "MonDestinataire"
    .Subject = "MonSujet"
    .Body = "Le corps de mon message"
End With
 
myMail.Send
Set myMail = Nothing
Set myAtts = Nothing
Set oApp = Nothing
End Sub