E-Mail bleibt im Postausgang liegen

 

Es kommt vor, dass E-Mails nicht gesendet werden. Ein Grund könnte der Virenscanner sein, der hier Probleme macht, oder die E-Mails wurden per Drag & Drop in den Postausgangsordner gezogen (z. B. aus dem Ordner Entwürfe).

Sofern es sich bei der E-Mail nicht um ein Problem mit der Größe handelt (siehe Blockierende Mail aus Postausgang löschen), kann man sich in der Regel mit etwas VBA-Code behelfen.

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)

Für Outlook® 2000, Outlook® 2002, Outlook® 2003, Outlook® 2007

Option Explicit
 
Public Sub FlushOutBox()
 
    '=====================================================================
    ' Leert den Postausgang
    ' (c) Peter Marchert - http://www.outlook-stuff.com
    ' 2008-11-02 Version 1.0.0
    '=====================================================================
 
    Dim objOutbox As Outlook.MAPIFolder
    Dim objItem As Outlook.MailItem
    Dim lngItems As Long
 
    On Error Resume Next
 
    '---------------------------------------------------------------------
    ' Postausgang referenzieren
    '---------------------------------------------------------------------
    Set objOutbox = Outlook.Session.GetDefaultFolder(olFolderOutbox)
 
    '---------------------------------------------------------------------
    ' Alle Elemente aus dem Postausgang versenden
    '---------------------------------------------------------------------
    For lngItems = objOutbox.Items.Count To 1 Step -1
        Set objItem = objOutbox.Items(lngItems)
        objItem.Send
    Next
 
    '---------------------------------------------------------------------
    ' Referenzen löschen
    '---------------------------------------------------------------------
    Set objOutbox = Nothing
    Set objItem = Nothing
 
End Sub