Frage Microsoft Outlook & Mail
gelöst Outlook 2013 Kalendereintrag per Regel akzeptieren und löschen

24.04.2017, aktualisiert 14:29 Uhr, 898 Aufrufe, 27 Kommentare

Hallo,
ich möchte das bestimmte Kalendereinträge automatisiert z. B. durch eine Regel akzeptiert werden.

Zur Erklärung:
Wir haben folgendes Szenario.
Einzelne Mitarbeiter übernehmen für bestimmte Kunden den Support. Das wird in ein Excel File eingetragen und in SAP verarbeitet.
Soweit so gut....
Jetzt hat ein Mitarbeiter aber z.B. 10 Kunden für die er Support übernimmt und bekommt dann von SAP eine automatisch generierte Email zugeschickt (Die Order Nummer ist im Betreff enthalten), wo
der entsprechende Zeitraum für den Kalender aufgeführt ist.
Pro Kunde eine Mail. Jetzt hast du wie gesagt 10 Kunden und bekommst dann 10 Kalendereinträge per Mail zugeschickt und musst diese dann entsprechend öffnen und speichern, damit der Eintrag im Kalender übernommen wird. Das ganze aber auch, wenn sich kurzfristig etwas ändert oder der Eintrag gelöscht wird, da ich z.B. den Support abgebeben habe.

Sehr lästig und nervig.
Meine Überlegung ist, eine Regel zu erstellen, die automatisch den Kalendereintrag akzeptiert und die Mail dann löscht.
Bei Absage bzw. Austrag aus dem Kalender dasselbe. Eine Regel die automatisch den Kalendereintrag löscht.

Dazu habe ich in den Regeln aber keinen Eintrag gefunden.
Kann ich so eine Regel selbst erstellen (evtl. vba)?

Über jeden Hinweis etc. bin ich dankbar.

Schon mal herzlichen Dank

Gruß
Marcus

27 Antworten

LÖSUNG 132895 schreibt am 24.04.2017 um 17:23:33 Uhr
- LÖSUNG speedy132 schreibt am 25.04.2017 um 08:58:18 Uhr
  - LÖSUNG 132895 schreibt am 25.04.2017 um 09:25:59 Uhr
    - LÖSUNG speedy132 schreibt am 25.04.2017 um 10:15:45 Uhr
      - LÖSUNG 132895 schreibt am 25.04.2017 um 10:20:18 Uhr
        
        LÖSUNG speedy132 schreibt am 25.04.2017 um 10:50:59 Uhr
        
        LÖSUNG 132895 schreibt am 25.04.2017 um 10:51:47 Uhr
        
        LÖSUNG speedy132 schreibt am 25.04.2017 um 10:58:34 Uhr
        
        LÖSUNG 132895 schreibt am 25.04.2017 um 11:21:05 Uhr
        
        LÖSUNG speedy132 schreibt am 25.04.2017 um 12:14:13 Uhr
        
        LÖSUNG 132895 schreibt am 25.04.2017 um 12:19:20 Uhr
        
        LÖSUNG speedy132 schreibt am 27.04.2017 um 10:31:39 Uhr
        
        LÖSUNG 132895 schreibt am 27.04.2017 um 10:37:32 Uhr
        
        LÖSUNG speedy132 schreibt am 27.04.2017 um 11:31:42 Uhr
        
        LÖSUNG 132895 schreibt am 27.04.2017 um 11:36:12 Uhr
        
        LÖSUNG speedy132 schreibt am 27.04.2017 um 13:20:07 Uhr
        
        LÖSUNG 132895 schreibt am 27.04.2017 um 13:40:54 Uhr
        
        LÖSUNG speedy132 schreibt am 27.04.2017 um 14:17:32 Uhr
        
        LÖSUNG 132895 schreibt am 27.04.2017 um 14:20:06 Uhr
        
        LÖSUNG speedy132 schreibt am 27.04.2017 um 14:51:41 Uhr
        
        LÖSUNG 132895 schreibt am 27.04.2017 um 15:03:52 Uhr
        
        LÖSUNG speedy132 schreibt am 28.04.2017 um 08:37:05 Uhr
        
        LÖSUNG 132895 schreibt am 28.04.2017 um 09:33:01 Uhr
        
        LÖSUNG speedy132 schreibt am 28.04.2017 um 11:22:19 Uhr
        
        LÖSUNG 132895 schreibt am 28.04.2017 um 11:37:49 Uhr
        
        LÖSUNG speedy132 schreibt am 28.04.2017 um 14:57:49 Uhr
        
        LÖSUNG 132895 schreibt am 28.04.2017 um 15:22:26 Uhr

