Lotus Notes - ComposeDocument ARGUMENTOS? SERVERNAME?

Este es parte de un codigo destinadoa enviar mail en L Notes con Rango con Formato de Excel

Sub Send_Formatted_Range_Data()
Dim oWorkSpace As Object, oUIDoc As Object

Dim rnBody As Range

Dim lnRetVal As Long

Const stTo As String = "[email protected]"

Const stCC As String = "Lotus [email protected]"

Application.ScreenUpdating = False
Set rnBody = ActiveSheet.Range("Report")

rnBody.Copy
Set oWorkSpace = CreateObject("Notes.NotesUIWorkspace")
On Error Resume Next

MI DIFICULTAD esta en obtener cual ha de ser el servername de mi primer argumento,
la Base de datos de la siguiente instruccion.
A PARTIR DE LOS mENUES
Archivo >> Base de datos >> Abrir ¿Puedo establecer los dos argumentos a utilizar: servername y Base de Datos?
Set oUIDoc = oWorkSpace.ComposeDocument("", "", "Memo")

On Error GoTo 0



Set oUIDoc = oWorkSpace.CurrentDocument

Lo mas facil es crear el fichero y usar mailTo:

No recuerdo la sintaxsis correcta del mailto pero seria algo asi el seudo codigo.

Open( "mailTo:[email protected];subject:Fichero Excel;Fileattachment:c:\temp\excel.xls")

esto abre el cliente de correo (el que tenga configurado) y espera confirmacion de envio por parte del usuario, en OutLook se puede forzar el envio desde el codigo.