insérer msg avec lien hypertexte dans Outlook

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 !

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
 
- 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
2
Affichages
809
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
447
Réponses
2
Affichages
954
Réponses
3
Affichages
671
Retour