bonjour a tous

après avoir utiliser la methode cdo pour envoyer des mails avec pièces jointes

j'ai trouvé ceci dans la faq
y a t_il un moyen d'y insérer la pièce jointe qui serai dans un disque dur et non pas la copie d'un sheets et qui serait pour être plus précis un fichier pdf

d'une maniere ou une autre je ne suis pas fermé

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
 
Dim return_receipt As Boolean
Dim strRecipients As String, strSubject As String
 
'Copie la feuille active qui va être envoyée par mail
ActiveSheet.Copy
 
strRecipients = "destinataire@provider.fr"
strSubject = "Le sujet du message"
return_receipt = True
 
Application.Dialogs(xlDialogSendMail).Show _
    strRecipients, _
    strSubject, _
    return_receipt
 
'Supprime le classeur envoyé
'ActiveWorkbook.Close False
merci d'avance

au plaisir