Envoi de mail depuis VBA access

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjours à tous

Voici mon probléme :
J'aimerais intégrer dans un formulaire un bouton permettant d'envoyer un mail via outlook. le bouton doit justre préremplir les champs du mail et l'utilisateur n'aura plus qu'à envoyer.
Aprés quelque recherche, j'ai trouver le code suivant qui utilise une référence outlook de vba (microsoft outlook 11.0) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub UseOutlook() Dim Mail_Outlook As Object Dim Message_Outlook As Object Dim Body_mail As String Set Mail_Outlook = CreateObject("Outlook.Application") Set Message_Outlook = Mail_Outlook.CreateItem(0) Message_Outlook.To = "pev15@hotmail.com" Message_Outlook.Cc = " destinataire " Message_Outlook.Bcc = " destinataire " Message_Outlook.Subject = " Sujet du mail " Body_mail = "Contenu " Body_mail = Body_mail & Chr(13) & Chr(10) ' Body_mail = Body_mail & "Contenu.." Message_Outlook.body = Body_mail Message_Outlook.send Set Mail_Outlook = Nothing End Sub
La compilation ne pose pas de probléme, mais à l'éxécution le debug se bloque a la ligne en gras
Je ne comprend pas d'ou vient le probléme, j'ai l'impression que l'objet mail et mal instancié mais pourtant il figure bien dans l'explorateur d'objet de mon environnement VB.
a terme je veux aussi mettre dans les destinataires le résultat d'une requete sur une de mes tables (avec un record set) mais pas la peine d'implémenter ça si je ne sais pas faire fonctionner le code avec un seul destinataire.

Merci d'avance.

02/06/2008, 15h36
isa911

En mettant juste
Dim Message_Outlook
dans la declaration ?
02/06/2008, 16h07
pev15

Bonjour et merci pour ta réponse.

j'ai essayé ta solution mais ça ne change rien. L'erreur est tourjours la.
02/06/2008, 16h15
isa911

C'est quoi le message d'erreur ?
02/06/2008, 16h31
pev15

Il s'agit d'une erreur d'éxécution :

Dans une boite de dialogue j'ai l'erreur d'éxécution '-2147287037 (80030003) : echec de l'opération.

La boite de dialogue m'invite en mode débug et me surligne la ligne suivante :
Set Message_Outlook = Mail_Outlook.CreateItem(0)

en mettant le pointeur de souris sur la ligne, l'info bull m'affiche :
Message_Outlook = nothing

Bizarre...
Dans ton gestionnaire de tache, tu en as pas plusieurs des Outlook ouvert ?
Moi avant d'attaquer la creation du mail, je passe dans cette fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function Outlook_LOGIN() As Boolean
Dim MAILBOX_STATE, Folder
    On Error GoTo Outlook_Login_Err
    Set Outlook = GetObject(, "Outlook.Application")
    If Outlook Is Nothing Then
recup_err:
        Set Outlook = CreateObject("Outlook.Application")
        Set MAPI = Outlook.GetNamespace("MAPI")
        MAILBOX_STATE = 200
        Set Folder = MAPI.GetDefaultFolder(6) 
        Folder.Display
    End If
 
    Exit Function
Outlook_Login_Err:
If err.Number <> 0 Then
    If err.Number = 429 Then
        GoTo recup_err
    End If
    Exit Function
End If
End Function

C'est beaucoup mieux
Mais je sais pas si j'ai bien utilisé le code, peut tu me confirmer la synthaxe de celui ci meme si il marche bien, je veux etre sur que ce soit propre

Code:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
Option Compare Database
Dim Outlook As Object
 
Sub UseOutlook()
     Dim Mail_Outlook As Object
     Dim Message_Outlook As Object
     Dim Body_mail As String
     Set Outlook = CreateObject("Outlook.Application")
     Outlook_LOGIN
 
     Set Message_Outlook = Outlook.CreateItem(0)
     Message_Outlook.To = "pev15@hotmail.com"
     Message_Outlook.Cc = " destinataire "
     Message_Outlook.Bcc = " destinataire "
     Message_Outlook.Subject = " Sujet du mail "
     Body_mail = "Contenu "
     Body_mail = Body_mail & Chr(13) & Chr(10) '
     Body_mail = Body_mail & "Contenu.."
     Message_Outlook.body = Body_mail
     Message_Outlook.Display
     'Message_Outlook.send en commentaire car je veux que ce soit l'utilisateur qui envoi le mail.
 
     Set Outlook = Nothing
