☰

發送前設定新電子郵件的類別

tag-icon • tag-icon microsoft-outlook-2010
發送前設定新電子郵件的類別

我可以使用分類下拉式選單輕鬆設定收到的電子郵件的類別。但是，我希望能夠設定我發送的電子郵件的類別。我可以發送它，然後進入“已發送郵件”，但我真的更喜歡將分類下拉到新郵件訊息的功能區上，這樣我就可以在點擊發送之前設定類別。但是，我在自訂功能區中找不到任何地方。

我可以打開標籤，並在其中執行操作，但我寧願像在其他功能區中那樣快速存取（例如對我收到的電子郵件進行分類）。

有人能指出我正確的方向嗎？

答案1

你需要這個;如果沒有設定類別，則取消傳送操作：

Private Sub Application_ItemSend（ByVal 項目作為對象，取消為布林值）
    Dim oc As OlObjectClass
    oc = 項目.Class
    如果 oc = olMail 或 oc = olReport 或 oc = olMeetingRequest 那麼
        item.ShowCategoriesDialog
        item.BillingInformation = item.Categories
        如果 item.Categories = "" 則取消 = True
    萬一
結束子

BillingInformation 也已設置，因為它會傳回不變的當您的收件者回覆時，傳入的答案已正確分類...為此，您還需要以下內容：

私有子應用程式_NewMailEx（ByVal EntryIDCollection As String）
    Dim arr() 作為字串，i 作為整數
    Dim ns As Outlook.NameSpace
    Dim itm, m 作為 MailItem

    出錯時繼續下一步
    設定 ns = Application.Session
    arr = Split(EntryIDCollection, ",")
    對於 i = 0 至 UBound(arr)
        設定 itm = ns.GetItemFromID(arr(i))
        如果 itm.Class = olMail 那麼
            設 m = itm
            如果 m.Categories = "" 和 m.BillingInformation "" 那麼
                m.Categories = m.BillingInformation
                m.BillingInformation = ""
                m.保存
            萬一
        萬一
    下一個
結束子

問候 MF

相關內容