Appel Outlook

Bonjour Pierre chevalier,
Pierre chevalier a écrit :

Bonjour,
comment vérifier en vb si outlook est déja lancé
si oui ouvrir l'instance
si non exécuter outlook
et dans les deux cas se positionner sur un calendrier
Merci d'une réponse

Dans ton projet, ajoutes une référence à Microsoft Outlook, puis :

Dim ol As Outlook.Application
Dim ns As Outlook.NameSpace
Dim fld As Outlook.MAPIFolder

Private Sub Command1_Click()
On Error Resume Next
Set ol = GetObject(, "Outlook.Application")
If Err.Number = 429 Then
Set ol = CreateObject("Outlook.Application")
End If
On Error GoTo 0
Set ns = ol.GetNamespace("MAPI")
Set fld = ns.GetDefaultFolder(olFolderCalendar)
fld.Display
End Sub

--
Cordialement,

Jacques.