Tilgå en andens kalender ved hjælp af VB

Sæt en reference til Microsoft Outlook 9.0 Object Library og brug følgende kode. Team er den konto du vil tilgå.

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


VH CK

Den brokker sig lidt over : CreateRecipient

Ja det er sikkert parameteren Team. Det er en konto på min exchange server. På din vel den hedde noget andet.

VH CK

Nå nu fandt jeg noget på msdn man tak for det.