XL 2016 [Résolu] Créer un lien hypertexte dans le corps d'un email

Sly le globe trotter

XLDnaute Occasionnel
Bonjour à tous,

je cherche à envoyer via une macro un email, en renseignant dans son corps, un lien hypertexte vers un fichier.

a ce jour, avec le code suivant
Code:
Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)

With oBjMail
        .To = Demandeur & "@xxx.com"
        .Subject = "Cloture de campagne"
        .Body = "La campagne " & NomCamp & " (numéro " & NumCamp & ") a été clôturée. Elle est archivée dans le dossier " & ActiveWorkbook.Path & "."
        .Send
End With
je parviens à afficher le nom complet du fichier et souhaiterai pouvoir le transformer en lien hypertexte.

Auriez-vous des solutions ou pistes pour m'aider ?

Je vous remercie par avance pour le temps que vous accorderez à ma demande.
Sylvain
 

Bougla972

XLDnaute Occasionnel
Bonjour Sly,

Remplacer la ligne .Body par:
VB:
.HTMLBody = "<html><body>" & "La campagne " & NomCamp & " (numéro " & NumCamp & ") a été clôturée. " & _
                  "Elle est archivée dans le dossier " & "<A HREF=""" & ActiveWorkbook.Path & """>" & ActiveWorkbook.Path & "</A>" & "." & "</body>"
 

Discussions similaires

Réponses
4
Affichages
519

Statistiques des forums

Discussions
312 104
Messages
2 085 349
Membres
102 869
dernier inscrit
radyreth