Discussion :

[Mat08]

Bonjour, je cherche un moyen d'envoyer un mail à partir d'access 2010 en utilisant outlook. J'utilise ce code :

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
19
20
21
22
23
24
25
 
Function envoimail()
 
 
    Dim sujet
    Dim corps
 
    Set appOutLook = New Outlook.Application
    Set objmail = appOutLook.CreateItem(olMailItem)
    objmail.Display
 
    sujet = "sujet blablabla"
    corps = "bla bla bla"
 
    objmail.To = "xxx@xxx.xx; yyy@yyy.yy"
    objmail.Subject = sujet
    objmail.body = corps
    'objmail.Attachments.Add
    'objmail.Send
 
    Set objmail = Nothing
    Set appOutLook = Nothing
 
 
End Function

Je vous voudrais pouvoir choisir l'expéditeur du mail.
Est-ce possible ? (je ne veux pas utiliser la méthode cdo, je veux utiliser outlook)

Merci d'avance pour vos réponses.

[zoom61]

Salut,

Si ta fonction marche, il te suffit de la modifier un peu :

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
19
20
Function envoimail(AdrExpditeur as string)
    Dim sujet
    Dim corps
 
    Set appOutLook = New Outlook.Application
    Set objmail = appOutLook.CreateItem(olMailItem)
    objmail.Display
 
    sujet = "sujet blablabla"
    corps = "bla bla bla"
 
    objmail.To = AdrExpditeur
    objmail.Subject = sujet
    objmail.body = corps
    'objmail.Attachments.Add
    'objmail.Send
 
    Set objmail = Nothing
    Set appOutLook = Nothing
End Function

Ensuite, il te suffit d'appeler ta fonction d'envoi :

Code :

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

1
2
3
...
Call envoimail("xxx@xxx.xx; yyy@yyy.yy")
...

@+.

[Mat08]

Bonjour, je ne vois pas ce qui change dans votre code. Vous avez mis une variable pour les destinataires mais je n'ai toujours pas le choix de l'expéditeur. Ou alors j'ai mal compris votre réponse.

Je veux si par exemple j'ai deux comptes mail enregistrés dans outlook, pouvoir choisir l'un des deux comptes lors de l'envoi du mail.

[zoom61]

L’expéditeur dépendra de la messagerie qui sera ouverte.

[Mat08]

Je l 'avais bien remarqué mais n'y a-t-il pas justement un moyen de choisir l'expéditeur directement à partir d'access ?

[zoom61]

Il ne me semble pas, cela utilise la messagerie qui est ouverte.

[Mat08]

Ok, je vais quand même laisser ce sujet ouvert quelque temps pour voir si quelqu'un connais une astuce.

Merci quand même pour votre aide.

[Thierry_PALLIER]

Bonjour Mat08 et Zoom61.
Est-ce que c'est possible d'avoir deux comptes Outlook sur la meme
session Windows ?!
Par contre, si tu es ,ou si tu as un délégué ,c'est possible d'envoyer un mail
"de mon délégué dela part de Mat08" .
Si c'est cela ,j' ai un code.
Cdlt