I have the following code which sends an email from a Lotus Notes email account:
Public Sub SendMail(strAddressee As String, strSubject As String, strBody As String)
Dim objNotesWS As Object Dim notesdb As Object
Set objNotesWS = CreateObject("Notes.NotesUIWorkspace")
Set notesdb =...