1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Sub SendEmail(EmailAddr As String, Texte As String)
'-------------------------------------------------définir les données
Temp = Range("A1")
I = InStrRev(Temp, "\")
Temp = Right(Temp, Len(Temp) - I)
Subj = "Demande d'archivage : " + Left(Temp, Len(Temp) - 4)
Temp = "file:" + Range("A1")
'--------------------------------------------------Composer le message
Msg = "Bonjour " & "%0A"
Msg = Msg & "%0A" & Texte & "%0A"
Msg = Msg & "%0A" & Temp & "%0A"
Msg = Msg & "%0A" & " "
'--------------------------------------------------Construire lien hypertexte
HLink = "mailto:" & EmailAddr & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
'--------------------------------------------------Transmettre le message
ActiveWorkbook.FollowHyperlink HLink
End Sub |
Partager