Senden von E-Mail mit Flag funktioniert nicht

Question

Ich habe ein Outlook 2007 Makro, das eine E-Mail mit Flag für den Empfänger sendet, aber es funktioniert nicht mehr.

Ich habe den Code versehentlich geändert und jetzt funktioniert es nicht mehr.

Der Empfänger sieht die E-Mail nicht in TO DO und es wird nicht rot in der E-Mail-Liste angezeigt.

Sub fff() 
    Dim outApp As Object 
    Dim OutMail As Object 

    Dim datDue As Date 
    datDue = DateAdd("d", 7, Date) 


    Set OutMail = outApp.CreateItem(0) 

    With OutMail 
     .To = "me@yyy.com" 
     .Subject = "test" 
     .HtmlBody = "msg" 

     .Importance = olImportanceHigh 
     .FlagStatus = olFlagMarked 
     .FlagRequest = "Follow up" 
     .ReminderTime = datDue & " 17:00 PM" 
     .ReminderOverrideDefault = True 
     .ReminderSet = True 
     .TaskStartDate = Date 
     .TaskDueDate = datDue 
     .Save 
     .Send 

    End With 

End Sub 

Answer 1

Ihre variable OutApp nicht sinnvoll und sollte Application sein, wie Sie diese direkt in Outlook verwenden.

Ich teste gerade diesen Code und es funktioniert gut für mich (Outlook 2013):

Sub wittman() 
    Dim OutMail As MailItem 
    Dim datDue As Date 

    datDue = DateAdd("d", 7, Date) 
    Set OutMail = Application.CreateItem(0) 

    With OutMail 
     .To = "test@mail.com" 
     .Subject = "test" 
     .HTMLBody = "msg" 

     .Importance = olImportanceHigh 
     .FlagStatus = olFlagMarked 
     .FlagRequest = "Follow up" 
     .ReminderTime = datDue & " 17:00 PM" 
     .ReminderOverrideDefault = True 
     .ReminderSet = True 
     .TaskStartDate = Date 
     .TaskDueDate = datDue 
     .Save 
     .Send 
    End With 'OutMail 
End Sub 

Answer 2

Sie eine Aufgabe an einen Delegierten schicken:

Sub AssignTask() 
Dim myItem As Outlook.TaskItem 
Dim myDelegate As Outlook.Recipient 
Set MyItem = Application.CreateItem(olTaskItem) 
MyItem.Assign 
Set myDelegate = MyItem.Recipients.Add("Eugene Astafiev") 
myDelegate.Resolve 
If myDelegate.Resolved Then 
    myItem.Subject = "Prepare Agenda for Meeting" 
    myItem.DueDate = Now + 30 
    myItem.Display 
    myItem.Send 
End If 
End Sub 

Nicht vergessen "zu ersetzen Eugene Astafiev 'mit einem gültigen Empfängernamen vor dem Ausführen dieses Beispiels.

Sie können auch die MarkAsTask-Methode der MailItem-Klasse verwenden, um ein MailItem-Objekt als eine Aufgabe zu markieren und ein Aufgabenintervall für das Objekt zuzuweisen. Durch den Aufruf dieser Methode wird der Wert mehrerer anderer Eigenschaften abhängig vom Wert in MarkInterval festgelegt. Weitere Informationen zu den durch Festlegen von MarkInterval festgelegten Eigenschaften finden Sie unter OlMarkInterval Enumeration.

Sie können den How to set a flag to follow up using VBA Artikel hilfreich finden.