thomasdu40
XLDnaute Occasionnel
Bonjour,
Je vais vous détailler mon problème.
J'ai la macro ci-dessous qui m'ouvre, depuis la feuille 1 en cliquant sur un icône représenté par une enveloppe, Outlook. J'ai sélectionné un message qui apparaitra automatiquement dans la fenêtre d'Outlook (je veux dire le contenu) en AB10, AB11, AB12 et AB13 de la feuille, l'objet apparaitra également, il est saisi en AB9.
Mon souci se situe en AB13 qui concerne un lien hypertexte. Lorsque je clique sur le lien dans le message Outlook, il me fait apparaitre un message d'erreur : "Impossible d'ouvrir le fichier spécifié".
Si vous avez un solution à ce problème.
Sinon et si c'est pas possible est il possible de joindre au mail le fichier ?
Par avance merci.
Sub SendMail_Outlook()
'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String
Dim LienUrl As String
LienUrl = Range("AB13").Hyperlinks(1).Address
Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)
With Olmail
.Subject = Range("AB9").Value
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML>" & _
"<BODY>" & _
Range("AB10").Value & "<BR>" & _
Range("AB11").Value & "<BR>" & _
Range("AB12").Value & "<BR>" & _
"<A HREF=" & LienUrl & ">Liens</A>" & _
"</BODY>" & _
"</HTML>"
.Display '.Send
'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With
End Sub
Je vais vous détailler mon problème.
J'ai la macro ci-dessous qui m'ouvre, depuis la feuille 1 en cliquant sur un icône représenté par une enveloppe, Outlook. J'ai sélectionné un message qui apparaitra automatiquement dans la fenêtre d'Outlook (je veux dire le contenu) en AB10, AB11, AB12 et AB13 de la feuille, l'objet apparaitra également, il est saisi en AB9.
Mon souci se situe en AB13 qui concerne un lien hypertexte. Lorsque je clique sur le lien dans le message Outlook, il me fait apparaitre un message d'erreur : "Impossible d'ouvrir le fichier spécifié".
Si vous avez un solution à ce problème.
Sinon et si c'est pas possible est il possible de joindre au mail le fichier ?
Par avance merci.
Sub SendMail_Outlook()
'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String
Dim LienUrl As String
LienUrl = Range("AB13").Hyperlinks(1).Address
Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)
With Olmail
.Subject = Range("AB9").Value
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML>" & _
"<BODY>" & _
Range("AB10").Value & "<BR>" & _
Range("AB11").Value & "<BR>" & _
Range("AB12").Value & "<BR>" & _
"<A HREF=" & LienUrl & ">Liens</A>" & _
"</BODY>" & _
"</HTML>"
.Display '.Send
'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With
End Sub
