Problème d'affichage au "display" d'un envoi mail

Question

Bonjour.
J'espère être dans le bon sujet.
J'ai un petit programme VB sous excel qui permet d'envoyer automatiquement des mails.
Afin d'éviter le message de sécurité Outlook, je fais un ".display" suivi d'un "SendKeys "^{ENTER}", True".
Mon programme boucle sur un tableau excel et envoie plusieurs mails les uns à la suite des autres.
J'ai mis une "tempo"(entre le display et la simulation des touches d'envoi)  entre chaque affichage de mail pour que le système envoie le message avant de créer le suivant :
        Début = Timer
        Fin = Début + 1.5
        Do Until Timer >= Fin
        DoEvents
        Loop.
Et voilà mon problème : Sur certains micros, dont le mien, çà fonctionne parfaitement. (Donc mon code est bon).
Mais sur d'autres, de temps en temps (c'est aléatoire) au moment du display, le message se crée (on le voit apparaitre dans la barre des tâches), mais il ne s'affiche pas à l'écran. Donc la simulation des touches d'envoi est inéfficace.
Le mail suivant peut s'afficher ou non, c'est aléatoire là aussi. S'il s'affiche, il part, etc, etc...
A la fin de la boucle il peut rester quelques mails non partis sur lesquels il suffit de cliquer ur "envoyer" pour qu'ils partent.
Quelqu'un aurait-il une idée pour éviter cet inconvénient ?

Renfield · Answer

peut etre forcer a donner le focus a Outlook...

a tester AppActivate, donc

cs_Dyane · Answer

Merci pour la réponse.
J'essaierai dès que possible.

cs_Dyane · Answer

Bonjour

Mes excuses pour cette réponse tardive....
J'ai fait d'autres essais, en insérant une cimmande ------.activate, mais çà ne change rien.
Le mail s'affiche, mais ne part pas!
D'autres idées ?

Problème d'affichage au "display" d'un envoi mail

3 réponses

Votre réponse

Discussions similaires