Discussion :

[jojo42000]

bonjour à tous,
je cherche comment ouvrir outlook en vba sur l'appui d'un boutton merci de m'aider

[Anarchie93]

Code :

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

1
2
Dim myolapp As Outlook.Application 
Set myolapp = CreateObject("Outlook.Application")

Sans oublier de cocher la référence à Outlook...

[casavba]

Veux-tu juste l'ouvrir ou ouvrir et envoyer un mail aussi ??

si ouvrir tout simplement :

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
 
Sub ControleSiOutlookOuvert()
    Dim Appli As Object
    Dim SessionOutlook, myOlApp
    Const Chemin As String = "C:\Program Files\Microsoft Office\office11\OUTLOOK.exe"   ---> tu adaptes ce chemin si c'est nécessaire
 
    On Error Resume Next
    Set Appli = GetObject(, "Outlook.Application")
 
    'Tester si l'application est ouverte ou non
    If Appli Is Nothing Then
            MsgBox "Outlook est fermé"   '---> Donc ouvre moi une session
            SessionOutlook = Shell(Chemin, 1)
        Else
            MsgBox "Outlook est ouvert"  '---> Donc ferme la session existante et ouvre moi une nouvelle session
            Set myOlApp = CreateObject("Outlook.Application")
            myOlApp.Quit
            SessionOutlook = Shell(Chemin, 1)
    End If
End Sub

si ouvrir et envoie mail ---> fait une recherche dans le forum, il y' a plein de réponse pour ce cas.