VBa - Envoi d'un email via l'email souhaité

Lone-wolf

XLDnaute Barbatruc
Bonjour Hieu :), le Forum :)

À moins de créer déjà plusieurs comptes Outlook sur ton pc, sinon c'est impossible. Et pour creer plusieurs comptes, il faut que tu fasse la demande à ton fournisseur pour qu'ils t'envoie les mots de passes pour chaque compte. Ensuite, comment faire la configuration, la réponse est ICI sinon le faire directement avec ton fournisseur d'accès.

Edit: Bonjour Roland :)
 
Dernière édition:

fp22us

XLDnaute Nouveau
Bonjour Hieu, le forum,

Il faut faire du vba avec Outlook, et non avec excel pour gérer l'envoi de cet email: le paramètre SentOnBehalfOfName va pouvoir gérer l'adresse mail d'envoi.

A +


Dim ObjOutlook As New Outlook.Application
Dim oBjMail

Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)

With oBjMail
.SentOnBehalfOfName = "Ici votre adresse email d'envoi"
.To = CustomerEmail ' le destinataire
.Subject = "L'objet du mail "
.BodyFormat = olFormatHTML
.HTMLBody = Mailbody 'le corps du mail
.Attachments.Add NomFichier ' Nomfichier
.Display ' Pour afficher avant d'envoyer
'.Send ' Pour envoyer sans afficher
End With
 

Discussions similaires