J'ai essayé le code proposé
Sub SendUsingAccount()
Set OutlookApp = CreateObject("Outlook.Application")
Set Outlookmail = OutlookApp.CreateItem(0)
Dim oAccount As Outlook.Account
Set oAccount = Application.Session.Accounts("test@test.com")
If oAccount Is Nothing Then MsgBox "Compte non trouvé": Exit Sub
With Outlookmail
.Subject = EmailSubject
.SendUsingAccount oAccount
.To = SendTo
.cc = ccTo
'.Body = EmailBody 'pour message text
.HTMLBody = EmailBody 'pour message html
'.Display
.Send
End Sub
Mais je reçois un message :
Pièce jointe 160747
Connaître le compte d'où sera envoyé le publipostage
Partager