Discussion :

[macro2a]

Bonjour

J'ai lu cette discussion.

votre macro est très sympa, cependant elle fonctionne pas tout a fait.

Si je lance la macro et que outlook est fermé alors tout va bien, elle ouvre outlook néanmoins si il est ouvert, elle ne ferme pas et ré-ouvre pas Outlook.

Merci pour votre aide

[Theze]

Bonjour,

Une piste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Test()
 
    Dim AppOutlook As Object
    Dim OutMail As Object
 
    Set AppOutlook = GetObject(, "Outlook.Application")
 
    'si ouvert affecte à la variable sinon, création
    If AppOutlook Is Nothing Then Set AppOutlook = CreateObject("Outlook.Application")
 
End Sub