XL 2019 insérer le lien du ficher actuel dans un mail

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 !

Pimprenelle9

XLDnaute Nouveau
Bonjour,
J'ai besoin d'insérer le lien HyperText du fichier actuel dans un mail pour que les utilisateurs puissent cliquer.
voici ce que j'ai fait mais le lien ne s'affiche pas en HyperText,

j'ai déjà regardé les discussions a ce sujet mais ca ne fonctionne pas, étant donné que je ne connais pas le lien (il change tous le temps).

Dim mail As Variant
Dim strpath As String
strpath = CurDir & "\" & ThisWorkbook.Name
Set mail = CreateObject("Outlook.Application") ' creation objet mail outlook
With mail.CreateItem(olMailItem)
.Subject = Range("Mailsauto!A2") & Range("C4")
.To = Range("MailConstateur_de_la_NC")
.Body = Range("Mailsauto!A2") & Chr(13) & Chr(10) & " lien: " & strpath
.CC = Range("Listenomsemail!mailQA")
.Send

merci!
 
Bonjour

Essaye:
VB:
Sub mail()
    Dim mail As Variant
    Dim strpath As String
    strpath = CurDir & "\" & ThisWorkbook.Name
    htmlCorps = "<body><p><font face=arial>" & Range("Mailsauto!A2")
    htmlCorps = htmlCorps & "<BR><BR>Lien: <a href='file:\\" & strpath & "'>" & strpath & "</a>"
    Set mail = CreateObject("Outlook.Application") ' creation objet mail outlook
    With mail.CreateItem(olMailItem)
        .Subject = Range("Mailsauto!A2") & Range("C4")
        .To = Range("MailConstateur_de_la_NC")
        .CC = Range("Listenomsemail!mailQA")
        .htmlbody = htmlCorps
        .Display
        '.Send
    End With
End Sub
 
Bonjour

Essaye:
VB:
Sub mail()
    Dim mail As Variant
    Dim strpath As String
    strpath = CurDir & "\" & ThisWorkbook.Name
    htmlCorps = "<body><p><font face=arial>" & Range("Mailsauto!A2")
    htmlCorps = htmlCorps & "<BR><BR>Lien: <a href='file:\\" & strpath & "'>" & strpath & "</a>"
    Set mail = CreateObject("Outlook.Application") ' creation objet mail outlook
    With mail.CreateItem(olMailItem)
        .Subject = Range("Mailsauto!A2") & Range("C4")
        .To = Range("MailConstateur_de_la_NC")
        .CC = Range("Listenomsemail!mailQA")
        .htmlbody = htmlCorps
        .Display
        '.Send
    End With
End Sub
merci je vais essayer cela!
 
Bonjour

Essaye:
VB:
Sub mail()
    Dim mail As Variant
    Dim strpath As String
    strpath = CurDir & "\" & ThisWorkbook.Name
    htmlCorps = "<body><p><font face=arial>" & Range("Mailsauto!A2")
    htmlCorps = htmlCorps & "<BR><BR>Lien: <a href='file:\\" & strpath & "'>" & strpath & "</a>"
    Set mail = CreateObject("Outlook.Application") ' creation objet mail outlook
    With mail.CreateItem(olMailItem)
        .Subject = Range("Mailsauto!A2") & Range("C4")
        .To = Range("MailConstateur_de_la_NC")
        .CC = Range("Listenomsemail!mailQA")
        .htmlbody = htmlCorps
        .Display
        '.Send
    End With
End Sub
mille merci!!!
 
- 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

  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
816
Réponses
2
Affichages
809
Réponses
2
Affichages
953
Retour