Åbne outlook kalenderen fra acces

Den her virker i 2003, så mon ikke også den er ok i 2007?

(husk først at oprette en reference til Outlook under Tools/References)

Sub VisKalender()
  Dim objOutlook
  Dim objNamespace
  Dim objFolder
  Dim myExplorer
 
  Set objOutlook = CreateObject("Outlook.Application")
  Set objNamespace = objOutlook.GetNamespace("MAPI")
  Set objFolder = objNamespace.GetDefaultFolder(olFolderCalendar)

  Set myExplorer = objFolder.GetExplorer
  myExplorer.Display

  Set objOutlook = Nothing
  Set objNamespace = Nothing
  Set objFolder = Nothing
  Set myExplorer = Nothing
End Sub

100 tak :-)

Velbekomme og tak for point ;o)