olivierk1450
XLDnaute Nouveau
Bonsoir,
Je cherche a compléter le code suivant pour rajouter une pièce jointe à l'envoi d'un email.
Merci d'avance
Sub envoimail()
Dim HyperLien As String, Objet As String, Corps As String
Objet = "Courier du "
Corps = "Bonne réception"
adresse = "moi@free.fr"
Corps = Application.WorksheetFunction.Substitute(Corps, vbCrLf, "%0D%0A")
'ad = "adresse@free.fr"
' ou ad=range("la cellule ou est l'adresse")
'copie = "adresse1@free.fr"
'ou copie= range("cellule ou est l'adresse en copie")
HyperLien = "mailto:" & adresse
HyperLien = HyperLien & "&Subject=" & Objet
HyperLien = HyperLien & "&Body=" & Corps
ActiveWorkbook.FollowHyperlink HyperLien
End Sub
Je cherche a compléter le code suivant pour rajouter une pièce jointe à l'envoi d'un email.
Merci d'avance
Sub envoimail()
Dim HyperLien As String, Objet As String, Corps As String
Objet = "Courier du "
Corps = "Bonne réception"
adresse = "moi@free.fr"
Corps = Application.WorksheetFunction.Substitute(Corps, vbCrLf, "%0D%0A")
'ad = "adresse@free.fr"
' ou ad=range("la cellule ou est l'adresse")
'copie = "adresse1@free.fr"
'ou copie= range("cellule ou est l'adresse en copie")
HyperLien = "mailto:" & adresse
HyperLien = HyperLien & "&Subject=" & Objet
HyperLien = HyperLien & "&Body=" & Corps
ActiveWorkbook.FollowHyperlink HyperLien
End Sub