Discussion :

[notepares]

Bonjour,

Je dois réaliser un envoi de mail grâce au publipostage (Word 2003) ET ces mails doivent contenir une PJ.
A l'issue du publipostage, j'ai bien tous les mails dans la boîte d'envoi d'Outlook. J'ai donc essayé de créer une macro qui ajoute la même PJ à chacun, sans succès...

J'utilise ponctuellement vba avec Word ou Excel, sans trop de souci, mais sous Outlook c'est la 1ère fois et j'ai galéré toute la soirée là-dessus :
lors de mes tests je suis parvenu à créer une procédure qui liste tous les mails de ma boîte d'envoi, et j'arrive par exemple à récupérer l'email du destinataire avec .TO ou bien l'objet avec .Subject
Je pensais pouvoir ajouter une PJ avec .Attachments.Add "chemin" mais ça ne fonctionne pas.

Si quelqu'un peut m'indiquer la méthode à utiliser...
MERCI d'avance

[Invité]

Bonjour et bienvenue sur le forum Office de DVP.

Peux-tu expliquer ce que tu as déjà fait (code à l'appui), en fonction de cela, les membres pourraient t'aider plus facilement en t'expliquant comment compléter ton code.

Philippe

[notepares]

Bonjour,

Voici donc le dernier code que j'ai testé :

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 test()
Dim Myolapp As New Outlook.Application
Dim MySpace As Outlook.NameSpace
Dim MyFolder As Outlook.MAPIFolder, MySubFold As Outlook.MAPIFolder
Dim MyMail As Object
 
    Set Myolapp = CreateObject("Outlook.Application")
    Set MySpace = Myolapp.GetNamespace("MAPI")
    Set MyFolder = MySpace.Folders("Dossiers Personnels")
    Set MySubFold = MyFolder.Folders("Boîte d'envoi")
 
    'parcourt tout les mails de la boîte d'envoi
    For Each MyMail In MySubFold.Items
        'pour vérifier que chaque mail est bien trouvé
        MsgBox (MyMail.Subject) 'Subject=objet
        MsgBox (MyMail.To) 'To=a, Bcc=cci, Cc=cc
 
        'Pour ajouter la PJ... ne génère pas d'erreur mais ne fonctionne pas
        Set myattachments = MyMail.Attachments
        myattachments.Add "E:\PJtest.txt"
 
    Next
 
End Sub

Merci de votre aide

[Oliv-]

Salut,
Essayes en ajoutant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyMail.save

il faut sans doute aussi renvoyer le mail avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Mymail.send

Sinon il faut intercepter avec l'evenement Application_ItemSend
le mail créé par WORD et y ajouter la PJ

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
28
29
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As _
Boolean)
'by oliv' 05/02/2007 Pour publipostage avec PJ OUTLOOK 2003
 
If Item.Class = olMail Then
Dim objCurrentMessage As MailItem
Set objCurrentMessage = Item
If UCase(objCurrentMessage.Subject) Like "*PUBLIPOSTAGE*" Then
On Error Resume Next    
 
'Pour ajouter une PJ à tous décommenter
       objCurrentMessage.Attachments.Add Source:= _
        "c:\temp\DOC2.PDF"
    '#perso#Pour ajouter un document personnalisé d'après le destinataire _
     du mail décommenter ci-dessous
    ' ici le nom du document est "destinataire@domaine.fr.doc"
    'docperso = "c:\temp\monmailing\" & objCurrentMessage.To & ". _
doc"
    'objCurrentMessage.Attachments.Add Source:=docperso
 
    'On supprime le terme PUBLIPOSTAGE du sujet
    objCurrentMessage.Subject = Replace(objCurrentMessage.Subject, _
    "PUBLIPOSTAGE ", "")
    'On sauvegarde le mail
    objCurrentMessage.Save
    End If
Set objCurrentMessage = Nothing
End If
End Sub