makro til at åbne form i samme vindue

Måske kan du bruge GetObject istedet for CreateObject ?

Set myOlApp = GetObject(, Outlook.Application)

Kan ikke få det til at virke?

Hvorfra kører du Macroen ?

Jeg spørger for en anden, hvor det er meningen den skal køres fra en knap. Jeg kører suben direkte i en testmakro.

Kører macroen fra Oulook eller VB eller ... ?

i testen køres fra vb.

Så er det nok svært at få åbnet i samme vindue, da du starter en applikation.

tak for hjælpen, problemet er løst.

Sub Shortcutcalender()
  Dim myOlApp As Application
  Dim myNameSpace As NameSpace
  Dim myFolder As MAPIFolder
  Dim myItems As Items
  Dim myItem As Object

Dim objExplorer As Explorer

  Set myOlApp = CreateObject("Outlook.Application")
  Set myNameSpace = myOlApp.GetNamespace("MAPI")
  Set myFolder = _
    myNameSpace.Folders("Public Folders")
  Set myFolder1 = myFolder.Folders("All Public Folders")
  Set myFolder2 = myFolder1.Folders("National Practices")
  Set myFolder3 = myFolder2.Folders("Europe")
  Set myFolder4 = myFolder3.Folders("DK")
  Set myFolder5 = myFolder4.Folders("TEST")
  Set myFolder6 = myFolder5.Folders("OEB")
  Set myFolder7 = myFolder6.Folders("Gruppe Kalender")
  Set myFolder8 = myFolder7.Folders("Shortcut")

Set objExplorer =myOlApp.ActiveExplorer
Set objExplorer.CurrentFolder = myFolder8

 
'  Set myItem = myItems.Add("IPM.Task.MyForm")
' myItem.Display

  Set myOlApp = Nothing
  Set myNameSpace = Nothing
  Set myFolder = Nothing
  Set myItems = Nothing
  Set myItem = Nothing
End Sub