Linking to an Outlook calendar

[ejy]

What code will allow me to link to a calendar in Microsoft Outlook, so the user can open it up and view?

[RobDog888]

To do that you need to use the Outlook Object Model. I have several code examples on the forums. So, you only want to display the Calendar?

Moved from Classic VB forum.

Edit: What version of Outlook are you running?

[RobDog888]

Here is some basic code to display the Calendar folder.

Option Explicit
'Add a reference to MS Outlook xx.0 Object Library
 
Private Sub Command1_Click()
    
    Dim oApp As Outlook.Application
    Dim oFolder As Outlook.MAPIFolder
    
    Set oApp = New Outlook.Application
    Set oFolder = oApp.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar)
    oFolder.Display
    
End Sub