Domino 9 und frühere Versionen > ND8: Entwicklung

Termine absagen per VBA

(1/1)

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
--- Ende Code ---

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

Navigation

[0] Themen-Index