piece jointe avec (xlDialogSendMail)
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:
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
