te adjunto el código de una función que tengo para enviar mails por Notes.

Los parámetros son Usuario que tiene la dirección de email o el Alias de
Notes y el Asunto y Cuerpo que quieras. La función también anexa ficheros
que tiene en una tabla y que creo que te valdrá como ejemplo.

Si necesitas algo más dímelo.

Saludos,

Valentín Playá Serra
Sonotronic S.A.
**************************************************************
Private Function EnviarNotificacion(IdNotificacion, Usuario, Asunto, Cuerpo
As String) As Byte
Dim SesionNotes As Object       ' sesión Notes
Dim dbNotes As Object                'Notes DataBase
Dim docNotes As Object                       'Notes Document
Dim objAttach As Object
Dim objEmbed As Object
Dim EnviarA As String
Dim CopiarA As String
Dim strArchivosAnexos As String
Dim strAsunto As String
Dim dbs As DAO.DATABASE
Dim rstAnexos As DAO.Recordset
On Error GoTo EnviarNotificacionError
Set dbs = CurrentDb()

Set SesionNotes = CreateObject("Notes.NotesSession")
Set dbNotes = SesionNotes.GETDATABASE("", "")
Call dbNotes.OPENMAIL
    Set docNotes = dbNotes.CREATEDOCUMENT()
    With docNotes
        .SAVEMESSAGEONSEND = False
        .SIGNONSEND = False
        EnviarA = Usuario
        .Subject = Asunto
        Call docNotes.REPLACEITEMVALUE("Body", Cuerpo)
        Set rstAnexos = dbs.OpenRecordset("Select NombreArchivo from tbAnexos where IdNotificacion = " & IdNotificacion)
        Do Until rstAnexos.EOF
                Set objAttach = docNotes.CREATERICHTEXTITEM(rstAnexos!NombreArchivo)
                Set objEmbed = objAttach.EMBEDOBJECT(1454, "", rstAnexos!NombreArchivo, rstAnexos!NombreArchivo)
                rstAnexos.MoveNext
        Loop
        EnviarNotificacion = 1
        Call .SEND(False, EnviarA)
    End With

EnviarNotificacionSalir:
    Exit Function
EnviarNotificacionError:
    If Err.Number = 7294 Then
        MsgBox ("El empleado o la dirección " & Usuario & " no se encuentra en la libreta de direcciones")
        EnviarNotificacion = 0
        Resume Next
    End If
    If Err.Number = 429 Then
        MsgBox ("Error, posiblemente Lotus Notes no esté arrancado")
        EnviarNotificacion = 2
        Resume EnviarNotificacionSalir
    End If
    MsgBox Err.Number & "/" & Err.Description
    Resume EnviarNotificacionSalir
End Function