SYNTAXE HTMLBODY ENVOI AUMATIQUE D'UN MAIL

  • Initiateur de la discussion Initiateur de la discussion mcdooh
  • 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 !

M

mcdooh

Guest
Bonjour

J'ai un fichier Excel (office 365 version 2016) avec des macros.

je créé par une fonction inputbox un nom de fichier que je complète ensuite ainsi

chemin_rep = "R:\02-test\"

nom_fichier_complet = chemin_rep & num_suivi & ".xlsm"


ensuite j’envoie un mail en automatique ou je veux mettre un lien hypertext 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

.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

MsgBox ("Préparation du MAIL envoyé à " & Chr(10) & Chr(10) & "toto.titi@hotmail.fr" & Chr(10) & Chr(10) & "pour l'informer qu'il doit créer un article SAP" & 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 = "jeanraoul.ducable@hotmail.fr"
.CC = ""
.BCC = ""
.Subject = "CREATION ARTICLE(S)SAP TERMINEE"
.BodyFormat = olFormatHTML
.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=""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
 
Dernière modification par un modérateur:
- 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

Réponses
6
Affichages
935
Réponses
17
Affichages
2 K
E
Réponses
1
Affichages
1 K
R
Réponses
6
Affichages
1 K
R
S
Réponses
11
Affichages
28 K
J
T
Réponses
1
Affichages
7 K
thomasdu40
T
A
Réponses
2
Affichages
992
Angy1105
A
Retour