Hi,
das kann man, wenn es immer gleich ist, auch etwas automatisieren.
Den Code kannst Du im Designer bei den Vorgaben
im Bereich "Domino Designer - LotusScript-Editor - Codeschablone"
hinterlegen. Auch die Kommentare mit den Beschreibungen die ich am Anfang
immer rein machen möchte, können so hinterlegt werden.
Wenn man darin dann noch die Platzhalter verwendet, sieht es immer
gleich aus und man hat nicht mehr so viel damit zu tun - und man vergisst es nicht ;-)
Hier mein Beispiel unter Sub und Function. Ich nutze "meist" eine extra Lib für das Errorhandling.
Also ggf. noch Dein Errorhandling einbauen.
| %REM |
| ------------------------------------------------------------------------------------------ |
| Design : ${designelement_type} - ${designelement_name} |
| Element : ${element_type} - ${element_name} |
| Database : ${db_title} |
| Function : <Kurz-Beschreibung> |
| Requires : Use "libError" für Errorhandling in Options |
| ------------------------------------------------------------------------------------------ |
| Author : ${author}, <Firma> |
| Created : ${date} |
| Software : Lotus Notes/Domino 9.0.1 |
| ------ Änderungen ------------------------------------------------------------------------ |
| <Platzhalter für Änderungen> |
| ----- weitere Beschreibung -------------------------------------------------------------- |
| <Platzhalter für Beschreibung> |
| ------------------------------------------------------------------------------------------ |
| %ENDREM |
| |
| On Error GoTo ErrorHandler |
| |
| Dim session As New NotesSession |
| Dim db As NotesDatabase |
| Dim coll As NotesDocumentCollection |
| Dim doc As NotesDocument |
| |
| Set db = session.CurrentDatabase |
| Set coll = db.UnprocessedDocuments 'Alle markierten Doks in die Collection |
| Set doc = coll.GetFirstDocument |
| |
| %REM |
| While Not (doc Is Nothing) |
| |
| 'Call DatenSammeln(doc) |
| |
| Set doc = coll.GetNextDocument(doc) 'nächstes Bewertungs-Dok nehmen |
| |
| Wend 'While Not (doc Is Nothing) |
| %ENDREM |
| |
| |
| EXITSCRIPT: |
| Exit Sub |
| |
| ERRORHANDLER: |
| Select Case Err |
| Case 4419 |
| MsgBox "No document selected.", 64, db.title |
| Resume exitScript |
| Case Else |
| Call ErrorMessage("${designelement_type}: ${designelement_name}, ${element_type}: ${element_name}") |
| Resume EXITSCRIPT |
| End Select 'Select Case Err |
| |