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

Pimprenelle9 · 12 Juillet 2022

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. · 12 Juillet 2022

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

Hasco · 12 Juillet 2022

Bonjour,

Petite question : vous êtes certains de CurDir ?

J'ai besoin d'insérer le lien HyperText du fichier actuel

Ne serait-ce pas 'ThisWorkbook.FullName' que vous voulez ?

Cordialement

Pimprenelle9 · 15 Juillet 2022

Hasco à dit:
Bonjour,

Petite question : vous êtes certains de CurDir ?

Ne serait-ce pas 'ThisWorkbook.FullName' que vous voulez ?

Cordialement

oui, en effet :+)

Pimprenelle9 · 15 Juillet 2022

D.D. à dit:

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 · 15 Juillet 2022

D.D. à dit:

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

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

Pimprenelle9

XLDnaute Nouveau

D.D.

XLDnaute Impliqué

Hasco

XLDnaute Barbatruc

Pimprenelle9

XLDnaute Nouveau

Pimprenelle9

XLDnaute Nouveau

Pimprenelle9

XLDnaute Nouveau

Discussions similaires