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

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!
 

D.D.

XLDnaute Impliqué
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
 

Pimprenelle9

XLDnaute Nouveau
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!
 

Pimprenelle9

XLDnaute Nouveau
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!!!
 

Discussions similaires

Réponses
4
Affichages
483