Outlook 2013 Kalendereintrag per Regel akzeptieren und löschen

Hallo elchapo,

kann nur clientseitig arbeiten, habe zum Server keinen Zugriff.

Die Methode habe ich so übernommen und funktioniert echt super. Genau den Effekt den ich mir vorgestellt habe.
Allerdings werden jetzt alle Terminanfragen sofort eingetragen.
Jetzt müsste im Code noch eine Untersuchung der Betreffzeile stattfinden. Und nur wenn da eine bestimmte Nummer drin steht, dann soll das so gemacht werden.

Das ist die Methode:

Sub AcceptMeeting()
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim myMtgReq As Outlook.MeetingItem
Dim myAppt As Outlook.AppointmentItem
Dim myMtg As Outlook.MeetingItem

Set myNameSpace = Application.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myMtgReq = myFolder.Items.Find("[MessageClass] = 'IPM.Schedule.Meeting.Request'")
If TypeName(myMtgReq) <> "Nothing" Then
Set myAppt = myMtgReq.GetAssociatedAppointment(True)
Set myMtg = myAppt.Respond(olResponseAccepted, True)
myMtg.Send
End If
End Sub

Meine Kenntnisse sind aber nicht so tiefgreifend, um das jetzt hier einbauen zu können.

Gruß
Marcus

Komme hier nicht weiter ...

If TypeName(myMtgReq) <> "Nothing" Then
For Each myMtgReq in ?????
If myMtgReq.Subject = "test" Then
Set myAppt = myMtgReq.GetAssociatedAppointment(True)
Set myMtg = myAppt.Respond(olResponseAccepted, True)
myMtg.Send
End If
Next
End If

Ich verzweifle fast. Ich tue mich so schwer damit...

So habe ich das jetzt und es funktioniert nicht.

For Each m In myMtgReq
If m.Subject = "test" Then
Set myAppt = myMtgReq.GetAssociatedAppointment(True)
Set myMtg = myAppt.Respond(olResponseAccepted, True)
myMtg.Send
End If
Next

-> Objekt unterstützt diese Methode ... nicht...

Was mach ich denn noch falsch?

For Each m In myMtgReq
If m.Subject = "test" Then
Set myAppt = m.GetAssociatedAppointment(True)
Set myMtg = myAppt.Respond(olResponseAccepted, True)
myMtg.Send
End If
Next

Aber der Anfang der Schleife ist glaube ich schon fehlerhaft. Muss das m nicht noch deklariert werden?

ja, ich habe ja gesagt ich bin nicht so gut ...
Allerdings weiß ich auch nicht, wo ich so etwas spezielles in kürzester Zeit nachlesen soll.

Als was muss ich denn dann mymtgReq deklarieren?

So, ich habe jetzt ein wenig getestet und probiert und folgendes Ergebnis erzielt:

Sub AcceptMeeting()
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim myAppt As Outlook.AppointmentItem
Dim myMtg As Outlook.MeetingItem
Dim myMail As Outlook.MailItem

Set myNameSpace = Application.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myMtgReq = myFolder.Items

If TypeName(myMtgReq) <> "Nothing" Then
For Each m In myMtgReq
'If m.UnRead = True Then
'Neuer Termin
If m.Subject = "I-55023414-:0" Or m.Subject = "I-55023399-:0" Then
Set myAppt = m.GetAssociatedAppointment(True)
Set myMtg = myAppt.Respond(olResponseAccepted, True)
myMtg.Send
m.UnRead = False
m.Delete
End If
'Für Terminänderungen -> Änderungen U-55… statt I-55… und man muss nicht erneut auf Zusagen klicken
If m.Subject = "U-55023414-:0" Or m.Subject = "U-55023399-:0" Then
Set myAppt = m.GetAssociatedAppointment(True)
Set myMtg = myAppt.Respond(olResponseAccepted, True)
'myMtg.Send
m.UnRead = False
m.Delete
End If
'End If
Next
End If
End Sub

Funktioniert soweit, allerdings sobald eine Mail mit Termin gefunden wird, wird die Schleife beendet, obwohl noch weitere Termine da sind.
Was kann man da noch verändern?

Gruß
Marcus

Ja das hört sich gut an...
Jetzt die Frage, wie muss ich das machen?

Habe jetzt folgendes probiert:
Dim myItem As Outlook.MailItem

Im if-Block dann
Set myItem = m.Items.Add
Aber funktioniert nicht...

???

Danke, sehr interessant.

Allerdings habe ich jetzt das Problem, wie kann ich die Mails löschen, nicht nur die Collection leeren.

Im If Block
myCol.Add m

Am Ende dann

Ja super, damit kann ich diesen Thread als gelöst erklären.
Hier nun meine Implementierung:
Herzlichen Dank an password für die Hilfestellung

Ja, das hat mich aber auch Nerven und Zeit gekostet. Aber das Ergebnis ist prima.
Hat aber auch Spaß gemacht. Wahnsinn was man alles so mit so ein paar Codezeilen erreichen kann.

Danke und Gruß
Marcus

Eine Frage habe ich noch.
Ich habe jetzt diesen Code in ThisOutlookSession eingebunden und man kann ihn über "Makro" dann ausführen.
Wenn ich den jetzt automatisiert ablaufen lassen möchte, sobald eine neue Mail eintrifft, wie muss ich da vor gehen?

Gruß
Marcus

OK, habe den kompletten Code in die NewMailEx Sub unterhalb der For Schleife eingebunden. Erstmal ohne mit objItem zu arbeiten.

wo kann ich denn jetzt mit objItem weiter arbeiten?
Eigentlich läuft es jetzt, allerdings habe ich noch nicht alles testen können. Was funktioniert denn nicht?

ja, da hast du Recht. Programmieren ist nicht meine Stärke.
Wie kann ich objItem mit mymtgReq austauschen? Das verstehe ich nicht, da die Eigenschaften oder Methoden von mymtgReq doch dann gar nicht zur Verfügung stehen. Aber da zeigt sich bestimmt wieder meine Unwissenheit

Danke