Outlook et sendkeys "%v"

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:

---

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 ?

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

2003

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 :)

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

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:

---

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 ?

Le mieux reste d'aller directement sur la partie Outlook,
content que le timing ait résolu ton problème :king: