Outlook 2007 から右クリックの印刷コンテキスト メニューを削除する

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

質問

VBA でメールを右クリックしたときにコンテキスト メニューから [印刷] 項目を削除する方法はありますか?

メールに返信するためにいつも右クリックしているのですが、誤ってクリックしてしまいます Print Outlook を停止するよりも早く、Outlook がプリンターに直接送信するようにします。

alt text

注意: Outlook2007を使用しています。

役に立ちましたか?

解決

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 は、プログラムで Outlook を操作する方法のサンプルです。方法:項目のコンテキスト メニューをカスタマイズする

ライセンス: CC-BY-SA帰属
所属していません StackOverflow
scroll top