Entfernen Rechtsklick-Kontextmenü Druck von Outlook 2007
-
02-07-2019 - |
Frage
Gibt es eine Möglichkeit, dass ich den Druck aus dem Kontextmenü entfernen können, wenn Sie auf eine E-Mail mit VBA der rechten Maustaste?
Ich bin immer der rechten Maustaste auf eine E-Mail zu antworten, nur zufällig Print
klicken und haben Outlook direkt schneller an den Drucker senden, als ich es stoppen kann.
NB:. Ich bin mit Outlook 2007
Lösung
Basierend auf dem Link TCKS bieten, das war ziemlich einfach. Im Beispiel unten prüfe ich die Art des Produkts, so dass es nur E-Mails und Kalendereinträge nicht beeinflusst. Um den Code in Outlook, Typ Alt + F11 eingeben, erweitern Sie dann das Microsoft Office Outlook Objekte im Projektfenster. Dann doppelte Dieseoutlooksitzung klicken. Dann fügen Sie diesen Code in das Codefenster. Ich mag es nicht Bildunterschriften wie dies zu überprüfen, wie Sie in Probleme mit der Internationalisierung laufen können. Aber ich habe keine ActionID oder irgendetwas auf dem Befehl sehen. Es gab eine FaceID aber das ist nur die ID des Druckersymbol.
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
Andere Tipps
Thera ist Probe, wie mit Outlook arbeiten programaticly: Gewusst wie: ein Item Kontextmenü anpassen