Lotus Notes - ComposeDocument ARGUMENTOS? SERVERNAME?

   
Vista:

ComposeDocument ARGUMENTOS? SERVERNAME?

Publicado por galileogali (1 intervención) el 27/10/2009 23:19:53
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 = "Excel@Microsoft.com"

Const stCC As String = "Lotus Notes@IBM.com"

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ComposeDocument ARGUMENTOS? SERVERNAME?

Publicado por El Lobo (22 intervenciones) el 25/01/2010 16:44:43
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:pepito@perensejo.com;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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar