'Outlook - Zugriff Initialisieren...
    Dim outApp As Outlook.Application
 
    'Termin-Zugriff Initialisieren
    Dim outtermin As Outlook.AppointmentItem
 
    'Neue Outlook Instanz
    Set outApp = New Outlook.Application
 
    'Neuer Termin
    Set outtermin = outApp.CreateItem(olAppointmentItem)
 
    'Block
    With outtermin
 
            bla, bla, bla...

    outtermin.delete

Gru?

BernyH