Domino 9 und frühere Versionen > ND8: Entwicklung

Event nach der Löschung eines Dokumentes ausführen

<< < (2/2)

ERR:
OK, mein Fehler.

Eine (etwas unsaubere) Lösung wäre es, im QueryDocumentDelete bei der Whitelist, die Verarbeitung (=Löschung) zu unterbinden ("Continue = False" setzen) und dann per Lotusscript dort das Dokument bzw. die Dokumente zu löschen und dann dort deine Routine aufzurufen/einzubinden. Das PostDocumentDelete-Event wird dann nicht ausgeführt.

MFG
ERR

gstueb:
Hallo ERR,

ich mache es jetzt nochmal anders: Ich merke mir im Postdocumentdelete die UNIDs der als gelöscht vorgemerkten Dokumente und übergebe diese als Ausnahme an die Update-Methode. So funktioniert es jetzt.


--- Code: ---Sub Postdocumentdelete(Source As Notesuidatabase)
Dim lstExceptUNID List As string
Dim colDeleted As NotesDocumentCollection
Dim doc As NotesDocument

Set colDeleted = Source.Documents
Set doc = colDeleted.GetFirstDocument
While Not (doc Is Nothing)
lstExceptUNID(doc.Universalid) = "x"
Set doc = colDeleted.Getnextdocument(doc)
Wend

Dim oWL As New tWhitelist(lstExceptUNID) ' ohne lstExceptUNID-Dokumente
oWL.UpdateAll ' Wenn Whitelist gelöscht wurde, Dokumente anpassen
End Sub
--- Ende Code ---

Grüße,
Gregor

Navigation

[0] Themen-Index

[*] Vorherige Sete