Discussion :

[quecdur]

Bonjour,

Je cherche, je cherche... et je ne trouve pas.
Par avance, je vous remercie pour votre aide.

Je souhaite faire un envoi de mail, avec une pièce jointe différente pour chaque destinataire,via le publipostage de Word en personnalisant l'objet du mail.

J'utilise de fameux code de Oliv dans Outllok.
Je me le suis approprié de la manière suivante :

Je remplace la ligne : ElseIf UCase(objCurrentMessage.Subject) Like "*PUBLIPERSO*" Then
Par : ElseIf UCase(objCurrentMessage.Subject) Like "*FACTURE *" & "########" Then

Et : docperso = "C:\Users\ACACER\Desktop\FACTURE_PJ\" & objCurrentMessage.To & ".pdf"
Par : docperso = "C:\Users\ACACER\Desktop\FACTURE_PJ\" & objCurrentMessage.Subject & ".pdf"

Cela fonctionne (J'ai testé).

Ce qu'il me faut maintenant, c'est "publiposter" l'objet du mail...

J'ai collé dans Word la macro suivante :

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
 
Sub Macro1()
Dim aa As Variant
Set myMerge = ActiveDocument.MailMerge
If myMerge.State = wdMainAndSourceAndHeader Or _
 myMerge.State = wdMainAndDataSource Then
With myMerge.DataSource
    .FirstRecord = 1
    .LastRecord = 999  
End With
End If
With myMerge
        aa = .DataSource.DataFields(14).Value   
    .MailSubject = "FACTURE " & aa
    .Destination = wdSendToEmail
    .Execute
End With
End Sub

Cela fonctionne... à moitié !

TOUS mes mails issus de ce publipostage ont le même objet (celui qui correspond au premier destinataire de ma liste (BDD Access).

Je voudrais qu'il change à chaque destinataire !

Si une âme charitable veut bien m'aider...

[Heureux-oli]

Salut,

Si pour la pièce jointe, tu passes par Outlook, pourquoi ne le fais-tu pas pour le reste du message ?