Dim appOutLook As Microsoft.Office.Interop.Outlook.Application
        Dim taskOutLook As Microsoft.Office.Interop.Outlook.TaskItem
 
        appOutLook = CreateObject("Outlook.Application")
 
 
        taskOutLook = appOutLook.CreateItem( _
        Microsoft.Office.Interop.Outlook.OlItemType.olTaskItem)
 
 
        With taskOutLook
 
            .Subject = Me.txtBetreff.Text
            .Body = Me.txtAufgabe.Text
 
 
 
            Select Case Me.cbPro.Text
                Case "Niedrig"
                    .Importance = Outlook.OlImportance.olImportanceLow
                Case "Hoch"
                    .Importance = Outlook.OlImportance.olImportanceHigh
                Case Else
                    .Importance = Outlook.OlImportance.olImportanceNormal
            End Select
 
 
            Dim dDatum As Date = Me.dtpDatumAufgabe.Value
            Dim sDatum As String = dDatum.ToString("dd.MM.yyyy")
            .DueDate = sDatum
 
 
            .StartDate = sDatum
 
 
            If Me.ckbErinnerung.Checked = True Then
                Dim dErinnerungDatum As Date = Me.dtpDatumErinnerung.Value
                Dim sErinnerungDatum As String = dErinnerungDatum.ToString( _
                  "dd.MM.yyyy")
                Dim sErinnerung As String = sErinnerungDatum & " " & _
                Me.cbZeitErinnerung.Text
                .ReminderTime = sErinnerung
                .ReminderPlaySound = True
                .ReminderSet = True
            Else
                .ReminderSet = False
                .ReminderPlaySound = False
            End If
 
            .Save()
 
        End With
 
 
        taskOutLook = Nothing
        appOutLook = Nothing

Frank

Micke