insérer msg avec lien hypertexte dans Outlook

Neofalken

XLDnaute Junior
Bonjour la communauté.

Après maintes recherche je n'ai pas trouvé ce qu'il me fallait donc je me permets de lancer un appel.

J'ai un petit programme qui me permet d'insérer un msg fixe dans un mail outlook.
Dans le corps du message j'aimerais avoir un lien hyper texte.
tout marche mais le lien apparait en texte et non en lien hyper texte.

Qq'un peut il m'aider ? (le lien est souligé et en gras)
note : J'ai des espaces dans mon chemin d'accès/nom de fichier. Cela peut il poser des problèmes ?
Vous remerciant d'avance.

Sub Fin()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
Application.OnTime HeureArrêtt, Procedure:="Fin", Schedule:=False 'annule événnemennt
Application.WindowState = xlNormal
CreateObject("Wscript.shell").Popup " Le fichier va être fermé dans 10 secondes" & Chr(13) & " Vos modifications seront enregistrées" & Chr(13) & " Vous ne pouvez plus intervenir", 10, " ATTENTION" 'vbAbortRetryIgnore
ThisWorbook.Save = True

If Not Intersect(Target, Range("C2")) Is Nothing Then

Dim OutApp As Object, OutMail As Object 'envoyer le mail
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Environ("username") 'adresse du destinataire
.Subject = "Le fichier a été fermé"
.body = Chr(13) & "Le fichier que vous utilisiez a été fermé avec enregistrement " & Chr(13) & "Veuillez vérifier vos données en cliquant sur le lien ci-dessous " & vbCrLf _
& "W:\xx\xx\xx\xx.xls"
'.body = Chr(13) & "Le " & Format(Date, "dddd dd,mmm,yyyy") & vbLf & "à " & Format(Time, "hh:mm:ss")

.Send 'envoyer directement le mail
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing

End If

ThisWorkbook.Close True
End Sub
 

Discussions similaires

Haut Bas