VBA Outlook - Email für den Empfänger kennzeichnen

Question

Hallo zusammen,

ich würde gerne aus Excel heraus eine E-Mail in Outlook erstellen und diese für den Empfänger zur Nachverfolgung (''Follow Up'') mit einer Erinnerung versehen. Ich finde aber leider nirgendwo den entsprechenden Code dazu. ,,.FlagDueBy'' und ,,.FlagStatus=olFlagMarked" kennzeichnet die Nachricht immer nur für mich selbst, was ich aber nicht möchte.

Gibt es dazu einen Befehl oder existiert der gar nicht?

Danke und beste Grüße,

Answer 1

Kann mir da niemand weiterhelfen? 

Danke nochmal!

Answer 2

Hallo Zusammen,

klar, ein uralter Thread, aber bei der eigenen Recherche habe ich dazu auch zu wenig gefunden, daher schreibe ich doch noch eine Antwort.

Hier ist ein kleiner Code, der auch diese Frage beantwortet:

Sub MailMöglichKeit()
  ' Deklaration und Einsetzung Mail-Objekt
    Dim oOutApp As Object, oNachricht As Object
    Set oOutApp = CreateObject("Outlook.Application")
    Set oNachricht = oOutApp.CreateItem(0)

        With oNachricht
             ' der Empfänger
             .To = "Empfä[e-mail]"
             ' der Kopieempfänger
             .cc = "[e-mail]"
             ' Betreff
             .Subject = "Betreff"
             ' Anlage
             .Attachments.Add "Pfad und Dateiname"
             ' Falls ein anderes Postfach verwendet werden soll
             .SentOnBehalfOfName = "[e-mail]“"
             ' der Text der Mail
             .body = "Mailtext"
             ' Übermittlungsbestätigung False/True
             .OriginatorDeliveryReportRequested = False    ' keine Übermittlungsbestätigung
             ' Lesebestätigung False/True
             .ReadReceiptRequested = False   ' keine Lesebestätigung
             ' Kopie im Ordner gesendete Objekte
             .DeleteAfterSubmit = True       ' keine Kopie
             ' Nachverfolgungskennzeichen beim Empfänger
             .FlagRequest = "Text des Nachverfolgungskennzeichens"
             ' Erinnerung einschalten False/True
             .ReminderSet = True   ' Erinnerung einschalten
             ' Erinnerungszeit festlegen
             .ReminderTime = Now + 1 ' Jetzt in einem Tag
             ' Hinweis: wenn man sich die Mail vor dem Senden ansieht, dann ist das Häckchen bei
             '          für den Empfägner Kennzeichnen NICHT gesetzt, aber die Erinnerung schon.
             '          der Empfänger erhält trotzdem eine Erinnerung! Es funktioniert!
             .display     ' Anzeigen
             .Send        ' Senden
        End With
        Set oNachicht = Nothing

End Sub