Vielen Dank! Hiermit hat es funktioniert: 1. Eine persönliche Ansicht für Kalendereinträge erstellen und alle Geburts-und Feietage löschen:
Im Menüpunkt Erstellen-Ansicht, eine neue Ansicht erstellen:
Auf Schaltfläche Bedingung hinzufügen klicken , im Feldberich das Feld "Type" auswählen und Dokumente nach Holiday enthalten, suchen.
Unter Ansicht werden alle vorhandene Feiertage angezeigt - alle löschen.
2. Nach dem Löschen der Dokumente kannst du folgenden Code einfach in einem Mail-Dokumen unter dem Menüpunkt "Erstellen-Hotspot in einer Schaltfläche einfügenden und mit Klick ausführen:
Sub Click(Source As Button)
Dim session As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set session = New NotesSession
Set db = session.currentdatabase
Set doc = db.getprofiledocument("HolidayProfile")
If doc Is Nothing Then
Msgbox "Keine Kalenderprofil vorhanden, biite den Agent beenden!"
Else
doc.remove(True)
Msgbox "Holiday-Profile sind entfernt !"
End If
End Sub