Enviar correo con Lotus Notes

[José Luis Sánchez]

Hola:
Alguien tiene un ejemplo de como enviar correo a través de Lotus Notes ? Se tiene que hacer usando OLE, pero no doy con la secuencia correcta de mandatos para hacerlo.

Saludos,

[Antonio Linares]

Jose Luis,

Existe un software cliente de Lotus Notes que se pueda instalar libremente ? O un demo ?

[Antonio Linares]

Jose Luis,

Sabes cual es la cadena de descripción de OLE ?

[José Luis Sánchez]

No se si hay demo de Notes, creo que no porque va asociado al servidor Domino de IBM.

Un ejemplo con VB de lo que quiero hacer sería este:

Set session = CreateObject("Notes.NotesSession")
Set db = session.GetDatabase("", "")
Set doc = db.CreateDocument()

doc.Form = "Main Topic"
doc.Subject = Form1.Text3.Text
doc.Body = Form1.Text2.Text
Call doc.Save(True, False)

Lo que no tengo claro con OLE es cuando tengo que crear un objeto con CreateDocument y como llamar a un método del objeto. Por ejemplo, si hago esto:

oNotesSession := CreateObject( "Notes.Notessession" )
oNotesDb := oNotesSession:GetDatabase( "","" )
oNotesDb:Invoke("CreateDocument")

me pega un truene tremendo al crear el documento.

Saludos,

[Antonio Linares]

Jose Luis,

Te refieres a un GPF, si ?

Sabes si Lotus Notes es un Activex ó un servicio OLE solamente ?

Tienes acceso al IDE de C3 ?

[José Luis Sánchez]

El error que me da no es un GPF, es este:
...
Error description: Error Notes.Notessession:GETDATABASE/16389 E_FAIL: CREATEDOCUMENT
Args:

Stack Calls
===========
Called from: win32ole.prg => TOLEAUTO:CREATEDOCUMENT(0)
Called from: => HB_EXECFROMARRAY(0)
Called from: win32ole.prg => TOLEAUTO:INVOKE(403)
Called from: punidade.prg => UNNOTES(656)
Called from: punidade.prg => (b)UNIDADES(154)
...

¿ Como puedo saber si es un ActiveX o un servicio OLE ? Yo creo que es un servicio OLE solamente, pero no te lo puedo asegurar.

Saludos,