Excel - Macro para enviar mails lotus notes (no me funciona)

buen dia compañeros

favor

estoy haciendo una macro para enviar mails simples por lotus notes desde excel

el algoritmo esta abajo:

Ya puse en referencias lotus notes automation classes

ahora, con F8 estoy recorriendo cada registro, y en

Set MailDoc = Maildb.CREATEDOCUMENT
Call MailDoc.REPLACEITEMVALUE("Form", "Memo") ya deberia haber creado el nuevo objeto mail pero no, no se crea nada...

por ahi me comentaron algo de html ya que el lotus no esta reconociendo ciertas sentencias

podrian explicarme esto? creo el algoritmo es correcto pero no reconocido... agradeceria muchisimo de su apoyo, no encontre respuestas al respecto aqui y otras paginas.


sub macro_carta()
Dim Maildb As Object
Dim MailDoc As Object
Dim Body As Object
Dim Session As Object
'Start a session of Lotus Notes
Set Session = CreateObject("Lotus.NotesSession")
'This line prompts for password of current ID noted in Notes.INI
Call Session.Initialize
'or use below to provide password of the current ID (to avoid Password prompt)
'Call Session.Initialize("<password>")
'Open the Mail Database of your Lotus Notes
Set Maildb = Session.GETDATABASE("", "C:\Lotus\notes\data\archive\a_mvegam.nsf")
If Not Maildb.IsOpen = True Then Call Maildb.Open
'Create the Mail Document
Set MailDoc = Maildb.CREATEDOCUMENT
Call MailDoc.REPLACEITEMVALUE("Form", "Memo")
'Set the Recipient of the mail
Call MailDoc.REPLACEITEMVALUE("SendTo", "Ashish Jain")
'Set subject of the mail
Call MailDoc.REPLACEITEMVALUE("Subject", "Subject Text")
'Create and set the Body content of the mail
Set Body = MailDoc.CREATERICHTEXTITEM("Body")
Call Body.APPENDTEXT("Body text here")
'Example to create an attachment (optional)
Call Body.ADDNEWLINE(2)
Call Body.EMBEDOBJECT(1454, "", "C:\dummy.txt", "Attachment")
'Example to save the message (optional) in Sent items
MailDoc.SAVEMESSAGEONSEND = True
'Send the document
'Gets the mail to appear in the Sent items folder
Call MailDoc.REPLACEITEMVALUE("PostedDate", Now())
Call MailDoc.SEND(False)
'Clean Up the Object variables - Recover memory
Set Maildb = Nothing
Set MailDoc = Nothing
Set Body = Nothing
Set Session = Nothing
end sub

Manuel
Has podido resolver esto??
Saludos,

Gonzalo

Gonzalo, buen dia, uhmmm no...

recien estaba usando esto, pero creo que el algortimo si funciona solo que... las operaciones se realizan internamente, no es que cuando ejecuto el algoritmo paso a paso, se crea una ventana con el mail y se va llenando todo one to one.. es una hipotesis, pero quisiera la direccion de alguien que conosca, lastimozamente en mi empresa usan lotus, con outlook seria sencillo..

Manuel
Me parece que el problema debe estar en las funciones que llamas para realizar el mail.
Deberías de pasarme los códigos de las mismas para ver si puedo ayudarte...
Si no lo quieres enviar por aqui, envíamelos a mi mail..
Saludos,

Gonzalo

Hola,

Gonzalo, que tal

es el algoritmo que puse en el primer mail, simplemente cree un modulo, y lo pegue, y listo

ahora de hecho, fui a referencias y active el lotus notes class.

Y para probar e estado usando F8, para ir de sentencia en sentencia, pero nada..

Te soy sincero que este es un algoritmo modelos, de los que encuentras en google, para temas

como este, que es conectar el excel con lotus notes

muchisimas gracias por el apoyo, y suerte

Manuel
Me parece que el siguiente código te va a funcionar mejor. Sólo hay que modificarlo:


Saludos,

Gonzalo

Gracias gonzalo, es una macro muy potente, ayudara muchos que usan lotus

un abrazo