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.

alt text

NB:. Ich bin mit Outlook 2007

War es hilfreich?

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

Lizenziert unter: CC-BY-SA mit Zuschreibung
Nicht verbunden mit StackOverflow
scroll top