Discussion :

[Fredo67]

Bonjour,
j'ai mis en place un code qui envoie un mail à certains utilisateurs lors d'un clic sur un bouton.

Tout fonctionne bien à condition que Outlook soit déjà ouvert. (dans le cas contraire message d'erreur)


Je voudrais donc ajouter une fonction qui teste si Outlook est déjà ouvert.
Je ne sais pas comment tester cela...

D'avance merci
Fred

[LedZeppII]

Bonsoir,

ça peut se faire avec GetObjet qui renvoie une référence à un objet Outlook.Application si Outlook est déjà ouvert.
Si aucun instance d'Outlook n'existe une erreur se produit.

Exemple:

Code vb :

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
Dim OLapp As Outlook.Application, OtCreated As Boolean
 
On Error Resume Next  ' ignorer erreur si Outlook n'est pas ouvert
Set OLapp = GetObject(, "Outlook.Application")
On Error GoTo 0
' Si GetObjet a échoué on crée un objet avec CreateObject
If OLapp Is Nothing Then
   Set OLapp = CreateObject("Outlook.Application")
   OtCreated = True
End If
 
....
 
' Fermeture d'Outlook si il a été ouvert par le code
If OtCreated Then
   OLapp.Quit
End If
 
' Libération de l'objet
Set OLapp = Nothing

A+