Ich habe eine Outlook 2007-Regel, die bestimmte ausgehende Nachrichten in einen anderen Ordner kopiert. Wie kann ich diese Nachrichten automatisch als "gelesen" kennzeichnen?

4343
arathorn

Die Nachrichten werden erfolgreich in den anderen Ordner kopiert, erscheinen jedoch als ungelesen.

"Als gelesen markieren" wird als Filteroption in der Aktionsliste angezeigt, wenn Sie eine Regel erstellen, die auf eingehende Nachrichten angewendet wird . Ich sehe sie jedoch nicht, wenn Sie eine Regel erstellen, die auf OUTGOING- Nachrichten angewendet wird . Wie kann ich das erreichen?

Hier ist der vollständige Text meiner vorhandenen Regelbeschreibungszeichenfolge:

Apply this rule after I send the message on this machine only move a copy to the Archive folder

Update:
@ xxl3ww stellt fest, dass es VB-Skripte gibt, die dies ermöglichen. Ich würde es jedoch vorziehen, nicht für eines davon bezahlen zu müssen. Gibt es kostenlose Alternativen, die sich jemand bewusst ist?

7
Ich glaube nicht, dass Sie dies tun können, ohne auf VB-Scripting zurückgreifen zu müssen. Wahrscheinlich einfacher, das Lesen von Hand zu markieren. pelms vor 15 Jahren 0
@pelms: Ein VB-Skript wäre in Ordnung. arathorn vor 15 Jahren 0
Die meisten Skripts, nach denen Sie suchen, kosten etwa 10 US-Dollar. Wenn Sie die benutzerdefinierte Aktionsmarke von Google Outlook 2007 als gelesen markieren, erhalten Sie eine Unmenge von Ergebnissen. xxl3ww vor 15 Jahren 1
Ich glaube, ich weiß, was zu tun ist, aber könnten Sie bitte einen Screenshot / eine Kopie der genauen Regel machen, die Sie aktuell verwenden, damit ich Ihre Umgebung kopieren und hier testen kann. William Hilsum vor 15 Jahren 0
@ Will: Ich habe der Frage die genaue Regelbeschreibungszeichenfolge hinzugefügt. arathorn vor 15 Jahren 0

3 Antworten auf die Frage

4
subman

Sie müssen Makros aktivieren, damit der folgende Code funktioniert. Wechseln Sie unter Extras> Makros> Sicherheit zu "Warnungen für alle Makros" oder "Keine Sicherheitsprüfungen".

Klicken Sie auf Extras> Makros> Visual Basic-Editor

Kopieren und fügen Sie folgendes ein:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Item.UnRead = False End Sub

Das ist es! (Zusammen mit Ihrer vorhandenen Nachrichtenregel)

0
NickSentowski

Erstellen Sie Ihre Regel mit dem Regel-Assistenten (Werkzeuge -> Regeln und Warnungen). Auf dem dritten Bildschirm können Sie eine Nachricht als gelesen markieren. Möglicherweise müssen Sie ein wenig nach unten scrollen, um das richtige Kontrollkästchen zu finden.

Dies ist zwar technisch keine "ausgehende" Regel, funktioniert jedoch bei manueller Ausführung. Ich glaube nicht, dass es eine Möglichkeit gibt, die Überprüfung automatisch durchzuführen.

Nein, die Aktion "Als gelesen markieren" wird nicht als verfügbare Aktion für ** ausgehende ** Regeln aufgeführt. Probieren Sie es aus und sehen Sie. arathorn vor 15 Jahren 0
Meine Antwort jetzt bearbeiten, um einen Screenshot aufzunehmen NickSentowski vor 15 Jahren 0
Das ist aber der Punkt meiner Frage: Wie geht das in Outlook automatisch *? arathorn vor 15 Jahren 0
Ich bin sicher, dass dies im Code möglich ist, aber ich bin mit den Besonderheiten des Outlook-Objektmodells nicht vertraut. Ich werde nachsehen, ob ich ein Skript für Sie erstellen kann, aber Sie müssen mich geben ein paar Tage. Mein Ansatz besteht darin, alles, was sich im Zielordner befindet, als gelesen zu markieren, wenn es abgelegt wird. Ich denke, das wäre der einfachste Weg. NickSentowski vor 15 Jahren 0
0
FoleyIsGood

Sie müssen dies an Ihre Ordner- / Mailbox-Namen anpassen, aber neu hinzugefügte Elemente (dh E-Mails, die von Ihrer Regel verschoben wurden) werden wie folgt festgelegt:

Option Explicit '############################################## '### all code for the ThisOutlookSession module '### Module level Declarations 'expose the items in the target folder to events Dim WithEvents TargetFolderItems As Items  '############################################### Private Sub Application_Startup() 'some startup code to set our "event-sensitive" 'items collection  Dim myMailbox As String, myFolder As String  'You need to set these myMailbox = "Mailbox - My Name" myFolder = "Archive Folder Name"  Dim ns As Outlook.NameSpace  Set ns = Application.GetNamespace("MAPI") Set TargetFolderItems = ns.Folders(myMailbox).Folders(myFolder).Items  End Sub  '################################################# '### this is the ItemAdd event code Sub TargetFolderItems_ItemAdd(ByVal Item As Object) 'when a new item is added to our "Testing Folder" 'we can process it Dim myEmail As MailItem Set myEmail = Item myEmail.UnRead = False End Sub  '################################################# Private Sub Application_Quit()  Dim ns As Outlook.NameSpace Set TargetFolderItems = Nothing Set ns = Nothing  End Sub

Verwandte Probleme