Salut tout le monde,
Je vais essayer d'expliquer mon problème brièvement et clairement. J'ai le code suivant qui envoie un mail en utilisant le compte par défaut dans Outlook :
Code :
Sub B___E_mail_Backup_Report()
'Define Variables
Dim OutApp As Object
Dim OutMail As Object
'Open Connection to Outlook
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "mail@domain.tld"
.Subject = "Bla bla bla"
.Body = "Bli Bli Bli"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Ça marche très bien, mais le problème est que je ne veux pas utiliser le compte par défaut, je veux l'envoyer d'un autre compte (autre courriel, autre serveur SMTP requierant authentification)
J'arrive à le faire sans problème en utilisant CDO. Mais dans ce cas, l'antivirus le bloque en config par défaut. Si c'était envoyé d'une seule machine, ce ne serait pas un problème, il me suffit de changer la config de l'AV. Le problème est que cette macro peut-être roulée par différents users, sur différentes machines.
En bref, il me faut un moyen, en utilisant l'objet Outlook et non CDO, d'envoyer mon mail en utilisant un compte différent de celui configuré dans Outlook.
J'espère que c'est clair, et merci d'avance,
Simo
Connexion
Inscription
FAQ
Rechercher
