Discussion :

[marbuly]

bonjour,

j'explique mon problème.

j'ai trouvé ici une procédure afin d'envoyer des emails depuis access.

mais ce que je voudrais, c'est qu'une fois les adresses mails ajoutées au champ bcc, qu' outlook s'ouvre automatiquement afin d'y ajouter des pièces jointes et un message.

la procédure que j'ai trouvé ici, envoi tout d'un coup sans ouvrir outlook.

est-ce qu'il y a une fonction comme avec word.application.visible=true qui fonctionne avec outlook?

qu'est-ce qu'il faut que je change pour que ça marche?

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
26
27
28
29
30
31
32
33
34
35
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
Dim oDB As DAO.Database
Dim strContenu As String
Dim oRst1 As DAO.Recordset
Dim adrmail As String
 
'Instancie Outlook
Set oDB = CurrentDb
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(olMailItem)
 
'ajoute les adresses mails
 
Set oRst1 = oDB.OpenRecordset("SELECT mail FROM filtremail")
 
While Not oRst1.EOF
 
    adrmail = adrmail & oRst1.Fields("mail") & "; "
    oRst1.MoveNext
Wend
 
'Supprime la dernière virgule
 
oMail.BCC = Left(adrmail, Len(adrmail) - 2)
 
'Envoi du mail  à partir d'ici, il faudrait qu'outlook s'ouvre avec bcc rempli.
 
oMail.Send
oRst1.Close
Set oRst1 = Nothing
Set oDB = Nothing
'Ferme Outlook
oApp.Quit
Set oApp = Nothing

encore un tout grand merci à celui qui voudra bien m'aider

marbuly

[Heureux-oli]

Essaie avec

Code :

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

oMail.save

Pour rendre Outlook visible, je pense que tu vas à l'encontre de problèmes si tu as déjà une session ouverte.

Si tu fais un save, je pense que le mail se retrouve dans les brouillons.

Si tu veux ajouter des pièces jointes, pourquoi ne le fais tu pas au départ d'accès.