Attribute VB_Name = "modTaskItem" Option Explicit Sub CreateTaskItem() Dim objItem As TaskItem Set objItem = Application.CreateItem(olTaskItem) With objItem .Subject = "Anforderung" .Body = "Beschreibung der Anforderung." .Complete = False .StartDate = Now + 30 .DueDate = "30.03.2016" .Importance = olImportanceLow .Owner = "Lisa Müller" .PercentComplete = 40 .Status = olTaskWaiting .Display .ShowCategoriesDialog End With Set objItem = Nothing End Sub Sub SendStatusReport() Dim objTask As TaskItem Dim objInspector As Inspector Dim objReport As MailItem Set objInspector = Application.ActiveInspector If Not TypeName(objInspector) = "Nothing" Then If TypeName(objInspector.CurrentItem) = "TaskItem" Then Set objTask = objInspector.CurrentItem Set objReport = objTask.StatusReport With objReport .Subject = objTask.Subject .To = objTask.Owner .CC = "Hans Schmidt" .Display '.Send End With Set objReport = Nothing Set objTask = Nothing Else MsgBox "Keine Aufgabe geöffnet!" End If Else MsgBox "Keine Aufgabeordner geöffnet!" End If Set objInspector = Nothing End Sub Public Sub ChangeTasksPriority() Dim objTask As TaskItem Dim objSelection As Selection Dim objFolder As MAPIFolder Dim iLoop As Integer Set objFolder = ActiveExplorer.CurrentFolder If objFolder.DefaultItemType = olTaskItem Then Set objSelection = ActiveExplorer.Selection For iLoop = 1 To objSelection.Count Set objTask = objSelection(iLoop) objTask.Importance = olImportanceHigh objTask.Save Next Set objSelection = Nothing End If Set objFolder = Nothing End Sub