Este codigo te permite enviar un email por Lotus, ademas de attacharle un archivo
En el load del formulario;
Set Session = CreateObject("Notes.NotesSession")
Set BD = Session.GetDatabase(ArbolNotes, BaseNotes)
En las declaraciones del formulario:
Public Session As Object
Public BD As Object
Dim xEma As String
Dim doc As Object
Dim rtitem As Object
Dim EmbeddedObject As Object
En un boton
doc.Form = "Memo"
doc.Subject = "Archivo de cuenta corriente."
doc.Body = "Sr. Cliente:" & Chr(13) & Chr(13) & _
" El archivo adjunto contiene un resumen de cuenta corriente." & Chr(10) & _
" Puede abrirse con Excel en version 5.0 o superior." & Chr(10) & _
" Ante cualquier duda comuniquese con su analista de cuenta." & Chr(13) & Chr(13) & _
"Atentamente."
Set rtitem = doc.CreateRichTextItem("Attach")
Set EmbeddedObject = rtitem.EmbedObject(1454, "", "C:\_CtaCte\Cuenta corriente.xls")
xEma = "
[email protected]"
doc.Sendto = xEma
Call doc.Save(True, True)
Call doc.Send(False)
