Hallo,
versuche mich gerade wieder seit langem an Lotus Script, ein wenig habe ich mich eingefunden. Stehe jetzt aber vor einem größeren Problem.
Ich möchte per Softdeletion, Dokumente auf eine andere Form Switchen. Die Softdeletion ist in der DB aktiviert. Sobald ich auf das Papierkorb Symbol klicke kommt auch prompt meine MessageBox, jedoch wird nicht die Form geswitched.
Alte Form Alias = Person
Neue Form Alias = RMV_Person
Code
Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim c As NotesDocumentCollection
Dim doc As NotesDocument
Dim f,strForm As String
Set db = session.CurrentDatabase
Set c = source.documents
Set doc = c.GetFirstDocument
Do
f = doc.Form(0)
If f = "Person" Or f="Kontakt" Then
Messagebox "Do / If Schleife gesprungen ", 48, "INFO"
strForm="RMV_Person"
Call doc.ReplaceItemValue("Form", strForm)
Continue=True
End If
Set doc = c.getnextdocument(doc)
Loop Until doc Is Nothing
Exit Sub
SkipToEnd:
Exit Sub
End Sub
Alles anzeigen
Kann sich jemand erklären, was ich hier vergessen haben sollte oder vom Ansatz her falsch herangehe.
Danke schön.
Grüße
Deny