VBOffice

Original-Email beim Antworten automatisch löschen

Mit einem Klick auf Antworten können Sie die zu beantwortende Email gleich löschen lassen.

Zuletzt geändert: 26.09.2006 | Aufrufe: 67.139  | #33
◀ Vorheriges Beispiel Nächstes Beispiel ▶
Category-Manager Category-Manager
Mit dem Category-Manager können Sie Outlook Kategorien gruppieren, synchronisieren und filtern, neuen Emails automatisch die Kategorie des Absenders zuweisen und vieles mehr. Das Addin ist auch für IMAP geeignet.

Dieses Beispiel zeigt, wie Sie eine E-Mail sofort löschen lassen können, sobald Sie auf die Antworten-Schaltfläche klicken. Outlook erstellt Ihnen trotzdem die Antwort (je nach Einstellung inkl. des Originaltextes) und verschiebt automatisch das Original in den Ordner für gelöschte Objekte.


tip  So fügen Sie Makros in Outlook ein
Private WithEvents ReplyButton As Office.CommandBarButton
Private WithEvents m_Inspectors As Outlook.Inspectors
Private m_Mail As Outlook.MailItem

Private Sub Application_Startup()
  Set ReplyButton = Application.ActiveExplorer.CommandBars.FindControl(, 354)
  Set m_Inspectors = Application.Inspectors
End Sub

Private Sub m_Inspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
  On Error Resume Next
  If Not m_Mail Is Nothing Then
    m_Mail.Delete
    Set m_Mail = Nothing
  End If
End Sub

Private Sub ReplyButton_Click(ByVal Ctrl As Office.CommandBarButton, _
  CancelDefault As Boolean _
)
  On Error Resume Next

  If TypeOf Application.ActiveWindow Is Outlook.Explorer Then
    Set m_Mail = Application.ActiveExplorer.Selection(1)
  Else
    Set m_Mail = Application.ActiveInspector.CurrentItem
  End If
End Sub
ReplyAll ReplyAll
Mit diesem Addin für Outlook erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten.
email  Senden Sie eine Nachricht