Option Explicit


'***********************************************************
'OL_Anhänge
'***********************************************************

'Ereignis-Handler für Inspector-Fenster einrichten
Dim WithEvents objInspectors As Inspectors

Private Sub Application_Startup()
    'Ereignis-Handler für Inspector-Fenster initialisieren
    Set objInspectors = Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim objMail As MailItem

    'Wenn aktuelles Inspector-Fenster eine Nachricht enthält, dann...
    If Inspector.CurrentItem.Class = olMail Then
        '... Verweis auf Nachricht holen
        Set objMail = Inspector.CurrentItem
        'Wenn Nachricht editierbar (ungesendet) ist, dann...
        If objMail.Sent = False Then
            '... Befehlsleiste im aktuellen Inspector-Fenster anlegen
            Call OL_Anhänge.SymLeisteAnzeigen(Inspector)
        End If
    End If
End Sub
