Outlook kalender funktion

Hej

Sæt en reference til Microsoft Outlook 9.0 Object Library så virker følgende kode.

Private Sub Command1_Click()
    Dim oApp As Outlook.Application
    Dim oNs As NameSpace
    Dim oFolder As MAPIFolder
    Dim oItem As Outlook.AppointmentItem
    Set oApp = New Outlook.Application
    Set oNs = oApp.GetNamespace("MAPI")
    Set oFolder = oNs.GetDefaultFolder(olFolderCalendar)
   
    For Each oItem In oFolder.Items
        MsgBox oItem.Body
    Next
   
    Set oNs = Nothing
    Set oApp = Nothing
End Sub


VH CK

Oki fint nok.