[XL-2003] de l'usage de message Outlook avec Excel

[setepenre]

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 ?

[Yersin]

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

[setepenre]

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.

[Yersin]

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

[setepenre]

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".