Exchange

En af måderne er at bruge Outlooks object model. Jeg har lavet lidt kode der gør det du beder om, du skal blot huske at sætte en reference til Microsoft Outlook 10.0 Objetc library (10.0 er til Office 2000)

Private Sub Command1_Click()
    Dim oApp As Outlook.Application
    Dim itm As TaskItem
    Dim user As Recipient
    Dim tasks As Items
    Dim ns As NameSpace
    Dim fld As MAPIFolder
    Set oApp = New Outlook.Application
    Set ns = oApp.GetNamespace("MAPI")
    Set user = ns.CreateRecipient("ck@intranet.kde")
    Set fld = ns.GetSharedDefaultFolder(user, olFolderTasks)
   
    Set tasks = fld.Items.Restrict("[Complete]=false")
   
    For Each Item In tasks
        MsgBox Item.Subject
    Next
   
    Set fld = Nothing
    Set user = Nothing
    Set ns = Nothing
    Set oApp = Nothing
End Sub

VH CK