☰

Kategorie einer neuen E-Mail-Nachricht festlegen, bevor ich sie sende

tag-icon • tag-icon microsoft-outlook-2010
Kategorie einer neuen E-Mail-Nachricht festlegen, bevor ich sie sende

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

verwandte Informationen