Outlook 2007 から右クリックの印刷コンテキスト メニューを削除する
-
02-07-2019 - |
質問
VBA でメールを右クリックしたときにコンテキスト メニューから [印刷] 項目を削除する方法はありますか?
メールに返信するためにいつも右クリックしているのですが、誤ってクリックしてしまいます Print
Outlook を停止するよりも早く、Outlook がプリンターに直接送信するようにします。
注意: 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 を操作する方法のサンプルです。方法:項目のコンテキスト メニューをカスタマイズする
所属していません StackOverflow