Bonjour,

comme d'autres, j'aimerai courtciruuiter le message d'attente engendré par le .send.

Pour créer mes mailings, je passe par un modèle que je mets dans brouillon et que je recopie avant de les envoyer...
J'aimerai avec la fonction sendkeys cliquer sur la touche envoyer de outlook, mais je n'y arrive pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Application.DisplayAlerts = False
 
                    'creation du mail à partir du brouilllon
                    Set oEmail = MyNameSpace.GetDefaultFolder(16).items(1).Copy
                         oEmail.To = Recipient
                        oEmail.display 'jusqu'à la pas deprobleme
                        SendKeys "+{TAB}" , True 
Attendre 1 'attente d'une seconde
                        SendKeys "%v" , True  'appuye sur envoyer
Attendre 1
Je vsouhaite absolument éviter le .send... qu'est ce qui fonctionne pas ?