Dim Session As NotesSession 'The session
Dim Maildb As NotesDatabase 'The mail database
Dim UserName As String 'The current users notes name
Dim MailDoc As NotesDocument 'The mail document itself
 
'Start a session to notes
Set Session = New NotesSession
Call Session.Initialize(strPassword)
If Trim(form1.efaba.Text) = "" Then MsgBox ("Verdammi, what's your subject?")
If Trim(form1.efmail.Text) = "" Then MsgBox ("Verdammi, what's your text?")
UserName = Session.UserName
Set Maildb = Session.GetDatabase("", "names.nsf")
If Maildb.IsOpen = True Then
'Already open for mail
Else
Call Maildb.Open
End If
 
'Set up the new mail document
Set MailDoc = Maildb.CreateDocument
Call MailDoc.ReplaceItemValue("Body", Form1.efmail.Text)
Call MailDoc.ReplaceItemValue("Subject", Form1.efaba.Text)
Call MailDoc.ReplaceItemValue("SendTo", Form1.efaddr.Text)
'Call MailDoc.ReplaceItemValue("Recipient", Form1.efaddr.Text)
'Call MailDoc.ReplaceItemValue("Form", "Memo")
'MailDoc.Send true
MailDoc.Send False
Set MailDoc = Nothing
Set Maildb = Nothing
Set Session = Nothing