Du musst "PostedDate" setzen...
Weil: CoreEmailClasses, UIMemoDocument- Klasse, Postopen, Zeile 123ff
Function PostOpen(uidoc As notesuidocument)
Const ICAL_HASICAL = "$NoteContainsICAL"
Const ICAL_REDIRITEM = "$ICAL_CHILDREN_IDS"
Dim RedirNote As NotesDocument
Set Me.m_noteUIMemo = uidoc
Set Me.m_noteMemo = uidoc.document
If Not uidoc.inpreviewpane Then
If Me.m_noteMemo.hasitem("PostedDate") Then
Call SetFlag(MEMO_WASMAILED)
und 316ff:
If Not Me.m_noteMemo.IsNewNote And Not Me.m_notememo.hasitem("$IMTranscript") Then
If Not IsFlagSet(MEMO_WASMAILED) Then
If m_session.CurrentDatabase.CurrentAccessLevel => 4 Then
Me.m_noteUIMemo.editmode = True