[Staple1600]

Bonsoir


A tester

(Cocher la Référence à Microsoft Outlook objetc Library
Dans VBE Outils/Réfrérences)

sub hypertext_email()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
 
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
 strbody = "<A HREF=""\\Mes Documents\Photos 2007"">Photos 2007</A>"
On Error Resume Next
    With OutMail
        .To = "toto@toto.fr"
        .CC = ""
        .BCC = ""
        .Subject = "Lien hypertexte"
        .HTMLBody = strbody
        .BodyFormat = olFormatHTM
        .Display
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

source:ici