Lancer Outlook 2010 automatiquement avec Excel

Bonjour,

Je me permets de demander votre aide pour la réalisation d'une petite fonctionnalité excel.

Dans notre service nous possédons une "boite à outils" Excel qui regroupe tous les logiciels que nous utilisons dans nos tâches quotidiennes.

Pour simplifier l'ouverture des sessions windows de mes collègues j'aimerais que le logiciel Outlook 2010 que nous utilisons pour la messagerie interne et externe soit automatiquement lancé lors de l'ouverture du fichier excel "boite à outils".

Dans l'idéal il faudrait que le code lance Oultlook lorsque ce dernier ne l'est pas et quand même temps il vérifie si l'application n'est pas déjà lancée et dans ce cas : le code ne commande pas à Outlook de s'ouvrir.

Je vous remercie par avance pour votre précieuse aide

Amicalement.

Horus.

Bonjour,

à tester,

Set appOutlook = CreateObject("Outlook.Application")
If appOutlook.Explorers.Count = 0 Then
  ' l'application n'est pas ouvert
Else
  ' l'application est ouvert
End If

Bonjour SabV,

J'ai mis ton code dans WORKBOOK_OPEN et j'ai également activé la référence Outlook 16.0

Malheureusement rien ne se passe lorsque j'ouvre mon fichier excel.

Je te joins mon fichier pour que tu y vois plus clair

Encore merci

Horus

Bonjour,

vous n'y avez pas ajouter votre code ?

Bonsoir SabV

Si le code est dans "THISWORKBOOK" :/

Cordialement,

Baptiste K.

Bonjour,

voici le code à tester,

Private Sub Workbook_Open()
test_Outlook_Ouvrir
End Sub

Sub test_Outlook_Ouvrir()
'Nécessite d'activer la référence "Microsoft Outlook Library"
Dim objOL As Outlook.Application
Set appOutlook = CreateObject("Outlook.Application")
If appOutlook.Explorers.Count = 0 Then
    Set objNameSpace = appOutlook.GetNamespace("MAPI")
    Set objFolder = objNameSpace.GetDefaultFolder(6)            ' olFolderInbox
    Set objExplorer = appOutlook.Explorers.Add(objFolder, 0)    ' olFolderDisplayNormal
    With objExplorer
        .Activate
        .WindowState = 0   ' olMaximized
        '.WindowState = 1   ' olMinimized
    End With
End If
Set objNameSpace = Nothing
Set objFolder = Nothing
Set objExplorer = Nothing
Set appOutlook = Nothing
End Sub

Ça fonctionne parfaitement !

Merci beaucoup Sabv

Rechercher des sujets similaires à "lancer outlook 2010 automatiquement"