☰

보내기 전에 새 이메일 메시지의 카테고리 설정

tag-icon • tag-icon microsoft-outlook-2010
보내기 전에 새 이메일 메시지의 카테고리 설정

분류 드롭다운을 사용하여 수신한 이메일의 카테고리를 쉽게 설정할 수 있습니다. 하지만 내가 보내는 이메일의 카테고리를 설정할 수 있기를 원합니다. 그것을 보낸 다음 나중에 보낸 항목으로 이동할 수도 있지만, 보내기를 누르기 전에 범주를 설정할 수 있도록 새 메일 메시지의 리본에 분류 드롭다운을 두는 것이 정말 좋습니다. 그러나 사용자 정의 리본 항목에서는 해당 항목을 찾을 수 없습니다.

태그를 열고 거기에서 작업을 수행할 수 있지만 다른 리본에 있는 빠른 액세스(예: 수신한 이메일 분류)를 사용하고 싶습니다.

누군가 나에게 올바른 방향을 알려줄 수 있습니까?

답변1

당신은 이것이 필요합니다; 카테고리가 설정되지 않으면 전송 작업이 취소됩니다.

Private Sub Application_ItemSend(ByVal 항목을 개체로 취소, 부울로 취소)
    OlObjectClass로 Dim oc
    oc = 아이템.클래스
    oc = olMail 또는 oc = olReport 또는 oc = olMeetingRequest이면
        item.ShowCategoriesDialog
        item.BillingInformation = item.Categories
        item.Categories = ""인 경우 취소 = True
    종료 조건
서브 끝

BillingInformation도 다시 전송되므로 설정됩니다.변경되지 않은수신자가 응답하면 수신 응답이 이미 적절하게 분류되어 있습니다.... 작동하려면 다음도 필요합니다.

비공개 하위 Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim arr()는 문자열로, i는 정수로
    Outlook.NameSpace로 Dim ns
    Dim itm, m을 MailItem으로 사용

    오류 발생 시 다음 재개
    ns = Application.Session 설정
    arr = 분할(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

관련 정보