Function kalender_löschen(kalendername)
    Dim objApp As New Outlook.Application
    Dim objItem As Object
    Dim objCDO As MAPI.Folder
    Dim objCDOSession As MAPI.Session
    Dim strEntryID As String
    Dim strStoreID As String
    Dim olverz As Outlook.MAPIFolder
    Set olverz = objApp.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar)
 
 
    Set objApp = CreateObject("Outlook.Application")
    Set objItem = olverz.Folders(kalendername)
    If Not objItem Is Nothing Then
        Set objCDOSession = CreateObject("MAPI.Session")
        objCDOSession.Logon "", "", False, False
        strEntryID = objItem.EntryID
        strStoreID = objItem.Parent.StoreID
        Set objCDO = objCDOSession.GetFolder(strEntryID, strStoreID)
        If Not objCDO Is Nothing Then
            objCDO.Delete
        End If
    End If
 
    objCDOSession.Logoff
    Set objCDOSession = Nothing
    Set objItem = Nothing
    Set objCDO = Nothing
    Set objApp = Nothing
End Function