sending mail trought Lotus Notes

[José Luis Sánchez]

Hello:
Has anybody a sample of sending mail trought Lotus Notes ? It has to be done using OLE and I don't find how to do it.

Regards,

[Antonio Linares]

Jose Luis,

Do you have Lotus Notes installed on your computer ?

[José Luis Sánchez]

Yes, I've Notes.

This is a sample with VB:

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)

Regards,

[Antonio Linares]

Jose Luis,

Ok, have you tried the same logic with xharbour TOleAuto ?

[José Luis Sánchez]

Yes, this is the code:

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

but I get the error that I've posted in the spanish forum.

Regards,

[James Bott]

Jose,

I believe Lotus Notes supports MAPI. Have you tried it?

James

[Antonio Linares]

Jose Luis,

Prueba lo siguiente:

MsgInfo( oNotesSession:hObj )
oNotesDb := OleInvoke( oNotesSession:hObj, "GetDatabase", "", "" )
MsgInfo( oNotesDb )

y dinos que valores te aparecen.

[José Luis Sánchez]

Antonio:
Los dos mensajes me devuelven valores númericos de 7 digitos y no me dan error.

Saludos,

[Antonio Linares]

Jose Luis,

Intenta ahora esto:

OleInvoke( oNotesDb, "CreateDocument" )