☰

Установить категорию нового сообщения электронной почты перед отправкой

tag-icon • tag-icon microsoft-outlook-2010
Установить категорию нового сообщения электронной почты перед отправкой

Я могу легко задать категорию получаемого мной электронного письма с помощью раскрывающегося списка категорий. Однако я хочу иметь возможность задать категорию отправляемого электронного письма. Я мог бы отправить его, а затем перейти в «Отправленные», но я бы предпочел иметь раскрывающийся список категорий на ленте нового почтового сообщения, чтобы я мог задать категорию до того, как нажму «Отправить». Однако я не могу найти это нигде в настройках ленты.

Я могу открывать теги и делать это там, но мне бы хотелось иметь быстрый доступ, который есть в других лентах (например, для категоризации получаемых мною электронных писем).

Может ли кто-нибудь указать мне правильное направление?

решение1

Это вам нужно; если категория не установлена, операция отправки отменяется:

Private Sub Application_ItemSend(элемент ByVal как объект, Cancel как логическое значение)
    Dim oc как OlObjectClass
    oc = item.Class
    Если oc = olMail или oc = olReport или oc = olMeetingRequest тогда
        item.ShowCategoriesDialog
        item.BillingInformation = item.Categories
        Если item.Categories = "" Тогда Отмена = Истина
    Конец Если
Конец субтитра

BillingInformation также устанавливается, так как он передается обратнонеизмененныйкогда ваши получатели отвечают, чтобы входящие ответы уже были правильно классифицированы.... чтобы это работало, вам также понадобится следующее:

Private Sub Application_NewMailEx(ByVal EntryIDCollection как строка)
    Dim arr() как строка, i как целое число
    Dim ns как Outlook.NameSpace
    Dim itm, m Как MailItem

    При ошибке Возобновить Далее
    Установить ns = Приложение.Сессия
    arr = Split(EntryIDCollection, ",")
    Для i = 0 до UBound(arr)
        Установить itm = ns.GetItemFromID(arr(i))
        Если itm.Class = olMail Тогда
            Установить m = itm
            Если m.Categories = "" И m.BillingInformation "" Тогда
                m.Категории = m.Информация о выставлении счетов
                m.BillingInformation = ""
                м.Сохранить
            Конец Если
        Конец Если
    Следующий
Конец субтитра

С уважением МФ

Связанный контент