Termine absagen per VBA

[etofi]

Hallo zusammen,

Termine erstellen kann ich ja mittlerweile per VBA (mein Beitrag http://atnotes.de/index.php/topic,51007.msg348361.html#msg348361).

Termine (auch in Serie) löschen geht auch.

Code

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

[etofi]

Hat keiner eine Idee bzw. Lösungsansatz für mich?

[koehlerbv]

Den entscheidenden Tipp hast Du doch schon für fast vier Jahren bekommen:
http://atnotes.de/index.php/topic,51007.msg327762.html#msg327762

Da steht (u.v.a.) auch drin, wie ein Notice Document auszusehen hat, welches man hierfür braucht.

Bernhard

PS: Eingeschlichenen Tastenschlag wieder entfernt.

[etofi]

Das habe ich befürchtet, dann muss ich tatsächlich vor der Löschung manuell ein Notice Document bauen  

Wäre ja zu schön gewesen wenn es dafür mal eine integrierte Funktion gegeben hätte  

Viele Grüßen, frohes Fest und nen guten Rutsch
Eric