Sending email with attachments using Progress and Lotus Notes

[Chris Kelleher]

<BLOCKQUOTE><font size="1" face="Arial, Verdana">code:</font><HR><pre>def var i-to as char.
def var i-sbj as char.
def var i-body as char.
def var i-file as char.

assign i-to = "Anne Freeze"
i-sbj = "Test email with attachment..."
i-body = "The attachment is..."
i-file = "c:\autoexec.bat".

IF SEARCH(i-File) = ?
THEN DO:
MESSAGE "Unable To Find File " i-File view-as alert-box.
RETURN.
END.

Run Send_Mail( input i-to, i-sbj, i-body, i-file).

PROCEDURE SEND_MAIL :
DEF INPUT PARAMETER SEND_TO AS CHAR.
DEF INPUT PARAMETER SEND_SBJ AS CHAR.
DEF INPUT PARAMETER SEND_BODY AS CHAR.
DEF INPUT PARAMETER SEND_FILE AS CHAR.

DEF VAR EMBED_ATTACHMENT AS INT INIT 1454.
DEFINE VAR objSession AS COM-HANDLE.
DEF VAR objDB AS COM-HANDLE.
DEF VAR objDoc AS COM-HANDLE.
DEF VAR objItem AS COM-HANDLE.

CREATE "NOTES.NOTESSESSION" objSession.

IF objSession:CurrentDatabase = 0
THEN DO:
Bell.
MESSAGE "Please LOGIN To Mail Database !"
view-as alert-box ERROR.
RETURN.
END.

objDB = objSession:CURRENTDATABASE.
objDoc = objDB:CREATEDOCUMENT.
objItem = objDoc:CreateRichTextItem("IS-FILE").

objItem:EMBEDOBJECT(EMBED_ATTACHMENT, 0, SEND_FILE).
objDoc:Subject = SEND_SBJ.
objDoc:Body = SEND_BODY.
objDoc:SendTo = SEND_TO.
objDoc:IS-CODE = "IS Department Mail".


objdoc:save(true, false).

objdoc:SaveMessageOnSend = True.
objdoc:send(False, SEND_TO).

RELEASE OBJECT objItem NO-ERROR.
RELEASE OBJECT objDoc NO-ERROR.
RELEASE OBJECT objDB NO-ERROR.
RELEASE OBJECT objSession NO-ERROR.

MESSAGE "Message Send" VIEW-AS ALERT-BOX.

END PROCEDURE.


[/code]