Dim Outlook As New Microsoft.Office.Interop.Outlook.Application()
        Dim Aufgabe As Microsoft.Office.Interop.Outlook.TaskItem
 
        Aufgabe = Outlook.CreateItem( _
          Microsoft.Office.Interop.Outlook.OlItemType.olTaskItem)
 
        Aufgabe.Subject = txtBetreff.Text
        Aufgabe.Body = txtNachricht.Text
 
        Aufgabe.Owner = "Empfangsuser@test.de"
        Aufgabe.Recipients.Add("Empfangsuser@test.de")
        Aufgabe.Assign()
 
        Aufgabe.Send()
 
        MsgBox.Show("Aufgabe wurde gesendet!")
 
        Aufgabe = Nothing
        Outlook = Nothing