Envoi mail format HTML Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
J
JeremyW
Membre fidèle
Membre fidèle
Messages : 439
Appréciation reçue : 1
Inscrit le : 16 juillet 2013
Version d'Excel : 2003 & 2007

Message par JeremyW » 28 mars 2019, 16:41

Bonjour,

C'est un code proposé par h2so4 en 2016.
Je souhaite envoyer un mail contenant un lien hypertexte.
Ne connaissant absolument rien au HTML je ne connais pas la syntaxe à utiliser.
Le code fonctionne parfaitement, seul le lien que je ne parviens pas à adapter
Je souhaite utiliser une variable nommée Fichier ou tout autre solution qui me permette d'arriver au résultat sera la bienvenue.

Merci beaucoup pour l'aide,

Jeremy
Sub SendMail()

Dim Fichier As String
Dim MonOutlook As Object
Dim MonMessage As Object

        

Fichier = "S:\Partages\06_ATL_Jeux\Interne_EPLS\Projets\Patrimoine bati\DI à traiter\" & Sheets("DI").Range("D49")

  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.CreateItem(0)
  MonMessage.BodyFormat = 2
       corps = "<HTML><BODY>"
         MonMessage.To = "romain.dehan@poclain.com"
  MonMessage.CC = ""
  MonMessage.Subject = "Demande d'intervention maintenance"
  ''' Le corps du message est divisé en 2 lignes :'''
 corps = corps & "Bonjour Christophe,"
  '''' <p> = Touche ENTER'''
 corps = corps & "<p>"
   corps = corps & "<p> Ci-joint la demande d'intervention"
  corps = corps & "<p><a href="""S:\Partages\06_ATL_Jeux\Interne_EPLS\Projets\Patrimoine bati\DI à traiter\" & Sheets("DI").Range("D49")"">lien vers la demande</a></p>"
  corps = corps & "<p><a href=""Fichier"">lien vers la demande</a></p>"
  corps = corps & "</BODY></HTML>"
  MonMessage.HTMLBody = corps
  MonMessage.Display
  
  Set MonOutlook = Nothing

End Sub
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'575
Appréciations reçues : 755
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 28 mars 2019, 16:54

Bonjour,

Supprime ceci puisque c'est en double
  corps = corps & "<p><a href="""S:\Partages\06_ATL_Jeux\Interne_EPLS\Projets\Patrimoine bati\DI à traiter\" & Sheets("DI").Range("D49")"">lien vers la demande</a></p>"
Ensuite, modifie comme suit
corps = corps & "<p><a href=""" & Fichier & """>lien vers la demande</a></p>"
1 membre du forum aime ce message.

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'575
Appréciations reçues : 755
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 28 mars 2019, 16:57

Tu n'es pas obligé de mettre
corps = "<HTML><BODY>"
à simplifier en
corps = ""
et
corps = corps & "</BODY></HTML>"
à supprimer

Par contre, je te conseille de modifier ceci pour avoir ta signature en bas du mail :
MonMessage.HTMLBody = corps & MonMessage.HTMLBody
1 membre du forum aime ce message.

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
J
JeremyW
Membre fidèle
Membre fidèle
Messages : 439
Appréciation reçue : 1
Inscrit le : 16 juillet 2013
Version d'Excel : 2003 & 2007

Message par JeremyW » 28 mars 2019, 17:13

Merci beaucoup, j'ai adopté les modifications et... ça fonctionne parfaitement.

Bonne fin de journée

Jeremy
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message