Das ist nicht korrekt: Der QueryOpen Event einer Maske wird immer ausgeführt, egal ob das Dokument in der Vorschau oder normal geöffnet wird.
Aufgepaßt: es kommt darauf an, wo Dein Code geschrieben ist. Die erste Zeile in der Memo Maske lautet:
If source.InPreviewPane Then Exit Sub
Das bedeutet: steht Dein Code danach, wird er natürlich nie ausgeführt. Damit der Code ausgeführt wird, muß er zwingend davor stehen:
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
REM Mein eigener Code BEGINN
.....
REM Mein eigener Code ENDE
If source.InPreviewPane Then Exit Sub
So wird der Code in der Vorschau NICHT ausgeführt:
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
If source.InPreviewPane Then Exit Sub
REM Mein eigener Code BEGINN
.....
REM Mein eigener Code ENDE
Das kannst Du im Debugger nachvollziehen: Debugger einschalten, Maildatenbank öffnen und ein Dokument in der Vorschau anzeigen lassen. Dann wirst Du sehen, daß der Event QueryOpen ausgeführt wird. Nach der ersten Zeile wird das Skript direkt beendet, da Source.InPreviewPane = True ist.