Dim oApp As New Outlook.Application

Private Sub setTasks(ByVal subject As String, ByVal status As Integer, ByVal _
  startdate As Date, ByVal duedate As Date, ByVal body As String, ByVal _
  reminderset As Boolean, Optional ByVal percentcomplete As Integer = 0, _
  Optional ByVal remindertimedate As Date = Nothing, Optional ByVal _
  remindertimetime As Date = Nothing)
 
Try
 
Dim nTask As Outlook.TaskItem = DirectCast(oApp.CreateItem( _
  Outlook.OlItemType.olTaskItem), Outlook.TaskItem)
 
nTask.Subject = subject
 
... (hier werden nur der Textkörper, etc. gefüllt)
 
nTask.ReminderSet = reminderset
 
nTask.ReminderTime = FormatDateTime(remindertimedate & " " & remindertimetime, _
  DateFormat.GeneralDate)
 
nTask.Save()
 
Catch ex As Exception
 
Msgbox(ex.ToString)
 
End Try
 
End Sub