132895 (Level 2)

LÖSUNG 24.04.2017, aktualisiert um 17:25 Uhr

Kann ich so eine Regel selbst erstellen (evtl. vba)?

AppointmentItem.Respond Method (Outlook)
oder
Ressourcen-Postfach am Exchange mit Buchungsautomatik erstellen?

Gruß

speedy132 (Level 1) - Jetzt verbinden

LÖSUNG 25.04.2017 um 08:58 Uhr

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

132895 (Level 2)

LÖSUNG 25.04.2017, aktualisiert um 09:28 Uhr

Mach einfach eine For-Each-Schleife über das Ergebnis des Finds und prüfe dann per IF-Abfrage die Eigenschaft Subject .

speedy132 (Level 1) - Jetzt verbinden

LÖSUNG 25.04.2017 um 10:15 Uhr

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

132895 (Level 2)

LÖSUNG 25.04.2017, aktualisiert um 10:20 Uhr

for each m in myMtgReq
 'und hier dann statt myMtgReq das 'm' einsetzen. (Laufvariable)
Next01.
for each m in myMtgReq
02.
 'und hier dann statt myMtgReq das 'm' einsetzen. (Laufvariable)
03.
Next

speedy132 (Level 1) - Jetzt verbinden

LÖSUNG 25.04.2017 um 10:50 Uhr

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?

132895 (Level 2)

LÖSUNG 25.04.2017, aktualisiert um 10:54 Uhr

Du hast das m nicht in den anderen Zeilen innerhalb der For-Schleife ersetzt . Denn in myMtgReq sind mehrere Items die du mit der Schleife durchläufst und dann innerhalb der Schleife "einzeln" mit dem m ansprichst.

Ab und zu sollte man auch Dokus lesen Das sind einfachste Grundlagen die du überall nachlesen kannst.
Wenn du das nicht willst, fang gar nicht erst das Programmieren an!!

speedy132 (Level 1) - Jetzt verbinden

LÖSUNG 25.04.2017 um 10:58 Uhr

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?

132895 (Level 2)

LÖSUNG 25.04.2017, aktualisiert um 11:25 Uhr

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

Musst du nicht wenn du nicht Option Explicit am Anfang des Codes stehen hast . Du darfst jetzt natürlich nicht das mymtgReq als Meeting deklarieren weil das Ergebnis mehrere Items sind !!!

Dim myMtgReq As Items01.
Dim myMtgReq As Items

speedy132 (Level 1) - Jetzt verbinden

LÖSUNG 25.04.2017 um 12:14 Uhr

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?

132895 (Level 2)

LÖSUNG 25.04.2017, aktualisiert um 12:19 Uhr

Zitat von speedy132:
Allerdings weiß ich auch nicht, wo ich so etwas spezielles in kürzester Zeit nachlesen soll.

In den Grundlagen zu VBA steht's.

Als was muss ich denn dann mymtgReq deklarieren?

Steht oben.

speedy132 (Level 1) - Jetzt verbinden

LÖSUNG 27.04.2017 um 10:31 Uhr

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

132895 (Level 2)

LÖSUNG 27.04.2017, aktualisiert um 10:38 Uhr

Logisch, weil du mit

m.Delete

die Items-Collection in der Schleife veränderst, also Items raus löschst, deswegen werden Elemente übersprungen.
Speichere die Elemente die gelöscht werden sollen in einer weiteren Collection zwischen und lösche die Elemente der Collection am Ende der Sub. Fertig.

p.s. Schon mal was von Codetags hier im Forum gehört?
</> links in deiner Symbolleiste!!

speedy132 (Level 1) - Jetzt verbinden

LÖSUNG 27.04.2017 um 11:31 Uhr

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...

???

132895 (Level 2)

LÖSUNG 27.04.2017 um 11:36 Uhr

Lese und lerne!
http://analystcave.com/vba-collection/

speedy132 (Level 1) - Jetzt verbinden

LÖSUNG 27.04.2017 um 13:20 Uhr

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

If myCol.Count >= 1 Then
        myCol.Remove (m)   -> funktioniert tnicht....
End If01.
If myCol.Count >= 1 Then
02.
        myCol.Remove (m)   -> funktioniert tnicht....
03.
End If

132895 (Level 2)

LÖSUNG 27.04.2017 um 13:40 Uhr

Na die Delete-Methode des Items aufrufen, es ist ja immer noch ein AppointmentItem.

for each element in mycol
    element.Delete
Next01.
for each element in mycol
02.
    element.Delete
03.
Next

speedy132 (Level 1) - Jetzt verbinden

LÖSUNG 27.04.2017 um 14:17 Uhr

Ja super, damit kann ich diesen Thread als gelöst erklären.
Hier nun meine Implementierung:

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

 Set myNameSpace = Application.GetNamespace("MAPI")
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
 Set myMtgReq = myFolder.Items
 Set myCol = New Collection
 
    If TypeName(myMtgReq) <> "Nothing" Then
        For Each m In myMtgReq
                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
                    myCol.Add m
                End If
            If m.Subject = "U-55023414-:0" Or m.Subject = "U-55023399-:0" Then
                    Set myAppt = m.GetAssociatedAppointment(True)
                    Set myMtg = myAppt.Respond(olResponseAccepted, True)
                    m.UnRead = False
                    myCol.Add m
            End If
        Next
        If myCol.Count >= 1 Then
            For Each element In myCol
                element.Delete
            Next
        End If
    End If
    Set myCol = Nothing
End Sub01.
Sub AcceptMeeting()
02.
 Dim myNameSpace As Outlook.NameSpace
03.
 Dim myFolder As Outlook.Folder
04.
 Dim myAppt As Outlook.AppointmentItem
05.
 Dim myMtg As Outlook.MeetingItem
06.
 Dim myCol As Collection
07.

08.
 Set myNameSpace = Application.GetNamespace("MAPI")
09.
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
10.
 Set myMtgReq = myFolder.Items
11.
 Set myCol = New Collection
12.
 
13.
    If TypeName(myMtgReq) <> "Nothing" Then
14.
        For Each m In myMtgReq
15.
                If m.Subject = "I-55023414-:0" Or m.Subject = "I-55023399-:0" Then
16.
                    Set myAppt = m.GetAssociatedAppointment(True)
17.
                    Set myMtg = myAppt.Respond(olResponseAccepted, True)
18.
                    myMtg.Send
19.
                    m.UnRead = False
20.
                    myCol.Add m
21.
                End If
22.
            If m.Subject = "U-55023414-:0" Or m.Subject = "U-55023399-:0" Then
23.
                    Set myAppt = m.GetAssociatedAppointment(True)
24.
                    Set myMtg = myAppt.Respond(olResponseAccepted, True)
25.
                    m.UnRead = False
26.
                    myCol.Add m
27.
            End If
28.
        Next
29.
        If myCol.Count >= 1 Then
30.
            For Each element In myCol
31.
                element.Delete
32.
            Next
33.
        End If
34.
    End If
35.
    Set myCol = Nothing
36.
End Sub

Herzlichen Dank an password für die Hilfestellung

132895 (Level 2)

LÖSUNG 27.04.2017, aktualisiert um 14:23 Uhr

Find ich super das es hier auch User wie dich gibt denen man nicht alles vorbeten muss sondern die sich minimal mit der Materie auseinandersetzen mit den Infos die man Ihnen gibt! Daumen hoch!

speedy132 (Level 1) - Jetzt verbinden

LÖSUNG 27.04.2017 um 14:51 Uhr

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

132895 (Level 2)

LÖSUNG 27.04.2017, aktualisiert um 15:05 Uhr

Zitat von speedy132:
Ja, das hat mich aber auch Nerven und Zeit gekostet. Aber das Ergebnis ist prima.

Und du hast vor allem auch was gelernt.

Hat aber auch Spaß gemacht. Wahnsinn was man alles so mit so ein paar Codezeilen erreichen kann.

Schön zu hören, so solls sein.

Danke und Gruß

Gerne, und weiterhin erfolgreiches Coding.

speedy132 (Level 1) - Jetzt verbinden

LÖSUNG 28.04.2017 um 08:37 Uhr

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

132895 (Level 2)

LÖSUNG 28.04.2017, aktualisiert um 09:36 Uhr

Du nimmst das NewMailEx Event dazu in ThisOutlookSession:

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim varEntryIDs, objItem As Object,i As Integer
    varEntryIDs = Split(EntryIDCollection, ",")
    For i = 0 To UBound(varEntryIDs)
        Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
        ' in objItem ist die neue Mail zum verarbeiten
        ' hier also dein Code zum Verarbeiten der Mail
Next01.
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
02.
    Dim varEntryIDs, objItem As Object,i As Integer
03.
    varEntryIDs = Split(EntryIDCollection, ",")
04.
    For i = 0 To UBound(varEntryIDs)
05.
        Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
06.
        ' in objItem ist die neue Mail zum verarbeiten
07.
        ' hier also dein Code zum Verarbeiten der Mail
08.
Next

Da mehrere Mails auf einmal eintreffen können enthält die Event-Variable "EntryIDCollection" mehrere uniqueIDs der Mails welche mit einer For-Schleife nacheinander verarbeitet werden. objItem enthält dann in der Schleife jeweils das Mail-Objekt mit dem du arbeiten kannst.

speedy132 (Level 1) - Jetzt verbinden

LÖSUNG 28.04.2017, aktualisiert um 11:23 Uhr

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

 For i = 0 To UBound(varEntryIDs)
    Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
    ' in objItem ist die neue Mail zum verarbeiten
    ' hier also dein Code zum Verarbeiten der Mail
    If TypeName(myMtgReq) <> "Nothing" Then
        For Each m In myMtgReq
                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
                    myCol.Add m
                End If
            If m.Subject = "U-55023414-:0" Or m.Subject = "U-55023399-:0" Then
                    Set myAppt = m.GetAssociatedAppointment(True)
                    Set myMtg = myAppt.Respond(olResponseAccepted, True)
                    m.UnRead = False
                    myCol.Add m
            End If
        Next
        If myCol.Count >= 1 Then
            For Each element In myCol
                element.Delete
            Next
        End If
    End If
    Set myCol = Nothing
Next01.
 For i = 0 To UBound(varEntryIDs)
02.
    Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
03.
    ' in objItem ist die neue Mail zum verarbeiten
04.
    ' hier also dein Code zum Verarbeiten der Mail
05.
    If TypeName(myMtgReq) <> "Nothing" Then
06.
        For Each m In myMtgReq
07.
                If m.Subject = "I-55023414-:0" Or m.Subject = "I-55023399-:0" Then
08.
                    Set myAppt = m.GetAssociatedAppointment(True)
09.
                    Set myMtg = myAppt.Respond(olResponseAccepted, True)
10.
                    myMtg.Send
11.
                    m.UnRead = False
12.
                    myCol.Add m
13.
                End If
14.
            If m.Subject = "U-55023414-:0" Or m.Subject = "U-55023399-:0" Then
15.
                    Set myAppt = m.GetAssociatedAppointment(True)
16.
                    Set myMtg = myAppt.Respond(olResponseAccepted, True)
17.
                    m.UnRead = False
18.
                    myCol.Add m
19.
            End If
20.
        Next
21.
        If myCol.Count >= 1 Then
22.
            For Each element In myCol
23.
                element.Delete
24.
            Next
25.
        End If
26.
    End If
27.
    Set myCol = Nothing
28.
Next

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?

132895 (Level 2)

LÖSUNG 28.04.2017 um 11:37 Uhr

Du hast das Prinzip von Schleifen anscheinend noch nicht ganz Verstanden.
Statt hier myMtgReq und eine zusätzliche Schleife zu verwenden nutzt du hier objItem da dies das gerade eingetroffene Objekt (also die Mail) beinhaltet! Du brauchst also in diesem Fall keine zusätzliche Schleife in der Schleife mehr weil du das einzelne Objekt direkt bearbeitest und nicht mehr alle Items des Ordners durchlaufen musst!

speedy132 (Level 1) - Jetzt verbinden

LÖSUNG 28.04.2017 um 14:57 Uhr

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

132895 (Level 2)

LÖSUNG 28.04.2017, aktualisiert um 15:33 Uhr

Zitat von speedy132:
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.

Doch, du siehst sie nur nicht in der Intellisense weil es ein "Object" ist. Verfügbar sind sie trotzdem.

Aber da zeigt sich bestimmt wieder meine Unwissenheit

Jepp.

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
	Dim varEntryIDs, objItem As Object,i As Integer, col As New Collection
	varEntryIDs = Split(EntryIDCollection, ",")
	For i = 0 To UBound(varEntryIDs)
		Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
		If objItem.Subject = "I-55023414-:0" Or objItem.Subject = "I-55023399-:0" Then
			Set myAppt = objItem.GetAssociatedAppointment(True)
			Set myMtg = myAppt.Respond(olResponseAccepted, True)
			myMtg.Send
			objItem.UnRead = False
			myCol.Add objItem
		End If
		If objItem.Subject = "U-55023414-:0" Or objItem.Subject = "U-55023399-:0" Then
			Set myAppt = objItem.GetAssociatedAppointment(True)
			Set myMtg = myAppt.Respond(olResponseAccepted, True)
			objItem.UnRead = False
			myCol.Add objItem
		End If      
	Next
	For Each element In myCol
		element.Delete
	Next
End Sub01.
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
02.
	Dim varEntryIDs, objItem As Object,i As Integer, col As New Collection
03.
	varEntryIDs = Split(EntryIDCollection, ",")
04.
	For i = 0 To UBound(varEntryIDs)
05.
		Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
06.
		If objItem.Subject = "I-55023414-:0" Or objItem.Subject = "I-55023399-:0" Then
07.
			Set myAppt = objItem.GetAssociatedAppointment(True)
08.
			Set myMtg = myAppt.Respond(olResponseAccepted, True)
09.
			myMtg.Send
10.
			objItem.UnRead = False
11.
			myCol.Add objItem
12.
		End If
13.
		If objItem.Subject = "U-55023414-:0" Or objItem.Subject = "U-55023399-:0" Then
14.
			Set myAppt = objItem.GetAssociatedAppointment(True)
15.
			Set myMtg = myAppt.Respond(olResponseAccepted, True)
16.
			objItem.UnRead = False
17.
			myCol.Add objItem
18.
		End If      
19.
	Next
20.
	For Each element In myCol
21.
		element.Delete
22.
	Next
23.
End Sub

Frage Microsoft Outlook & Mail

Ähnliche Inhalte

Outlook Kalendereintrag

Frage von novregenOutlook & Mail6 Kommentare

Hallo, was gibt es in (momentan noch) Outlook 2010 Exchange bald Outlook 2019 Exchange für möglichkeiten Kalendereinträge aus Drittsystemen ...

Outlook 2013 Attachment in Kalendereintrag nicht sichtbar

