Syntaxe HTMLBODY envoi automatique d'un mail avec lien hypertexte intégré
Bonjour
J'ai un fichier Excel (office 365 version 2016) avec des macros.
Après avoir fait sa tache la personne doit cliquer sur un bouton pour valider sa tache et prévenir la personne suivant par mail, donc un mail est généré et je voudrait mettre un lien hypertext dans le corps du message qui permettra d'ouvrir ce fichier.
avec une syntaxe comme ci-dessous cela fonctionne très bien comme le chemin vers le fichier est écrit R:\02-test\TEST.xlsm sauf que le nom de mon fichier va changé
Code:
1 2
| .HTMLBody = "Bonjour, <BR><BR>Ce message est un mail automatique, il vous informe que " & Environ("username") & " a mis à jour le suivi des taches.<BR><BR>" _
& "<A href=""R:\02-test\TEST.xlsm" & """" & ">OUVRIR LE SUIVI SUR LE RESEAU.</A>" & Chr(10) & "<BR><BR>Cordialement" |
mais je ne trouve pas la syntaxe pour le faire avec nom_fichier_complet.
voici la partie envoi de mail
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Sub top1()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim olFormatHTML As String
Dim nom_fichier_complet As String
nom_fichier_complet = Workbooks(ActiveWorkbook.Name).FullName
MsgBox ("Préparation du MAIL envoyé à " & Chr(10) & Chr(10) & "TOTO.TITI@HOTMAIL.com" _
& Chr(10) & Chr(10) & "pour l'informer qu'il doit faire sa tache" & Chr(10) & Chr(10) & "Cliquer sur OK pour ouvrir OUTLOOK" & Chr(10) & Chr(10) & "Puis dans OUTLOOK cliquer sur Envoyer pour valider et terminer votre étape du suivi")
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
strbody = "Information sur la mise à jour"
On Error Resume Next
With OutMail
.To = "au.suivant@hotmail.com"
.CC = ""
.BCC = ""
.Subject = "FAIRE CREATION "
.BodyFormat = olFormatHTML
.HTMLBody = "Bonjour, <BR><BR>Ce message est un mail automatique, il vous informe que " & Environ("username") & " vous devez <BR><BR>" & _
& "<A href= nom_fichier_complet & ">OUVRIR LE SUIVI SUR LE RESEAU.</A>" & Chr(10) & "<BR><BR>Cordialement"
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing |
merci de votre aide