Mail avec piece jointe

[Manu62]

Bonjour à tous,

J'ai le code suivant pour l'envoi d'un mail :

Sub envoimail()
Dim adresse As String
Dim sujet As String
Dim Texte As String
Dim Urlto As String
adresse = Range("Commande!H13")
sujet = Range("G159")
Texte = Range("G160")
Urlto = "mailto:" & adresse & "?Subject=" & sujet & "&Body=" & Texte
ActiveWorkbook.FollowHyperlink Address:=Urlto
End Sub

Je voudrais ajouter une ligne pour prise en compte d'un piece jointe.
Sachant que dans une cellule, j'ai le lien c:\....

Merci Bcq

Manu

 

[Staple1600]

Re : Mail avec piece jointe

Bonjour

Regardes en bas

Dans [Discussions similaires]

 

[Manu62]

Re : Mail avec piece jointe

Bonjour Stample, le forum

A priori, cela prend la page active, mais moi je préfére un fichier défini à un emplacement comme C:\..

Merci de ton aide

Manu

 

[Manu62]

Re : Mail avec piece jointe

Bonjour

Il n'ya pas plus simple.
Je pensé juste ajouté une ligne ou deux dans le code que j'ai.
A vrai dire, c'est d'un compliqué...

Merci

Manu