Man braucht eigentlich "nur" diesen Teil des OoO
'// send the mail message..
Set Me.m_noteEmail = New NotesDocument(Me.m_db)
Set Me.m_rItem = New NotesRichTextItem(Me.m_noteEmail, "Body")
Call Me.m_noteEmail.ReplaceItemValue ( "Form", "Memo")
Call Me.m_noteEmail.ReplaceItemValue ( "From", Me.m_NameOwner.canonical )
Call Me.m_noteEmail.ReplaceItemValue ( "AltFrom", Me.m_NameAltOwner.canonical )
Call Me.m_noteEmail.ReplaceItemValue ( "SendTo", Me.m_strSendToName )
Call Me.m_noteEmail.ReplaceItemValue ( "AltSendTo", Me.m_strNameAltFrom )
Call Me.m_noteEmail.ReplaceItemValue ( "$LangFrom", Me.m_strLangOwner )
Call Me.m_noteEmail.ReplaceItemValue ( "$NameLanguageTags", Me.m_strLangFrom)
Call Me.m_noteEmail.ReplaceItemValue ( "Subject", Me.m_strSubject)
Call Me.m_noteEmail.ReplaceItemValue ( "$AutoForward", True )
Me.m_rItem.AppendText ( Me.m_strMsg )
On Error Goto SendError
[color=Red]Me.m_noteEmail.Send (False)[/color]
so umzubauen, dass statt Me.m_noteEmail.Send (False) das Dokument in die MAIL.BOX (die richtige ist ggf. zu ermitteln) des Servers kopiert wird.
Bernhard