Mira aqui t pego una funcion para mandar un correo atachando un elemento a traves del Lotus Notes
function AbrirCorreo()
{
var sFileName = 'Lo que quieres atachar';
var sSubject = "Asunto del mensaje";
CR = String.fromCharCode(13) + String.fromCharCode(10);
VBScriptFunction = ""
VBScriptFunction += CR + "Sub SendNotesMail(Subject , Attachment , Recipient , BodyText , SaveIt )"
VBScriptFunction += CR + "On Error Resume Next"
VBScriptFunction += CR + "Dim Session"
VBScriptFunction += CR + "Dim Maildb"
VBScriptFunction += CR + "Dim MailDoc"
VBScriptFunction += CR + "Dim AttachME"
VBScriptFunction += CR + "Dim EmbedObj"
VBScriptFunction += CR + "Dim ws"
VBScriptFunction += CR + "Dim Server"
VBScriptFunction += CR + "Dim MailDbName"
VBScriptFunction += CR + "Dim UserName"
VBScriptFunction += CR + "Set Session = CreateObject(\"Notes.NotesSession\")"
VBScriptFunction += CR + "Server = Session.GetEnvironmentString(\"MailServer\", True)"
VBScriptFunction += CR + "MailDbName = Session.GetEnvironmentString(\"MailFile\", True)"
VBScriptFunction += CR + "UserName = Session.UserName"
VBScriptFunction += CR + "Set Maildb = Session.GetDatabase(Server, MailDbName)"
VBScriptFunction += CR + "If Maildb.ISOPEN <> True Then"
VBScriptFunction += CR + " Maildb.OPENMAIL"
VBScriptFunction += CR + "End If"
VBScriptFunction += CR + "Set MailDoc = Maildb.CreateDocument"
VBScriptFunction += CR + "MailDoc.Form = \"Memo\""
VBScriptFunction += CR + "MailDoc.sendto = Recipient"
VBScriptFunction += CR + "MailDoc.Subject = Subject"
VBScriptFunction += CR + "MailDoc.Body = BodyText"
VBScriptFunction += CR + "MailDoc.SAVEMESSAGEONSEND = SaveIt"
VBScriptFunction += CR + "If Attachment <> \"\" Then"
VBScriptFunction += CR + " Set AttachME = MailDoc.CREATERICHTEXTITEM(\"Attachment\")"
VBScriptFunction += CR + " Set EmbedObj = AttachME.EMBEDOBJECT(1454, \"\", Attachment, \"Attachment\")"
VBScriptFunction += CR + "End If"
VBScriptFunction += CR + "Set ws = CreateObject(\"notes.notesuiworkspace\")"
VBScriptFunction += CR + "ws.OpenDatabase Server, MailDbName, \"\", \"\", False"
VBScriptFunction += CR + "ws.EDITDOCUMENT True, MailDoc"
VBScriptFunction += CR + "Set EmbedObj = Nothing"
VBScriptFunction += CR + "Set AttachME = Nothing"
VBScriptFunction += CR + "Set MailDoc = Nothing"
VBScriptFunction += CR + "Set Maildb = Nothing"
VBScriptFunction += CR + "Set Session = Nothing"
VBScriptFunction += CR + "Set ws = Nothing"
VBScriptFunction += CR + "End Sub"
VBScriptFunction += CR + "Call SendNotesMail( \"" + sSubject + "\" , \"" + sPathName + "\" , \"\",\"\" , True)"
window.execScript(VBScriptFunction,'VBScript');
}
Espero que t sirva de ayuda
