Optionen-Dialog vorm Senden anzeigen

In der Standardeinstellung speichert Outlook jede gesendete E-Mail im Ordner 'Gesendete Objekte', was grundsätzlich eine nützliche Einstellung ist. Trotzdem muss man nicht jede Mail aufbewahren, und anderen möchte man vielleicht gleich eine Kategorie zuordnen. Beide Einstellungen lassen sich zentral über den Optionen-Dialog vornehmen. Wenn dieser nun automatisch vorm Senden jeder Mail angezeigt wird, dann hilft Ihnen das nicht nur bei der Einhaltung Ihrer eigenen Regeln, sondern erspart obendrein auch noch einen Mausklick.

  So fügen Sie Makros in Outlook ein

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  If TypeOf Item Is Outlook.MailItem Then
    ShowOptionDialog Item
  End If
End Sub

Private Sub ShowOptionDialog(oMail As Outlook.MailItem)
  Dim oBars As Office.CommandBars
  Dim oBtn As Office.CommandBarButton

  Set oBars = oMail.GetInspector.CommandBars
  Set oBtn = oBars.FindControl(, 5598)
  oBtn.Execute
End Sub