Outlook 2007에서 마우스 오른쪽 클릭 인쇄 맥락 메뉴를 제거하십시오

StackOverflow https://stackoverflow.com/questions/121810

문제

VBA로 이메일을 마우스 오른쪽 버튼으로 클릭 할 때 상황에 맞는 메뉴에서 인쇄 항목을 제거 할 수있는 방법이 있습니까?

나는 우연히 클릭하기 위해서만 이메일에 답장하기 위해 영원히 마우스 오른쪽 버튼을 클릭하고 있습니다. Print 그리고 Outlook이 내가 멈출 수있는 것보다 빨리 프린터로 직접 보내도록하십시오.

alt text

NB : Outlook 2007을 사용하고 있습니다.

도움이 되었습니까?

해결책

TCK가 제공하는 링크를 기반으로 매우 간단했습니다. 아래의 예에서는 항목의 유형을 확인하여 캘린더 항목이 아닌 전자 메일에만 영향을 미칩니다. Outlook에 코드를 입력하려면 Alt + F11을 입력 한 다음 프로젝트 창에서 Microsoft Office Outlook 객체를 확장하십시오. 그런 다음 thisoutlooksession을 두 번 클릭하십시오. 그런 다음이 코드를 코드 창에 붙여 넣습니다. 국제화 문제를 해결할 수 있으므로 이와 같은 캡션을 확인하는 것을 좋아하지 않습니다. 그러나 나는 ActionId 나 명령에 아무것도 보지 못했습니다. FaceId가 있었지만 프린터 아이콘의 ID 일뿐입니다.

Private Sub Application_ItemContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Selection As Selection)

   Dim cmdTemp As Office.CommandBarControl

   If Selection.Count > 0 Then

      Select Case TypeName(Selection.Item(1))

         Case "MailItem"

            For Each cmdTemp In CommandBar.Controls

               If cmdTemp.Caption = "&Print" Then

                  cmdTemp.Delete
                  Exit For

               End If

            Next cmdTemp

         Case Else

            'Debug.Print TypeName(Selection.Item(1))

      End Select

   End If

End Sub

다른 팁

Thera는 프로그램을 프로그래밍 방식으로 작업하는 방법입니다.방법 : 항목 컨텍스트 메뉴를 사용자 정의합니다

라이센스 : CC-BY-SA ~와 함께 속성
제휴하지 않습니다 StackOverflow
scroll top