Discussion :

[Joke]

Salut à tous.

Je rencontre un problème assez ennuyant... et bizzare!!
Mon programme Acess 2002 doir envoyer pas mal de mails....

en bref, à chaque fois que Access envoie un mail par outlook, outlook s'ouvre "en tache de fond, on peut le voir dans le gestionnaire des tâches de Win XP, sous processus..."
lorsque la procédure chargée d'envoyer le mail se termine, le processus outlook se termione aussi... jusque là, tout va bien....

sauf que de temps en temps (va savoir pourquoi) le processus outlook ne se termine pas... et à la longue (après avoir envoyer plusieurs 10aines de mails) on a des messages d'erreurs... et ça ne fonctionne plus!!

quelqu'un a-t-il une idée ??

exemple de mon 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
Dim myOlApp As Outlook.Application
Dim myNameSpace As NameSpace
Dim myMail As MailItem
......
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myMail = myOlApp.CreateItem(olMailItem)
 
    With myMail
        .BodyFormat = olFormatHTML
        .To = Me.E_Mail
        .Subject = "coucou"
        .HTMLBody = txthtmlBody
        .Send
    End With

FRANK
.....

Merci de votre aide...

[kayser]

Salut,

J'avais déjà eu ce problème. En fait, j'ai constaté que outlook ne se fermait pas car il restait encore des mails à envoyer.
Autrement dit, ta procédure d'envoie est plus rapide que l'envoie même des mails.
Donc la solution serait de faire un test qui attends que tous les mails soient envoyés avant de fermé outlook dans ta procédure.

J'espère que ça t'aidera.

Voilà.
Kayser.

[Joke]

Salut Kayser,

merci de tes infos... en effet ça à l'air de marcher maintenant..
je teste que les messages soient bien sortis de outlook avant de quitter... et plus de probs...

Merci