Discussion :

[Gautheron]

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 ?

[Jean-Philippe André]

Bonjour,
sur quelle version d'Outlook travailles-tu stp ?

[Gautheron]

2003

[Jean-Philippe André]

et avec ce code, qu'est-ce qui ne marche pas ?
ta séquence est bonne, donc dis nous ce qui pose problème stp

[Gautheron]

simplement le mail n'est pas envoyé; j'ai un "bip" après chaque sendkeys, mais rien ne se passe...

[Gautheron]

En augmnetant le temps d'attente à 3 seconde, ca a marché... peut etre est ce un probleme de timing systeme...

Dis moi jpcheck, t'as l'air de maitriser outlook,
j'ai un soucis avec mon contenu :
j'ai une signature avec une image, un contenu en texte.

J'aimerai personnaliser la première ligne de mon texte et j'ai essayé, toujours avec le meme code, d'ajouter la ligne suivante

Code :

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

1
2
3
 
texte _ ref = oEmail.body
oEmail.body = "M. Ttoto," & chr(10) & texte_ref

Mais je perds alors en faite la signature et les images présents.
J'ai essayé avec bodyhtlm mais c'est encore pire, je n'ai que "M. Toto"...
T'aurais une idée ?