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

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Pimprenelle9
  • Date de début Date de début

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

Guest
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

treza88
  • Résolu(e)
XL 2021 Envoi mail via VBA et Outlook
Réponses
6
Affichages
558
patricktoulon
patricktoulon
B
  • Question Question
XL 2016 VBA - Ajout de consignes dans le corps d'un mail
Réponses
3
Affichages
478
kiki29
kiki29
G
  • Résolu(e)
XL 2021 Envoie d'informations sélectionnés par mail
Réponses
3
Affichages
429
TooFatBoy
TooFatBoy
S
  • Résolu(e)
Microsoft 365 Envoi de la signature de l'utilisateur macro envoi de mail
Réponses
3
Affichages
613
spike29
S
halecs93
  • Question Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
998
halecs93
halecs93
N
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
985
TooFatBoy
TooFatBoy
J
  • Question Question
XL 2016 envoie mail automatique lors de double-clic sur cellule
Réponses
6
Affichages
789
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
1 K
kiki29
kiki29
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
1 K
Oneida
Oneida
D
  • Résolu(e)
Microsoft 365 Insérer lien dans un email
Réponses
4
Affichages
725
Dvd1976
D
R
  • Question Question
Microsoft 365 [RESOLU] Mail multi destinataires avec vba
Réponses
11
Affichages
2 K
romubzh35
R
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
B
  • Question Question
XL 2019 Macro - Envoyer des mails depuis un tableau de données
Réponses
3
Affichages
1 K
AtTheOne
AtTheOne
C
  • Question Question
XL 2019 Envoi mail : Condition dans un HTMLBODY
Réponses
2
Affichages
850
Cheyenne_2021
C
Y
  • Question Question
XL 2016 sélection du dernier fichier modifié dans un dossier+ pièce jointe
Réponses
1
Affichages
602
kiki29
kiki29
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
ELSONCe
  • Question Question
Microsoft 365 Envoi Mail Automatique avec Condition
Réponses
2
Affichages
790
ELSONCe
ELSONCe
F
  • Résolu(e)
XL 2016 Envoi mail fichier Excel renommer
Réponses
6
Affichages
1 K
FS69
F
Retour