Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Outlook Lesebestätigung in Ordner verschieben?

Outlook Lesebestätigung in Ordner verschieben?
Jessi
Hallo zusammen,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Outlook Lesebestätigung in Ordner verschieben?
13.08.2009 13:38:35
Matthias5
Hallo Jessi,
warum erstellst du dir dazu nicht einfach eine Regel ("Wörter im Betreff"->"Lesebestätigung")?
Gruß,
Matthias
AW: Outlook Lesebestätigung in Ordner verschieben?
13.08.2009 15:08:46
Jessi
Hallo Matthias,
weil auch die ungelesenen Nachrichten reinkopiert werden würden.
LG
Jessi
AW: Outlook Lesebestätigung in Ordner verschieben?
19.08.2009 14:02:56
gerwas
Hallo
was für enen Fehler bekommst du denn angezeigt? ich habe z.Zt. ein ähnliches Problem und bekomme Fehler Nr. 287 wenn ich versuche, eine Mail zu verschieben.
Seit geraumer Zeit benutze ich folgendes Macro zum Aufräumen eines Postfaches, es funktioniert.
Sub entferne_gelesenes(oF As Object) 'lösche/verschiebe alle gelesenen Mails
' übergeben wird in oF der betreffende Folder z.B. wir bei dir
' Set objInboxFolder = GetNamespace("Mapi").Folders(1).Folders("Posteingang")
Dim eigen As Outlook.Namespace
Set eigen = CreateObject("Outlook.Application").GetNamespace("MAPI")
Löschzähler = 0 'merken wieviele emails markiert sind
anzMails = oF.Items.Count
For Each mail In oF.Items
If Not mail.UnRead Then Löschzähler = Löschzähler + 1
Next
Do While oF.Items.Count  (anzMails - Löschzähler)
For Each mail In oF.Items
If Not mail.UnRead Then
mail.Move eigen.GetDefaultFolder(olFolderInbox).Folders("abgearbeitet")
End If
Next
Loop
Set eigen = Nothing
End Sub

Gruß Gerwas
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige