Envoi mail format HTML

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

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>"

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

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

Bonne fin de journée

Jeremy

Rechercher des sujets similaires à "envoi mail format html"