End Sub
 
 
Function Outlook_LOGIN() As Boolean
Dim MAILBOX_STATE, Folder
On Error GoTo Outlook_Login_Err
Set Outlook = GetObject(, "Outlook.Application")
If Outlook Is Nothing Then
recup_err:
Set Outlook = CreateObject("Outlook.Application")
Set MAPI = Outlook.GetNamespace("MAPI")
MAILBOX_STATE = 200
Set Folder = MAPI.GetDefaultFolder(6)
Folder.Display
End If
 
Exit Function
Outlook_Login_Err:
If Err.Number <> 0 Then
If Err.Number = 429 Then
GoTo recup_err
End If
Exit Function
End If
End Function

Encore merci pour ton code magique tu m'a débloqué, confirme moi juste la synthaxe du code et je clique sur résolu ;)

Code:

Outlook_LOGIN remplace Set Outlook = CreateObject("Outlook.Application")

Ca fait ca :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub UseOutlook()
     Dim Mail_Outlook As Object
     Dim Message_Outlook As Object
     Dim Body_mail As String
     Outlook_LOGIN
 
     Set Message_Outlook = Outlook.CreateItem(0)
     Message_Outlook.To = "pev15@hotmail.com"
     Message_Outlook.Cc = " destinataire "
     Message_Outlook.Bcc = " destinataire "
     Message_Outlook.Subject = " Sujet du mail "
     Body_mail = "Contenu "
     Body_mail = Body_mail & Chr(13) & Chr(10) '
     Body_mail = Body_mail & "Contenu.."
     Message_Outlook.body = Body_mail
     Message_Outlook.Display
     'Message_Outlook.send 'en commentaire car je veux que ce soit 'l'utilisateur qui envoi le mail.
 
     Set Outlook = Nothing
End Sub

En fait, la fonction que je t'ai donné, teste s'il y a deja Outlook d'ouvert, si oui, il utilise l'existant, si non, il l'ouvre...
Voila

02/06/2008, 17h46
pev15

Merci beaucoup de ton aide, ta fonction était tout ce qui me manqué pour faire fonctionner le bazar.

Bravo à toi :king:
04/06/2008, 17h19
pev15

bonjour, je remonte ce sujet car j'ai remarqué un autre probléme avec outlook : La fermeture

une fois la mail envoyer et la fenêtre outlook fermer, Outlook tourne tourjour et prend beaucoup de ressource.
en effet, l'icone apparait en bas de l'écran à droite, et je n'arrive pas à le fermer
je suis obligé de passer par le gestionnaire de tache en méttant fin au processus.

est ce normal? quelle solution me suggérez vous?
05/06/2008, 09h26
isa911

Bonjour,
Alors, je l'utilise de 2 manieres.
1- Sur un poste dedié a envoyé des Workflows, sur celui ci à la fin j'envoi les mails en faisant .Send. J'envoi autant des info que des documents en piece jointe.
Sur celui la, je viens de regarder, il est a 4 276 Ko d'util. memoire et cela fait 246 H qu'il tourne.

2- Sur chaque poste utilisateur, il y a moyen depuis ma base Access de créer des e-mail et donc la j'utilise .display pour que l'utilisateur complete le mail avant d'envoyer, et la j'ai entre 1 000 et 2 000 Ko par mail. Les utilisateurs l'utilise 1 ou 2 fois par jour.

Je n'ai pas fait de recherches pour savoir comment reduire la conso ... je n'en avais pas vraiment besoin...

L'icone de quoi au fait, moi j'ai rien ...

Si tu as des idées, je veux bien ;)
05/06/2008, 09h48
Heureux-oli
Essaie de fermer l'objet
Code:

1 2 Outlook.close Set Outlook = Nothing
Un conseil, évite les noms tout fait comme Outlook et préfère lui oApp ou un autre nom.
C'est un réflexe qui peut éviter certains désagrément liés aux mots réservés.
05/06/2008, 11h43
pev15

bonjour, et merci pour vos réponses.

J'ai donc essayer d'effectuer le outlook.close, mais a l'éxcécution j'ai un bug sur cette ligne qui me dit que la propriété n'est pas connu de l'objet.

meme en renommant l'objet avec oApp par exemple, ça fait la meme erreur

Pour les ressources, mon outlook me prend 162 480 ko. je trouve ça énorme. je travail sans connexion fiable avec exchange, mon outlook ne peut pas communiquer car je suis pas sur le bon réseau etc... Je ne sais pas s'il ya un lien; mais j'arrive qd meme a afficher la mail. Au final je n'envoi pas le mail (normal car je suis pas sur le bon réseau) et je ferme la fenetre outlook. cependant il continu a tourner en processus et je n'arrive pas a le fermer proprement.

