
Ich kann die Kategorie einer E-Mail, die ich erhalte, ganz einfach über das Dropdown-Menü „Kategorisieren“ festlegen. Ich möchte jedoch die Kategorie einer E-Mail festlegen können, die ich sende. Ich könnte sie senden und anschließend zu „Gesendete Elemente“ gehen, aber ich hätte das Dropdown-Menü „Kategorisieren“ lieber im Menüband der neuen E-Mail-Nachricht, damit ich die Kategorie festlegen kann, bevor ich auf „Senden“ klicke. Ich kann das jedoch nirgendwo im Menüband-Anpassen finden.
Ich kann Tags öffnen und es dort tun, aber ich hätte lieber den Schnellzugriff, den ich in anderen Menübändern habe (wie zum Beispiel zum Kategorisieren einer E-Mail, die ich erhalte).
Kann mir jemand den richtigen Weg weisen?
Antwort1
Das brauchst du, denn wenn keine Kategorie gesetzt ist, wird der Sendevorgang abgebrochen:
Private Sub Application_ItemSend(ByVal-Element als Objekt, Abbrechen als Boolean) Dim oc als OlObjectClass oc = Artikel.Klasse Wenn oc = olMail oder oc = olReport oder oc = olMeetingRequest, dann item.ShowCategoriesDialog item.BillingInformation = item.Kategorien Wenn item.Categories = "", dann Abbrechen = True Ende, wenn End Sub
BillingInformation ist ebenfalls gesetzt, da es zurückgesendet wirdunverändertwenn Ihre Empfänger antworten, sodass eingehende Antworten bereits richtig kategorisiert sind. Damit dies funktioniert, benötigen Sie außerdem Folgendes:
Private Sub Application_NewMailEx (ByVal EntryIDCollection als String) Dim arr() als String, i als Integer Dim ns As Outlook.NameSpace Dim itm, m als MailItem Bei Fehler Fortsetzen Weiter Setzen Sie ns = Anwendung.Sitzung arr = Split(EntryIDCollection, ",") Für i = 0 bis UBound(arr) Setze itm = ns.GetItemFromID(arr(i)) Wenn itm.Class = olMail Dann Setze m = itm Wenn m.Categories = "" Und m.BillingInformation "" Dann m.Kategorien = m.BillingInformation m.BillingInformation = "" m.Speichern Ende, wenn Ende, wenn Nächste End Sub
Grüße MF