Envoi en VBA d'un mail avec "From" paramétrable

Bonjour,

Je voudrais envoyer des mail à partir de Access 2010, j'arrive à paramétrer tout ce dont j'ai besoin (grâce aux Tutos : Merci) Mais je ne vois pas comment l'envoyer à partir d'une adresse mail choisie parmi mes différentes boites à lettres.
Le seul paramètre que j'ai trouvé, semblant correspondre est

Code:

---

oMail.SenderEmailAddress = "toto@free.fr"

---

mais il est en read only.

Y a t-il une possibilité de faire ce paramétrage?

Merci

essaye comme cela

Code:

---

1 2 3 4 5 6 7 8

Sub envoi_au_nom_de() Dim objMail As Outlook.MailItem Set objMail = Outlook.Application.CreateItem(olMailItem) MsgBox objMail.subject objMail.SentOnBehalfOfName = "TOTO" objMail.Display 'objMail.ResolveAll End Sub

---

ou regarde l'autre possibilité là

Merci Oliv- ça marche:lol:
Je ferme la discussion
JFD

1. J'ai essayé le code proposé
   
   
   Code:

   ---

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

   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
   
   
   
2. Connaître le compte d'où sera envoyé le publipostage

Citation:

---

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

---

Fin QUESTION 1 :Que faut-il faire pour que session ne provoque pas d'erreur ? aucune référence n'est "manquante"
Je suis en Office 2010 sous Windows 7

QUESTION 2:

Je voudrai généraliser la procédure [Benvoi_au_nom_de()[/B] depuis différents ordinateurs, chacun ayant une adresse mail outlook par défaut différente.
D'où la question: peut on connaitre le nom de la boite par défaut, pour ajouter ou pas l'option SentOnBehalfOfName

Merci,
JFD

Est-ce que tu lances ta macro à partir d'un autre programme que ol ?

change :

Code:

---

Set oAccount = Application.Session.Accounts("test@test.com")

---

par

Code:

---

Set oAccount = OutlookApp.Session.Accounts("test@test.com")

---

Pour lister tes comptes

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub_liste_des_comptes () Dim oAccount As Outlook.Account Dim oAccounts As Outlook.Accounts Set oAccounts = Application.Session.Accounts For Each oAccount In oAccounts Debug.Print oAccount.displayName msgbox oAccount.displayName   Next   MsgBox "compte par défaut:" & oAccounts.Item(1).displayName & vbCr & oAccounts.Item(1).SmtpAddress end sub

---

Effectivement, je suis sous Access ==> Modification faite et ça marche.:P

Mail par défaut parfait!

Merci pour ces réponses efficaces et rapides
JFD

PS: ! j'ai modifié

Code:

---

Sub_liste_des_comptes ()

---

en

Code:

---

Sub liste_des_comptes ()

---

Et bien sur

Code:

---

Set oAccount = Application.Session.Accounts("test@test.com")

---

en

Code:

---

Set oAccount = OutlookApp.Session.Accounts("test@test.com")

---