Flagstatus eines Meetingtems nicht abfragbar

09.10.2025 12:43:56

Klaus

Hallo Forumsgemeinde,

ich verzweifele an einem Problem, zu dem ich mir schon fast die Finger bei der Suche nach einer Lösung wundgetippt habe:

Ich manage meinen Posteingang in der Firma per VBA über Excel.

Eine Makro fragt von jedem Item (Mail- und MeetingItems) den Flagstatus ab. Ist die Mail als erledigt markiert (grüner Haken / Flagstaus = 1) soll sie gespeichert und verschoben werden.

Das klappt bei allen MailItems gut nur bei den MeetingItems nicht. Wenn ich dort den Flagtatus abfrage ist er immer 0 (auch in der Überwachung), trotz des grünen Hakens.

Ich bin die Items per Schleife und mit Bedingung durchgegangen; ohne Erfolg. Ein Filter per "Restrict" brachte auch keinen Erfolg. Die abgehakten MeetingItems werden nicht als solche erkannt.

Hat jemand von euch eine Idee / Trick, wie ich dem MeetingItem die Info entlocken kann ob der grüne Haken gesetzt ist? Irgendwo in dem Item muss ja die Info dazu existieren, sonst würde der Haken ja nicht angezeigt bzw. wäre flüchtig.

Grüße aus dem Ruhrgebiet

Klaus

AW: Flagstatus eines Meetingtems nicht abfragbar

09.10.2025 16:25:56

JoWE

Hallo Klaus,
zeig doch bitte zum Verständnis den Code.
Gruß
Jochen

AW: Flagstatus eines Meetingtems nicht abfragbar

10.10.2025 22:28:44

Klaus

Hallo Jochen,

schön, dass du dich mit meinem Problem befasst.

Schon einmal Danke für deine Mühe.

Die Originaldatei habe ich auf dem Firmenrechner und daheim nicht verfügbar.

Ich habe aber (dank der KI) eine entsprechendes Makro erstellen lassen.

Das Problem kann man dort nachvollziehen:

Sub FlagStatusAnzeigen()

' Ein Verweis auf Outlook Object xx.x Library ist erforderlich!

Dim objOutlook As Object
Dim objNamespace As Object
Dim objFolder As Object
Dim objMail As Object
Dim i As Integer

On Error Resume Next
Set objOutlook = GetObject(, "Outlook.Application")
If objOutlook Is Nothing Then
Set objOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0

Set objNamespace = objOutlook.GetNamespace("MAPI")

Set objFolder = objNamespace.GetDefaultFolder(6)

For Each objMail In objFolder.Items

Debug.Print "Betreff: " & objMail.Subject

' folgende Zeile ergibt bei gesetztem grünen Haken bei MailItems eine "1"
' aber bei einem MeetingItem mit gesetztem grünen Haken eine "0" :-(

Debug.Print "Flagstatus: " & objMail.FlagStatus

Next objMail

' Speicher freigeben
Set objMail = Nothing
Set objFolder = Nothing
Set objNamespace = Nothing
Set objOutlook = Nothing
End Sub

Wie gesagt, ich benötige nur die Info, ob ein Termin oder eine Besprechungsanfrage in Outlook mit dem grünen Haken versehen wurde oder nicht.

Schönes Wochenende aus dem Ruhrpott

Klaus

AW: Sorry, bin überfragt! ...

11.10.2025 17:47:37

JoWE

....evtl. kann jemand anderer helfen?
Gruß
Jochen

AW: Sorry, bin überfragt! ...

11.10.2025 18:29:45

Jan

Hallo

Probiere mal dies , ist aber ungetestet.



For Each objMail In objFolder.Items

    If TypeName(objMail) = "MailItem" Then

        Debug.Print "Betreff: " & objMail.Subject

        Debug.Print "Flagstatus: " & objMail.FlagStatus

    End If

Next objMail

AW: Sorry, bin überfragt! ...

12.10.2025 14:00:48

Klaus

Hallo Jan,

dein Code funktioniert. Das Problem ist nur,

dass eine Terminanfrage kein MailItem sondern ein MeetingItem ist.

Und da funktioniert es leider nicht.

Aber danke an euch beiden für eure Zeit und Mühe.

Eventuell hat ja jemand noch eine Idee, wie man so einem MeetingItem

die Info entlockt.

Ein schönes Restwochenende euch allen.

Klaus

AW: Sorry, bin überfragt! ...

12.10.2025 15:36:13

Jan

Hallo

Den Flagstatus es nur bei MailTtem und nicht bei MeetingItem!!!
Vielleicht hilft dir dies:

Dim objItem As Object

Dim objMail As Outlook.MailItem

Dim objMeeting As Outlook.MeetingItem

Dim objAppt As Outlook.AppointmentItem



For Each objItem In objFolder.Items

    

    Select Case TypeName(objItem)

    

        Case "MailItem"

            Set objMail = objItem

            Debug.Print "Mail: " & objMail.Subject

            Debug.Print "   FlagStatus: " & objMail.FlagStatus

            

        Case "MeetingItem"

            Set objMeeting = objItem

            Debug.Print "Meeting-Einladung: " & objMeeting.Subject

            

            ' Zugehörigen Termin holen (falls vorhanden)

            On Error Resume Next

            Set objAppt = objMeeting.GetAssociatedAppointment(True)

            On Error GoTo 0

            

            If Not objAppt Is Nothing Then

                Debug.Print "   BusyStatus: " & objAppt.BusyStatus

                Debug.Print "   MeetingStatus: " & objAppt.MeetingStatus

                Debug.Print "   ResponseStatus: " & objAppt.ResponseStatus

            Else

                Debug.Print "   (Kein zugehöriger Termin gefunden)"

            End If

            

    End Select

    

Next objItem

AW: Sorry, bin überfragt! ...

13.10.2025 12:44:56

JoWE

Hallo Jan,
das scheint allerdings nicht komplett zu sein.
Warum nur so ein Schnippsel und kein komplettes Makro?
Gruß
Jochen

AW: Sorry, bin überfragt! ...

13.10.2025 17:15:46

Klaus

Hallo zusammen,

ich konnte heute das Makro von Jan anpassen und testen.

Der Flagstatus der Terminanfrage bleibt zwar immer noch im Dunkeln

aber den Bearbeitungsstatus bekomme ich schon einmal angezeigt.

Es scheint so, als ob ich mich damit zufrieden geben muss.

Bis hier hin schon mal meinen Dank an alle Helfer.

Gruß

Klaus

Flagstatus eines Meetingtems nicht abfragbar

Forumthread: Flagstatus eines Meetingtems nicht abfragbar

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Flagstatus eines Meetingtems nicht abfragbar

Forumthread: Flagstatus eines Meetingtems nicht abfragbar

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread