Hallo,
das nachfolgende Script habe ich hier im Forum aufgeschnappt und
etwas angepasst. Funktioniert soweit auch alles korrekt.
Nur habe ich das Problem, dass manchmal das Script mit Laufzeitfehler 13
abstürzt, ich vermute es liegt daran, wenn keine "echten" Emails reinkommen
sondern Lesebestätigungen.
Kann mir jemand die benötigte(n) Codezeile(n) reinschreiben, dass das
Script diese Lesebestätigungen (also z.B. Betreff=Gelesen:) bzw. das Symbol
mit dem grünen Häkchen in der Mailübersicht ignoriert und nicht weiterleitet?
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim objMail_In As Outlook.MailItem
Dim objMail_Out As Outlook.MailItem
Dim aryEntryIDs() As String
Dim lngCount As Long
'jedes neue MailItem durchgehen
aryEntryIDs = Split(EntryIDCollection, ",")
For lngCount = 0 To UBound(aryEntryIDs)
Set objMail_In = Application.Session.GetItemFromID(aryEntryIDs(lngCount))
Set objMail_Out = objMail_In.Forward
With objMail_Out
.To = "Email@Adresse.de"
.Subject = "weitergeleitet: " & objMail_In.Subject
.Send
End With
Next lngCount
End Sub
|