j'ai regardé du coté de la fonction qui instancie l'application outlook :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Function opp_LOGIN() As Boolean Dim MAILBOX_STATE, Folder On Error GoTo opp_Login_Err Set opp = GetObject(, "Outlook.Application") If opp Is Nothing Then recup_err: Set opp = CreateObject("Outlook.Application") Set MAPI = opp.GetNamespace("MAPI") MAILBOX_STATE = 200 Set Folder = MAPI.GetDefaultFolder(6) Folder.Display End If Exit Function opp_Login_Err: If Err.Number <> 0 Then If Err.Number = 429 Then GoTo recup_err End If Exit Function End If End Function
L'obejt MAPI n'est déclaré à aucun moment, et les objets folder et MAPI ne sont jamais libérer dans le reste du code.
Ne comprenant pas exactement à quoi sert ces objet, je ne sais pas si le probléme viens de la.

05/06/2008, 12h06
Heureux-oli
Toutes mes excuses :sm:

Pour un objet application, c'est Quit.
Code:

1 2 Outlook.Quit
Y-a-til une raison pour laquelle tu fais du latebinding.

Jette un oeil ici http://heureuxoli.developpez.com/publipostage/#LII-A
05/06/2008, 17h49
pev15

Salut,
je ne sais pas ce que tu appeles "latebinding" j'ai essayer de regarder rapidement sur le net mais pas trop piger.

Sinon le outlook.quit ne ferme pas le process de outlook, et il reste toujours aussi gourmant en mémoire.

sur ta page, j'ai essayer l'exemple du code VB pour envoyer un mail via outlook.

au début j'avais le meme bug que j'ai cité en début de cette discussion sur le .creatitem(0)
alors j'ai ajouté la fonction d'instanciation de isa911 et au final je me retrouve avec un code trés proche de ce que j'avais éssayer ( g retirer les record set car pas besoins sauf pour les destinataire)

et j'ai toujours outlook qui travail en tache de fond et qui me prend 160 Mo de ram.

il n'y a pas un code permettant de forcer cette fermeture de outlook?
Dés que j'instancie l'objet j'arrive pas à m'en dégager on dirait.
05/06/2008, 18h25
Heureux-oli
On utilise le latebinding lorsque l'on ne veut pas ajouter de références au projet.
Cette façon de faire permet d'utiliser le code sur un PC sans avoir besoin de connaître la version du logiciel.
Code:

1 2 3 Dim oApp as Object Set oApp = CreateObject ("Outlook.application")
Le latebinding est opposé a earlybinding où on ajoute la bibliothèque au projet.
Outils => Références
Code:

1 2 3 Dim oApp As Outlook.Application Set oApp = CreateObject("Outlook.Application")
ou encore

Code:

Dim oApp as new Outlook.Application

L'écriture du code est plus facile lorsque l'on déclare la librairie, on peut bénéficier de l'aide à la saisie qui diminue les risques d'erreurs.

Pour ta tâche Outlook qui tourne sans que tu sache pourquoi.

Si lorsque tu as une erreur, tu libère pas la ressource avent de quitter le code, l'appli continue seule et pour rien.
Code:

1 2 3 4 5 6 opp_Login_Err: If Err.Number <> 0 Then If Err.Number = 429 Then GoTo recup_err End If Exit Function
Dans cette gestion de l'erreur, tu ne ferme pas Outlook, si tu as une erreur ...
06/06/2008, 10h20
pev15

Merci pour ton explication sur le late binding. du coup j'ai changer en early.

Je ne vois pas trop comment retouché le code pour qu'il gére l'erreur et la fermeture de outlook proprement.

Aurais tu une suggestion ?

Oui,

Dans le début de ton code tu mets
Code:

1 2 On Error GoTo MonErreur
à la fin de ton code
Code:

1 2 3 MonErreur: oApp =Nothing
On devrait avoir ceci :
Code:

1 2 3 4 5 6 7 8 Sub MaProcedure OnError GoTo MonErreur 'le code... MonErreur: oApp =Nothing End Sub

J'ai essayé l'ajout de ces lignes mais ça ne change pas le probléme.

Le processus est toujours en train de tourner. j'ai trouver une solution sur le net mais je pense que c un peu bourin

dis moi ce que tu en penses:
Code:

1 2 3 4 5 6 7 8 9 10 11 Public Sub KillProcess(ByVal ProcessName As String) Dim ovc As Object Dim sQuery As String Dim oproc Set ovc = GetObject("winmgmts:root\cimv2") sQuery = "select * from win32_process where name='" & ProcessName & "'" For Each oproc In ovc.execquery(sQuery) oproc.Terminate Next Set ovc = Nothing End Sub
Cette fonction tue n'importe quel processus par le code. on rentre outlook.exe en paramétre et il mét fin au process.

Voir 40 message(s) de cette discussion en une page