Frage von xbast1xOutlook & Mail5 Kommentare

Hallo zusammen, kurioses Verhalten. Ein Mitarbeiter erstellt einen Termin und zieht eine E-Mail in den Termin. Gewöhnlich ist das ...

Kalendereintrag wird im Outlook nicht angezeigt

Frage von xbast1xOutlook & Mail4 Kommentare

Hallo zusammen, User A hat einen Termin in drei Ressourcen (Ressource 1, Ressource 2, Ressource 3) erstellt. Alle betroffenen ...

Outlook 2013 Regel erzeugt 3 Kopien beim Verschieben sofern kategorisiert wird

Frage von ViprexOutlook & Mail2 Kommentare

Hallo Community, ich habe ein Problem mit Regeln (Regel-Assistent) in einem Outlook 2013 Postfach an einem Exchange 2010 Server. ...

Neue Wissensbeiträge

Dolibarr ERP CRM - Update Prozess

Anleitung von radiogugu vor 4 StundenLinux Tools

Hallo. Dies soll den kurzen Update Prozess der Software schildern. Zugrunde liegt eine Ubuntu Linux VM an der Stelle. ...

Dolibarr ERP CRM - Überblick der Software

Anleitung von radiogugu vor 6 StundenLinux Tools

Hallo. Nach der Anleitung zur Einrichtung und Installation der Datenbank und des Webserver Dolibarr ERP CRM Installation möchte ich ...

Dolibarr ERP CRM Installation der Datenbank und des Webserver

Anleitung von radiogugu vor 6 StundenLinux Tools

Hallo zusammen. Ich bin seit kurzem nebenberuflich selbstständig und suchte eine geeignete Software für die Auftragsverwaltung, CRM und ein ...

Chrome 79 übermittelt eingegebene Kennwörter nach Hause

Information von DerWoWusste vor 1 TagSicherheit11 Kommentare

Ab sofort warnt Chrome standardmäßig Nutzer davor, wenn aus Leaks bekannte Passwörter zum Einsatz kommen. Beim Besuch einer Website, ...

Heiß diskutierte Inhalte

Eingabeaufforderung macht Pause bei Datensicherung mit Robocopy auf DVD

Frage von anmelderBatch & Shell20 Kommentare

Hallo, ich sichere einige Daten per Robocopy auf DVD-RAM. Wenn ich nicht am Rechner sitze macht der Befehl nach ...

Server startet nach Debian Installation nicht mehr

Frage von RobertDServer-Hardware17 Kommentare

Hallo, ich habe heute zum ersten Mal auf meinen Server (selbst zusammengebaut) Linux installiert, ging auch alles ganz gut. ...

Windows 10 Herunterfahren - Funktioniert nach Upgrade von Windows 7 nicht mehr

Frage von krischeuWindows 1016 Kommentare

Hi, ich habe verschiedene PCs mit dem Upgrade Assistenten von Windows 7 Pro 64 Bit auf Windows 10 geupdatet. ...

Dateien durch splitten sichern anstelle eines Passwortes?

gelöst Frage von Frank28Backup13 Kommentare

Guten Tag zusammen, ist es sinnvoll, Dateien via z.B. Filesplit aufzuteilen und dann an 2 verschienden Orten zu lagern ...

Frage Microsoft Outlook & Mail gelöst Outlook 2013 Kalendereintrag per Regel akzeptieren und löschen

24.04.2017, aktualisiert 14:29 Uhr, 898 Aufrufe, 27 Kommentare

Outlook 2013 Attachment in Kalendereintrag nicht sichtbar

Kalendereintrag wird im Outlook nicht angezeigt

Outlook 2013 Regel erzeugt 3 Kopien beim Verschieben sofern kategorisiert wird

Dolibarr ERP CRM Installation der Datenbank und des Webserver

Chrome 79 übermittelt eingegebene Kennwörter nach Hause

Frage Microsoft Outlook & Mail
gelöst Outlook 2013 Kalendereintrag per Regel akzeptieren und löschen