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

Créer une discussion
Répondre

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 !

S'inscrire
P

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!
 
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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
Cliquez pour agrandir...
merci je vais essayer cela!
 
Vote positif 0 Vote négatif
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
Cliquez pour agrandir...
mille merci!!!
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

B
  • Question Question
XL 2016 VBA - Ajout de consignes dans le corps d'un mail
Réponses
3
Affichages
357
kiki29
kiki29
G
  • Résolu(e)
XL 2021 Envoie d'informations sélectionnés par mail
Réponses
3
Affichages
332
TooFatBoy
TooFatBoy
S
  • Résolu(e)
Microsoft 365 Envoi de la signature de l'utilisateur macro envoi de mail
Réponses
3
Affichages
492
spike29
S
N
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
863
TooFatBoy
TooFatBoy
halecs93
  • Question Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
873
halecs93
halecs93
J
  • Question Question
XL 2016 envoie mail automatique lors de double-clic sur cellule
Réponses
6
Affichages
681
J@ba
J
M
  • Résolu(e)
XL 2016 mail en automatique dans excel destinataire en fonction de la valeur d une cellule
Réponses
11
Affichages
1 K
mathieu20
M
R
  • Question Question
Microsoft 365 Copie ecran Userform pour envoi par mail [RESOLU]
2
Réponses
26
Affichages
2 K
MeliChat_47
M
Z
  • Question Question
Microsoft 365 code VBA envoie de mail
Réponses
2
Affichages
976
kiki29
kiki29
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
943
Oneida
Oneida
D
  • Résolu(e)
Microsoft 365 Insérer lien dans un email
Réponses
4
Affichages
668
Dvd1976
D
R
  • Question Question
Microsoft 365 [RESOLU] Mail multi destinataires avec vba
Réponses
11
Affichages
2 K
romubzh35
R
B
  • Question Question
XL 2019 Macro - Envoyer des mails depuis un tableau de données
Réponses
3
Affichages
1 K
AtTheOne
AtTheOne
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
2 K
Fabrice16ct
F
C
  • Question Question
XL 2019 Envoi mail : Condition dans un HTMLBODY
Réponses
2
Affichages
762
Cheyenne_2021
C
Y
  • Question Question
XL 2016 sélection du dernier fichier modifié dans un dossier+ pièce jointe
Réponses
1
Affichages
545
kiki29
kiki29
ELSONCe
  • Question Question
Microsoft 365 Envoi Mail Automatique avec Condition
Réponses
2
Affichages
741
ELSONCe
ELSONCe
S
  • Question Question
XL 2013 Ajouter un lien hypertexte dans la macro qui envoi une invitation outlook
Réponses
3
Affichages
1 K
Sbed
S
F
  • Résolu(e)
XL 2016 Envoi mail fichier Excel renommer
Réponses
6
Affichages
929
FS69
F
P
  • Question Question
Microsoft 365 Envoyer un mail avec Outlook avec en pièce jointe un onglet de mon classeur
Réponses
1
Affichages
795
kiki29
kiki29
Retour