In Notes UserId there is a setting to not request password for Notes-based applications. Then try this code and see how you go. (it will only work when Notes open, otherwise it ask for password) - its a start anyway
Dim ms As Domino.NotesSession, md As Domino.NotesDatabase, mm As Domino.NotesDocument, mi As Domino.NotesItem
Dim mb As New Domino.NotesRichTextItem, ma As Domino.NotesEmbeddedObject
Set ms = New Domino.NotesSession
ms.Initialize
Set md = ms.GetDbDirectory(""

.OpenMailDatabase
Set mm = md.CreateDocument
Set mi = mm.ReplaceItemValue("Form", "Memo"

Set mi = mm.ReplaceItemValue("Subject", "Put subject here"

Set mi = mm.ReplaceItemValue("SendTo", "Address Here"

'This next bit is inserting attachment"
Set mb = mm.CreateRichTextItem("Body"

Set ma = mb.EmbedObject(1454, "", "attachment Name", ""

mm.SaveMessageOnSend = True
mm.send False
FAZTECH
