Wenn Du in Deine Mailschablone siehst, findest Du in der View "(Stationary)" eine Action "New Mail with Stationary", welche folgenden Code ausführt:
Dim session As New notessession
Dim uiws As New notesuiworkspace
Dim collection As notesdocumentcollection
Dim noteUIEditDocument As notesuidocument
Dim database As NotesDatabase
Set noteCursorDoc = session.currentdatabase.createdocument
Set database = session.currentdatabase
Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
If Not(collection Is Nothing) Then '//User may have cancelled
Set noteCursorDoc = collection.getfirstdocument
If Not noteCursorDoc Is Nothing Then
Set noteUIEditDocument = uiws.Editdocument(False, noteCursorDoc)
End If
End If
Exit Sub