Eine Kopie des Mails im Mailfile des aktuellen Users zu erzeugen, erfordert nur wenige Zeilen Code:
Dim dbMail As New NotesDatabase ("","")
Call dbMail.OpenMail
If dbMail.IsOpen Then
Set docMailCopy = dbMail.CreateDocument ()
Call docMail.CopyAllItems (docMailCopy)
docMail.PostedDate = Now
Call docMailCopy.Save (True, False, True)
End If
Solange der User die richtige Arbeitsumgebung ausgewählt hat, funktioniert dies auch lokal.
Performance: Da das ganze im Backend funktioniert, läuft das sogar schneller als das "normale" Mailspeichern im Frontend, da nicht ad hoc Ansichten aktualisiert werden müssen. Ansonsten gelten natürlich die identischen Gesichtspunkte wie mit dem "normalen" Mailschreiben in grossen DBs.
HTH,
Bernhard