Oprette Tasks i Outlook fra Database

You must have a reference to Outlook in your project.

Function CreateTask() As Boolean
Dim oApp As Outlook.Application
Dim oNameSpace As Outlook.NameSpace
Dim oTask As Outlook.TaskItem

    On Error GoTo Proc_Err

    Set oApp = CreateObject("Outlook.Application")
    Set oTask = oApp.CreateItem(olTaskItem)
   
    oTask.StartDate = #12/4/2004#
    oTask.DueDate = #12/4/2004#
    oTask.Subject = "New Task"
    oTask.Body = "Some task text"
   
    oTask.Save
   
   
Proc_Exit:

    On Error Resume Next
       
    Exit Function

Proc_Err:

    Resume Proc_Exit
   
End Function

en lille bonus til 10 point ekstra: hvordan aflæser jeg de tasks som allerede ligger i Outlook?

Function ReadTask() As Boolean
Dim oApp As Outlook.Application
Dim oNameSpace As Outlook.NameSpace
Dim oTasks As MAPIFolder
Dim oTask As Outlook.TaskItem

    On Error GoTo Proc_Err

    Set oApp = CreateObject("Outlook.Application")
    Set oNameSpace = oApp.GetNamespace("MAPI")
    Set oTasks = oNameSpace.GetDefaultFolder(olFolderTasks)
   
    For Each oTask In oTasks.Items
   
        Debug.Print oTask.Subject
       
    Next
   
   
Proc_Exit:

    On Error Resume Next
       
    Set oTask = Nothing
    Set oTasks = Nothing
    Set oNameSpace = Nothing
    Set oApp = Nothing

   
    Exit Function

Proc_Err:

    Resume Proc_Exit
    Resume Next
End Function

Function ReadTask() As Boolean
Dim oApp As Outlook.Application
Dim oNameSpace As Outlook.NameSpace
Dim oTasks As MAPIFolder
Dim oTask As Outlook.TaskItem

    On Error GoTo Proc_Err

    Set oApp = CreateObject("Outlook.Application")
    Set oNameSpace = oApp.GetNamespace("MAPI")
    Set oTasks = oNameSpace.GetDefaultFolder(olFolderTasks)
   
    For Each oTask In oTasks.Items
   
        Debug.Print oTask.Subject
       
    Next
   
Proc_Exit:

    On Error Resume Next
       
    Set oTask = Nothing
    Set oTasks = Nothing
    Set oNameSpace = Nothing
    Set oApp = Nothing   
    Exit Function

Proc_Err:

    Resume Proc_Exit
   
End Function

du er jo gud:D

:o)

tak og god weekend