treza88
XLDnaute Occasionnel
Bonjour à tous,
Sujet déjà évoqué dans différent post, mais je n'arrive pas a un résultat qui fonctionne même après une multitude d'essais.
Mon image dans le corps du mail n'apparait une fois le mail envoyé et j'ai deux comte de messagerie dans ma session Outlook, mais je n'arrive pas à envoyer un mail avec le deuxième compte
Voici mon code :
Merci pour toute aide pour me guider.
Sujet déjà évoqué dans différent post, mais je n'arrive pas a un résultat qui fonctionne même après une multitude d'essais.
Mon image dans le corps du mail n'apparait une fois le mail envoyé et j'ai deux comte de messagerie dans ma session Outlook, mais je n'arrive pas à envoyer un mail avec le deuxième compte
Voici mon code :
VB:
Sub envoieMail()
Dim OutApp As Object
Dim OutMail As Object
Dim oAccount As Outlook.Account
Dim OutAccount As Object
Dim Chemin$, NomImage$
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.createitem(olMailItem)
Set OutAccount = OutApp.Session.Accounts.Item(2)
Chemin = "C:\Users\MOI\Downloads\img.png"
NomImage = Mid(Chemin, InStrRev(Chemin, "\") + 1) 'nom du fichier image sans le chemin complet
With OutMail
.SendUsingAccount = OutAccount
.to = "mail2@domaine.com" 'mailDestinataire
'.cc = "mail@domaine.com"
'.bcc = Worksheets("Feuil2").Range("E1")
.Subject = "Planning du jeudi"
'.body = Worksheets("Feuil2").Range("H1")
.HTMLBody = "<body>Hello, " & "<br><br>" & _
ThisWorkbook.Sheets("Feuil2").Range("H1") & "<br>" & _
"Texte du corp du mail." & "<br><br>" & _
"<img src='" & NomImage & "' & width='700' height='600'><br><br>" & _
"**[Ce message a été généré automatiquement]**</body>"
.send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End SubMerci pour toute aide pour me guider.