Discussion :

[damsmut]

Bonjour à tous,

J'ai écrit ce code :

J'envoie le mail non pas par .send mais en utilisant les sendkeys (pour éviter le message de confirmation )
Ca fonctionne bien dans le cas où Outlook est déjà lancé...
Par contre dans le cas où Outlook n'est pas lancé... le sendkey se fait trop rapidement et l'email n'est pas envoyé... Comment faire pour demander de faire le sendkeys qu'une fois que Outlook est bien lancé (sans utiliser de timer) ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub Envoi_Mail()
 
    Dim eMail As Object
 
    Set eMail = CreateObject("Outlook.Application").CreateItem(olMailItem)
 
    With eMail
        .to = "moi@domaine.fr"
        .Subject = "Test mail auto"
        .Body = "Mail automatique"
        .Display
        '.Send 'je n'utilise pas cette fonction car message de confirmation apparaît
    End With
 
 
    SendKeys "^{ENTER}" 'Envoi du mail par les touches Ctrl + Enter
 
 
    Set eMail = Nothing 'Réinit
 
End Sub
 
 
 
Sub Ouvrir_Outlook()
 
    'Lance Outlook en mode Hide : La fenêtre est masquée et activée
    Shell "OUTLOOK.EXE", vbHide
 
End Sub
 
 
 
Sub Test_Outlook_Run()
 
    'Permet de tester si Outlook est lancé ou pas
 
 
    Dim OL As Object
 
    On Error Resume Next
    Set OL = GetObject(, "Outlook.Application")
 
    'Cas si outlook n'est pas lancé
    If OL Is Nothing Then
        Ouvrir_Outlook
        Envoi_Mail
    'Cas si outlook est lancé
    Else
        Envoi_Mail
    End If
 
End Sub

Merci

A+

Dams'

[pgz]

Bonjour.

Tu peux essayer d'activer l'application

Code :

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

1
2
3
4
5
Dim monOlApp as Outlook.application
Set monOlApp = CreateObject("Outlook.Application") 'GetObject si déjà ouvert
....
AppActivate monOlApp.ActiveWindow.Caption
SendKeys ...

C'est juste une idée, je ne sais pas si cela marche.

Sinon pour éviter le message Outlook, tu peux utiliser ClickYes.

PGZ

[damsmut]

marche pas trop
même problème... tout dépend à la vitesse à laquelle Outlook s'ouvre... dès fois ça marche dès fois pas...

[Godzestla]

Bonjour,

essaie avec

Code :

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

doevents

après la ligne qui lance Outlook s'il n'est pas ouvert.

Sinon, tu peux aussi faire un Application.Wait d'une valeur acceptable dans le cas où Outlook est déjà ouvert.

[pgz]

marche pas trop
même problème... tout dépend à la vitesse à laquelle Outlook s'ouvre... dès fois ça marche dès fois pas...

Au temps pour moi :

Code :

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

AppActivate monOlApp.ActiveWindow.Caption,True

Il manquait un paramètre!

PGZ

[damsmut]

non marche pas
la fenêtre du nouveau mail s'ouvre bien, mais le mail n'est pas envoyé

[damsmut]

Bonjour,

essaie avec

Code :

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

doevents

après la ligne qui lance Outlook s'il n'est pas ouvert.

Sinon, tu peux aussi faire un Application.Wait d'une valeur acceptable dans le cas où Outlook est déjà ouvert.

- doevents ne marche pas non plus
- et wait... hmm je n'aime pas trop cette solution car cela va dépendre de la vitesse à laquelle s'ouvre Outklook sur chaque pc

.. je crois que je vais devoir me résigner à utiliser .send

[Godzestla]

2 idées alternatives :
1) Tu ouvres systématiquement Outlook au début de ton code
2) Tu contrôle si outlokk est actif ou pas (je ne suis pas capable de t'aider sur ce coup-là)

[damsmut]

1)bof
2)je le fais déjà dans le code et c'est bien ce cas qui pose problème dès fois

[pgz]

Bonjour.

Il reste quand même la solution que tout le monde utilise : ClickYes.

PGZ

[damsmut]

c'est quoi ça ? ClickYes ?

[pgz]

c'est quoi ça ? ClickYes ?

C'est un utilitaire de Context Magic qui permet d'acquitter les alertes antivirales d'Outlook.
Tu peux le télécharger là.

PGZ

[damsmut]

ah ! je ne connaissais pas merci pour l'info