Discussion :

[JFDAccess]

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 :

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

oMail.SenderEmailAddress = "toto@free.fr"

mais il est en read only.

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

Merci

[Oliv-]

essaye comme cela

Code :

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

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à

[JFDAccess]

Merci Oliv- ça marche
Je ferme la discussion
JFD

[JFDAccess]

1. J'ai essayé le code proposé
   
   

   Code :

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

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

[JFDAccess]

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

[Oliv-]

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

change :

Code :

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

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

par

Code :

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

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

Pour lister tes comptes

Code :

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

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

[JFDAccess]

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

Mail par défaut parfait!

Merci pour ces réponses efficaces et rapides
JFD

PS: ! j'ai modifié

Code :

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

Sub_liste_des_comptes ()

en

Code :

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

Sub liste_des_comptes ()

Et bien sur

Code :

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

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

en

Code :

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

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