Outlook

Bonjour

je tourne en rond depuis quelques heures et j'ai pas mal essayé de vouloir simplement ouvrir outlook ( etre sur la page d'acceuil d'outlook ) et le réduire dans la barre de tache , j'ai tenté également avec l'instruction du type "Activeworkbook.follow hyperlink " et le chemin d'accès récupéré depuis les propriétés d'outlook mais rien n'y fait .

Il y a t 'il une façon élégante d'arriver à faire cela ?

En vous remerciant mille fois par avance si cela etait possible.

Cordialement.

Bonjour,

voici un exemple,

Sub Ouvre_Outlook()
'il est nécessaire de cocher la référence à Microsoft Outlook x.x

Dim myolapp As Outlook.Application
Dim Appli As Object, SessionOutlook

' il est nécessaire de spécifier le chemin de l'exécutable OutLook
' adapter ce chemin
Const Chemin As String = "C:\Program Files (x86)\Microsoft Office\Office14\OUTLOOK.exe"

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é"
        'ouvre une session et l'affiche
        SessionOutlook = Shell(Chemin, 1)
    Else
        Set myolapp = CreateObject("Outlook.Application")
        'affiche la session actuellement ouverte
        myolapp.ActiveWindow.Activate
    End If
End Sub

Merci pour avoir pris le temps de répondre à ma question I20100 , votre code marche bien je suis toutefois tombé sur un problème assez recurrent qui est de pouvoir afficher outlook en arrière plan ou réduit sur la barre de tache ,dans votre code l'instruction

myolapp.ActiveWindow.Activate

consiste t elle a laisser outlook ouvert au premier plan ?

Merci

Merci pour avoir pris le temps de répondre à ma question I20100 , votre code marche bien je suis toutefois tombé sur un problème assez recurrent qui est de pouvoir afficher outlook en arrière plan ou réduit sur la barre de tache ,dans votre code l'instruction

myolapp.ActiveWindow.Activate

consiste t elle a laisser outlook ouvert au premier plan ?

Merci

oui, ignore cette ligne pour laisser excel au premier plan.

Rechercher des sujets similaires à "outlook"