Das Ganze kann z.B. so aussehen:
@If(@Text(@DocumentUniqueID) = "00000000000000000000000000000000";
@Prompt([OK]; ""; "Kategorie");
@Prompt([OK]; ""; "Dokument")
)
Um das Nachzählen zu ersparen, es sind 32 Nullen. ;)
Axel
Eine Scriptlösung könnte beispielsweise so aussehen:
...
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
If doc Is Nothing Then
Messagebox "Zum Anlegen einer Kontaktperson muss der Markierungsrahmen" + Chr$(10) + _
"auf einem Firmen- oder Kontaktdokument stehen.", 48, "Adressen"
Exit Sub
Else
#Hier steht der Code zum anlegen einer Kontaktperson
End If 'If doc Is Nothing Then
...
Der Code ist ein Auszug aus einer Ansichtenaktion.
Axel