habe folgenden Code für das Verschieben von gelesenen Lesebestätigungen in meinem Outlook Ordner. Leider funktioniert diese nicht:
Code:
Private Sub Application_NewMail()
On Error Resume Next
' Variablen deklarieren
Dim objInboxFolder As MAPIFolder ' Posteingang
Dim objReportFolder As MAPIFolder ' Ordner für Lesebestätigungen
Dim objItems As Items ' Alle Elemente des Posteingangs
Dim objItem ' Einzelnes Element im Posteingang
' Posteingang referenzieren
Set objInboxFolder = GetNamespace("Mapi").Folders(1).Folders("Posteingang")
' Ordner für Lesebestätigungen referenzieren
Set objReportFolder = GetNamespace("Mapi").Folders(1).Folders("Posteingang").Folders(" _
Lesebestätigungen")
' Alle E-Mails des Posteingangs referenzieren
Set objItems = objInboxFolder.Items
' Gelesene Lesebestätigungen verschieben
For Each objItem In objItems
If objItem.UnRead = False And InStr(LCase(objItem.Subject), "lesebestätigung") 0 _
Then
objItem.Move objReportFolder
End If
Next
End Sub
Diesen Code habe ich in "DieseOutlookSitzung" kopiert.
Vielleicht kann mir einer sagen, was da das Problem sein könnte. Benutze Office 2007.
LG
Jessi