Hier der Code:
Sub Postopen(Source As Notesuidocument)
Dim doc As NotesDocument
Set doc = source.Document
Forall currField In doc.items
If Instr( currField.name, "_" ) = 0 Then
If Instr( currField.name, "$" ) =0 Then
LangItems (currField.name) = currField.text
End If
End If
End Forall
End Sub
Ich erhalte dann beim beginn der Forall-Schleife einen Type Missmatch. Das liegt wohl daran, dass das NotesUIDocument keine Items hat und somit auch das NotesDocument diese nicht erbt.
Sehr merkwürdig. Funktioniert folgender Code bei Dir?
Sub Postopen (Source As Notesuidocument)
Dim doc As NotesDocument
Set doc = source.Document
Forall currField In doc.items
Messagebox currField.name
End Forall
End Sub