Ajout de pièces jointes avant envoi du mail

**korni184** · 04/03/2011, 10h17

Bonjour,

J'ai créé une macro, qui s'exécute en appuyant sur un bouton sur word.

La macro retraite les données d'un formulaire et génère un email.

J'aimerai rajouter si possible une option, que dès, lorsque le mail est créé, une fenêtre pour ajouter une pièce jointe s'ouvre automatiquement. Et après le reste est manuel (choisir la pièce en attachement et l'adresse du destinataire et cliquer sur envoyer).

Mon script se termine comme ceci :

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
 
 
Else
 
With lobjmail 
.subject = lstrSujet
.BodyFormat = olFormatHTML
.HTMLbody = LstrMsg
.Display
End with
'activedocuement.Close wdDoNotSaveChanges.
 
end if
 
 
Exit label :
Set lobjMail = Nothing
Set lobjOutlook = Nothing
Exit Sub