Discussion :

[Naig-web]

Bonjour,

Je souhaite réaliser un publipostage vers une messagerie électronique. Mon document prinicipal est sous WORD et ma base de données sous Access, mais je veux ajouter 2 ou 3 documents en pièce jointe et je n'y arrive pas.

Il semblerait qu'une macro soit la solution mais je n'y connais rien!
Quelqu'un peut m'aider?
Merci.

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.
Effectivement, sans macro point de salut.

Mais ce n'est pas une mince affaire.

Il faut ouvrir une instance d'outlook dans ton code pour pouvoir ajouter à ton message une pièce jointe.

A toi de voir si tu veux faire l'investissement du VBA.

[Heureux-oli]

Salut,

Voilà un exemple de code qui permet d'envoyer une pièce jointe

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
Sub EnvoyerMAil()
On Error GoTo sortie
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
Dim oDoc As Document
 
Set oDoc = ActiveDocument
Set oApp = New Outlook.Application
Set oMail = oApp.CreateItem(olMailItem)
 
With oMail
    .To = "moi@fai.be"
    .Attachments.Add (oDoc)
    .Subject = "Mon Sujet"
    .Body = "Le texte"
    .Send
End With
 
 
sortie:
MsgBox Err.Description & vbCrLf & Err.Number
Set oMail = Nothing
Set oDoc = Nothing
 
Set oApp = Nothing
 
 
End Sub

[Naig-web]

Bonjour,
Merci pour les informations sur la réalisation de la macro.
Pour être le plus clair possible:
je réalise mon publipostage vers la messagerie électronique sous word et ça fonctionne très bien. L'intérêt pour moi est d'ajouter des pièces jointes à ce mail. Par contre je ne sais pas comment faire pour nommer l'ensemble de mes adresses mail dans la macro, et comment faire pour nommer mes documents à ajouter. Par ailleurs j'ai essayé de réaliser la macro et elle bloque sur la 3e ligne (Dim oApp As Outlook. Application).

Autre question, VBA, ça veut dire quoi?!!!!
Merci de ton aide.

[Heureux-oli]

Salut,

VBA c'est pour Visual Basic for Application.

Si la macro bloque, c'est parce qu'il manque la référence à la librairie Outlook dans ton projet.

Outils Référence Choisir Microsoft Office Outlook dans la liste.

[Naig-web]

Salut,
J'ai réglé le problème pour outlook, maintenant je n'arrive pas à inscrire la liste de mes adresses mail sur la ligne TO = et je ne sais pas comment faire pour noter le chemin d'accès au document. Peux tu m'aider?
Merci.

[Heureux-oli]

Pour les destinataires, il suffit de les ajouter au TO

Code :

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

1
2
 
.TO = "Dest1@FAI.com" & ";" & "Dest2@FAI.FR" .....

Pour les documents, si tu suis le code que j'ai donné, c'est aussi assez simple, tu ouvres les documents

Code :

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

1
2
Set oDoc1 = Documents.Open("Le chemin de mon document")
Set oDoc2 = Documents.Open("Le chemin de mon second document")