E-Mail erneut senden

Um eine bereits gesendete E-Mail erneut zu versenden, muss diese geöffnet werden und kann danach mit "(Andere) Aktionen" -> "Diese Nachricht erneut senden..." noch einmal gesendet werden.

Anschließend muss man noch auf den Senden-Button klicken und die E-Mail wieder schließen. Wesentlich einfacher geht es mit ein paar Zeilen VBA-Code.

Zur Verwendung dieses Beispiels beachten Sie bitte die wichtigen Hinweise, sowie den Workshop VBA in Outlook® verwenden. Den Code bitte in ein neues Modul kopieren (Einfügen -> Modul im VBA-Editor).

Ab Outlook® 2000

Option Explicit
 
Public Sub SendAgain()
 
    '=====================================================================
    ' Sendet ein markiertes Element noch einmal
    ' (c) Peter Marchert - http://www.outlook-stuff.com
    ' 2009-07-06 Version 1.0.0
    '=====================================================================
    
    Dim objItem As Object
    Dim blnKeep As Boolean
 
    On Error GoTo ExitProc
 
    '---------------------------------------------------------------------
    ' Originalelement erhalten(True = erhalten, False = Nicht erhalten)?
    '---------------------------------------------------------------------
    blnKeep = True
 
    '---------------------------------------------------------------------
    ' Aktuell markierte E-Mail referenzieren
    '---------------------------------------------------------------------
    Set objItem = Outlook.ActiveExplorer.Selection(1)
 
    '---------------------------------------------------------------------
    ' Wenn schon gesendet und gespeichert, dann versenden
    '---------------------------------------------------------------------
    If objItem.Sent And objItem.Saved Then
 
        '-----------------------------------------------------------------
        ' Soll das Originalitem erhalten bleiben?
        '-----------------------------------------------------------------
        If blnKeep Then objItem.Copy
 
        '-----------------------------------------------------------------
        ' Element senden
        '-----------------------------------------------------------------
        objItem.Send
 
    End If
 
ExitProc:
    '---------------------------------------------------------------------
    ' Referenz auf Element löschen
    '---------------------------------------------------------------------
    Set objItem = Nothing
 
End Sub