de l'usage de message Outlook avec Excel

Bonjour à tous,

J'ai un petit programme qui génère un message dans Outlook.
Je voudrais, après avoir généré ce message et avant de l'envoyer, qu'Excel revienne en avant-plan.
Pour cela j'utilise le petit programme ci-après :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Hwnd = FindWindow(vbNullString, "Microsoft Excel - Mon programme"   Do While Hwnd1 = 0 Hwnd1 = FindWindow(vbNullString, "Mon message Outlook - Message (HTML) ") newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 1 waitTime = TimeSerial(newHour, newMinute, newSecond) 'temporisation Application.Wait waitTime Loop   'Pour ramener Excel au premier plan BringWindowToTop Hwnd 'Affiche en mode "Normal" ShowWindow Hwnd, 5

---

Cela ne fonctionne pas, vous vous en doutez car sinon je ne vous solliciterais pas. Le message reste en avant plan.

Quelqu'un pourrait-il m'expliquer pourquoi ?

Bonjour,

Pour ma part voici comment je traite le problème:

Code:

---

1 2 3 4 5 6 7

Application.WindowState = xlMinimized If OtLk_App.Explorers.Count > 0 Then OtLk_App.ActiveWindow.WindowState = olMaximized   Mail_Item.Display 'Place le mail dans la boite d'envoi Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3) SendKeys "%{v}", True If OtLk_App.Explorers.Count > 0 Then OtLk_App.ActiveWindow.WindowState = olMinimized Application.WindowState = xlMaximized

---

Je te laisse le soin d'adapter le code à ta convenance.

Cordialement

Bonjour Yersin et merci pour ta réponse

Si je me débrouille en VBA, je ne suis toutefois pas un pro et certaines commandes me sont obscures voire inconnues notamment celles qui manipulent les objets Application.

Comment déclares-tu la variable "OtLk_App" ?
Pourrais-tu m'expliquer la "philosophie" de ta routine ?

Merci pour ton aide.

Pour La variable App :

Code:

---

Dim OtLk_App As Object

---

Puis :

Code:

---

Set OtLk_App = CreateObject("Outlook.Application")

---

Sinon, pour les paramètres de OutLook, il ne faut pas oublié de les mettre en constante:

Code:

---

1 2 3

Const olByValue = 1 ' Constante pour l'ajout de pièce jointe Const olMaximized = 0 ' Constante pour maximiser OutLook Const olMinimized = 1 ' Constante pour minimiser OutLook

---

"Philosophie" me semble un bien grand mot. Disons, simplement qu'après avoir préparer le mail, je masque Excel et j'affiche Outlook afin de pouvoir passer le SendKey sans problème, ensuite je rétablie simplement la situation.

Cette méthode n'est pas parfaite et demande du temps. Essaye de chercher d'autres méthodes, type CDO, qui semble plus viable.

Yersin

OK, je te remercie pour ton aide.
Je vais essayer de faire avec cela.
Cela devrait au moins me familiariser avec la manipulation des objets "Application".