Création d'un lien hypertexte dans le corps du mail
J
Bonjour,
Je souhaite ajouter un lien hypertexte à mon corps de mail.
Cependant après plusieurs lectures de codes sur divers forum, je ne suis toujours pas en capacité à rédiger en HTLM.
En effet, mon code suivant, ne fonctionne pas :
Pourriez-vous m'indiq
Dim courriel As MailItem
Dim Texte As String
Dim Texte_2 As String
Dim numligne As Integer
Dim numcolonne As Integer
Dim chemin_2 As String
Dim corps As HTMLText
Sheets("PMM").Select
numligne = Range("D" & Rows.Count).End(xlUp).Row
Set courriel = Outlook.Application.CreateItem(olMailItem)
Texte = "Une demande d'offre a été effectuée par " & Cells(numligne, 6) & vbNewLine & "La demande concerne le client " & Cells(numligne, 4) & vbNewLine & "La prestation souhaitée concerne l'article " & Cells(numligne, 3) & vbNewLine & "La date demandée de réponse est le" & Cells(numligne, 2) & vbNewLine & "Merci de traiter le sujet et d'indiquer votre nom dans la feuille PMM : " & "L'offre se trouve sous le lien suivant : " & FolderPath
corps = "<HTML><BODY>"
corps = corps & "<p><a href=""O:\MPS suivi des affaires\Offres\Test Offre.xlsm""></a></p>"
corps = corps & "</BODY></HTML>"
courriel.To = ""
courriel.Subject = "Demande d'offre"
courriel.HTMLBody = Texte & corps
courriel.Attachments.Add (chemin)
courriel.Send
MsgBox ("La RFQ a été envoyé")
End Subuer ce qui ne convient pas et comment dois-je le remplacer ?
Merci beaucoup pour votre aide,
Johanne