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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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>"
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
871
Retour