Discussion :

[apnw7931]

Bonjour,

J'utilise 3 facons différentes pour envoyer des emails via VBA.
Pour chacune d'entre elle, j'essaye de pouvoir changer l'expediteur de l'email.
Pour la première et deuxième méthode, j'ai trouvé.
Pourriez-vous m'aider avec la troisième ?
Merci d'avance.

Envoyer un simple email

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Set ol = New Outlook.Application
Set mymail = ol.CreateItem(olMailItem)

mymail.Display    
mymail.HTMLBody = "test"
mymail.Subject = "test"
mymail.To = "test1@test.com"
mymail.CC = "test2@test.com"
mymail.SentOnBehalfOfName = "test3@test.com"   '<-- OK
mymail.Send

Envoyer une selection d'une feuille Excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 xlBook.Sheets("Overview").Range("A1:B10").Select
 xlBook.EnvelopeVisible = True
 xlBook.Sheets("Overview").MailEnvelope.Item.To = "test1@test.com"
 xlBook.Sheets("Overview").MailEnvelope.Item.Subject = "test"
 xlBook.Sheets("Overview").MailEnvelope.Introduction = "test2"
 xlBook.Sheets("Overview").MailEnvelope.Item.SentOnBehalfOfName = "test3@test.com"   '<-- OK
 xlBook.Sheets("Overview").MailEnvelope.Item.Send

Envoyer un fichier excel en pièce jointe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SendMail Array(test1@test.com, test2@test.com), Subject:="test"

[Daniel.C]

Bonjour,

Ce n'est pas possible pour les méthodes 2 et 3. A moins de trouver le moyen de changer l'expéditeur par défaut dans Outlook...

[apnw7931]

J'ai édité mon premier post.
J'ai trouvé une solution pour la deuxième méthode.

Il me reste plus que la troisième méthode donc..
Une autre piste ?