hat jemand von Euch ein Makro, mit dem man aus Excel alle Termine in Outlook löschen kann? Oder gibt es in Outlook 2003 eine Funktion, den kompletten Kalender zu löschen.
Besten Dank im Voraus!
Viele Grüße aus Köln
Markus
Sub LöschOLK()
'https://www.herber.de/forum/archiv/888to892/t890014.htm
'Verweis auf Microsoft Outlook x.x Object Library muss gesetzt sein
'Gehe auf EXTRAS / VERWEIS und suche die entsprechende Library
Dim myOutlook As Outlook.Application
Dim nameRaum As Outlook.Namespace
Dim ObjItems As Outlook.Items
Set myOutlook = CreateObject("Outlook.Application")
Set nameRaum = myOutlook.GetNamespace("MAPI")
Set ObjItems = nameRaum.GetDefaultFolder(olFolderCalendar).Items 'Eigener Kalender
Anzahl = ObjItems.Count
For i = Anzahl To 1 Step -1
ObjItems(i).Delete
End With
Next i
End Sub
Gruß