Ouvrir et afficher outlook (Sans ref, ni destination)

Bonjour au Forum,

Je bloque sur une macro très courte. Mon objectif est d'ouvrir et afficher outlook sans faire appel aux "Object library", ni renseigné la destination de l'application dans une variable ("C:\\Programme...etc.)

J'ai essayer avec le code suivant :

Sub Outlk()
Dim myolapp As Outlook.Application
Set myolapp = CreateObject("Outlook.Application")

End Sub

Mais sa ne fonctionne pas, il y'a bien quelque chose qui se passe mais en fond (pas visible) et outlook ne s'ouvre pas. J'aimerai simplement que la macro ouvre outlook et l'affiche.

Merci à ceux qui voudront bien m'éclairer.

Cdlt,

Bonjour,

Je n'ai pas Outlook ... mais je t'ai adapté la macro suivante qui fonctionne avec Word ...

A tester :

Sub TestOutlk()
Dim Outlk As Object
On Error Resume Next
Set Outlk = GetObject(, "Outlook.Application")
  If Err.Number = 429 Then
    Err.Clear
    Set Outlk = CreateObject("Outlook.Application")
  End If
  If Not Outlk Is Nothing Then
     Outlk.Visible = True
  Else
     MsgBox "Pas possible d'ouvrir Outlook"
  End If
End Sub

En espèrant que cela t'aide ...

Hey,

Merci Monsieur Bond mais malheureusement sa donne le même résultat que précédemment.

En fait j'ai ça (cf image) qui s'affiche dans ma barre de tâche à droite (à gauche de l'horloge). C'est un chargement, il apparaît reste quelques secondes et disparaît. Mais aucune fenêtre outlook ne s'affiche .

Cdlt,

Désolé que cela ne fonctionne pas avec Outlook ...

Car je viens de re-tester avec Word ... et çà fonctionne ...

Malheureusement, je n'ai pas d'autres idées à te proposer ...

James007 a écrit :

Désolé que cela ne fonctionne pas avec Outlook ...

Car je viens de re-tester avec Word ... et çà fonctionne ...

Malheureusement, je n'ai pas d'autres idées à te proposer ...

Merci quand même je vais creuser.. notamment sur le .visible mais c'est assez étonnant qu'on puisse le faire avec word mais pas outlook.

Cdlt,

VH_AE a écrit :

Merci quand même je vais creuser.. notamment sur le .visible mais c'est assez étonnant qu'on puisse le faire avec word mais pas outlook.

Cdlt,

Tu as raison ... c'est assez étonnant ...

Et en même temps ... je m'n suis rendu compte avec VBA pour Word ... comme les équipes de développeurs sont séparées ...

il y a pas mal de choses qu'ils n'ont pas du tout harmonisés ... puisque chaque team fait son truc de son côté ....

Re,

Mon bonheur :

Sub Outlk()
Dim oOLApp As Outlook.Application
Dim oOLXplr As Outlook.Explorer
Dim oOLFldInbox As Outlook.MAPIFolder, oOLFld As Outlook.MAPIFolder

' Tenter de récupérer une instance d'Outlook
On Error Resume Next
Set oOLApp = GetObject(, "Outlook.Application")
On Error GoTo 0

' Si échec tentative, créer Outook
If oOLApp Is Nothing Then
    Set oOLApp = CreateObject("Outlook.Application")
End If

' Référencer le dossier Outlook Inbox
Set oOLFldInbox = oOLApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

' S'assurer qu'on a une fenêtre Outlook visible
If oOLApp.Explorers.Count = 0 Then
   Set oOLXplr = oOLApp.Explorers.Add(oOLFldInbox)
   oOLXplr.Display
Else
   ' Force l'affichage de la première fenêtre d'exploration
   Set oOLXplr = oOLApp.Explorers(1)
   oOLXplr.Display
End If

End Sub

Cdlt,

Re,

Bien Vu ... !!! VH_AE ...

Sympa de partager la solution avec le Forum ... pour tous les futurs lecteurs ...

Re,

Oui oui c'est normal parque il fallait mettre dans la recherche google "Ouvrir fenêtre Outlook" sinon tu trouve pas

Ah je me disais bien qu'il y'avais des différences entre outlook, excel, word et access. Bon l'important c'est qu'on puisse toujours trouver des solutions