Hallo zusammen,
Termine erstellen kann ich ja mittlerweile per VBA (mein Beitrag http://atnotes.de/index.php/topic,51007.msg348361.html#msg348361 (http://atnotes.de/index.php/topic,51007.msg348361.html#msg348361)).
Termine (auch in Serie) löschen geht auch.
Public Function fktNotesTerminLoeschen(strServer As String, strMailDB As String, strNotesID As String)
Dim objNotes As Object
Dim LNdb As Object
Dim LNView As Object
Dim Collection As Object
'Holen einer aktiven Notessession
Set objNotes = GetObject("", "Notes.NotesSession")
'Verweisen auf die gewünschte Datenbank
Set LNdb = objNotes.GETDATABASE(strServer, strMailDB, False)
If Not (LNdb Is Nothing) Then
Set LNView = LNdb.GETVIEW("($ApptUNID)")
If LNView Is Nothing = False Then
'Collection füllen
Set Collection = LNView.GETALLDOCUMENTSBYKEY(strNotesID, True)
If Collection.Count > 0 Then
Collection.RemoveAll True
End If
End If
End If
Set objNotes = Nothing
Set LNdb = Nothing
Set LNView = Nothing
Set Collection = Nothing
End Function
Leider löscht das aber nur die Einträge aus der Datenbank und schickt keine Absagen an die Teilnehmer.
Gibt es hier nen einfachen Trick wie ich vor der Löschung noch die Absage raus schicken kann?
Grüße
Eric