Email senden, ohne zu speichern

Häufig werden Mails verschickt, die anschließend gelöscht werden können. Wenn Sie das über den Optionendialog einstellen möchten, macht das 4 Klicks pro Mail, also 3 zuviel.

Mit ein paar Zeilen VBA gibt es ab Outlook 2003 Abhilfe. Kopieren Sie sich das Beispiel in 'DieseOutlookSitzung' und erstellen Sie eine neue Schaltfläche auf der Symbolleiste des Mailfensters, welche bei Klick das Beispiel aufruft. Wenn Sie eine Mail senden und diese anschließend speichern wollen, dann klicken Sie weiterhin den normalen 'Senden'-Button. Wenn Sie die Mail dagegen senden und nicht speichern wollen, dann klicken Sie die neue Schaltfläche.

(Grundsätzlich ist das auch in Versionen vor Outlook 2003 möglich; für Outlook XP und Outlook 2000 SP3 können Sie die auftretende Sicherheitsmeldung mithilfe der Redemption vermeiden.)

  So fügen Sie Makros in Outlook ein

Public Sub SendAndDelete()
  Dim obj As Object
  Dim Mail As Outlook.MailItem

  If MsgBox("Nach dem Senden löschen?", vbYesNo Or vbQuestion) = vbNo Then
    Exit Sub
  End If

  Set obj = Application.ActiveInspector.CurrentItem
  If TypeOf obj Is Outlook.MailItem Then
    Set Mail = obj
    Mail.DeleteAfterSubmit = True
    Mail.Send
  End If
End Sub