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