' create a task item in outlook
' taken from Example02.vb
Private Sub Example02Main()

   ' start outlook
   Dim outlookApplication = New Outlook.Application()

   ' create a new TaskItem
   Dim newTask As Outlook.TaskItem = outlookApplication.CreateItem(OlItemType.olTaskItem)

   ' configure the task at hand and save it.
   newTask.Subject = "NetOffice Sample Task"
   newTask.Body    = "The Task is created by NetOffice Outlook Example02.vb"
   newTask.DueDate = DateTime.Now
   newTask.Importance = OlImportance.olImportanceHigh


   'close outlook and dispose

End Sub

Last edited Jun 13, 2012 at 11:00 AM by SebastianDotNet, version 6