Send TASK til outlook

Den her sender en mail:

Function sendPost(adr As String, fil As String, besk As String) As Boolean

 
  Dim objOl As New Outlook.Application
    Dim objPost As MailItem
    Dim vedhæftet As Attachments
   
   
    Set objPost = objOl.CreateItem(olMailItem)
   
    Set vedhæftet = objPost.Attachments
    vedhæftet.Add fil
   
    With objPost
        .Subject = "Emnefelt"
        .To = adr
        .Body = besk
        '.Send
        .Display
    End With
 
    Set objPost = Nothing
    Set vedhæftet = Nothing
    sendPost = True
Exit Function

errhandler:
   
    Dim erNr As String, erMsg As String
   
    erNr = Err.Number
    erMsg = Err.Description
    ErrorHandle.errLog erNr, erMsg, NAVN
   
    Set objPost = Nothing
    Set vedhæftet = Nothing
    sendPost = False

End Function

Niels

en lille kode til at gemme en ny opgave:

Sub opg()
Dim objOl As New Outlook.Application
    Dim objtask As Outlook.TaskItem
    Set objtask = objOl.CreateItem(olTaskItem)
    objtask.Subject = "husk"
    objtask.Save
End Sub

du skal desuden huske at sætte din reference til microsoft outlook

Niels

'nih' Kan ikke rigtig få din kode til at virke, gider smide den ind i en eksempel db og sende den til mig, så jeg kan finde udaf hvad jeg laver galt.
Har sat reference til Microsoft Outlook 9.0 library
jan@schoesler.com

schoesler  -> sendt et eks.

du kan uddelegere en opgave til en anden således:

Private Sub Kommandoknap7_Click()

    Dim objOl As New Outlook.Application
    Dim objtask As Outlook.TaskItem
   
    Set objtask = objOl.CreateItem(olTaskItem)
   
    objtask.Recipients.Add (InputBox("indtast email"))
    objtask.Assign
    objtask.Subject = Me.txtNyOpgave
    objtask.Body = Me.txtNote
    objtask.Categories = Me.Tekst5
   
    objtask.Send

End Sub

'nih' tak det virker.