Send mail via Lotus Notes R5

Question

Does anyone have any examples of sending e-mail through Lotus Notes via forms 6i?
I have searched the forum and there seems to be very few items on Lotus Notes.
Thanks in advance.
Lakmal

Answer 1

Fainaly I found the way.. here is the coding
PROCEDURE send_email(p_recipient_in IN VARCHAR2,
p_copy_to_in IN VARCHAR2,
p_blind_copy_to_in IN VARCHAR2,
p_subject_in IN VARCHAR2,
p_text_in IN VARCHAR2,
p_return_receipt_in IN VARCHAR2,
p_no_of_attachments IN NUMBER DEFAULT 0,
p_mood_stamp_in IN VARCHAR2,
p_view_icon_in IN NUMBER) IS
-- Local Variable Declaration
lv_args ole2.list_type;
lv_db ole2.obj_type;
lv_doc ole2.obj_type;
lv_return_receipt VARCHAR2(1);
lv_session ole2.obj_type;
lv_attach1 ole2.obj_type;
lv_attach2 ole2.obj_type;
lv_mailserver VARCHAR2(200) := 'ew-cmb';
lv_sqlerrm VARCHAR2(255);
BEGIN
     lv_session := ole2.Create_Obj('Notes.NotesSession');
     lv_args := ole2.Create_Arglist;
     ole2.Add_Arg(lv_args, lv_mailserver); -- Mail Server
     ole2.Add_Arg(lv_args, 'names.nsf'); -- Mail File
     ole2.Add_Arg(lv_args, 'mail\Lakmal_M.nsf'); Mail File
     lv_db := ole2.Invoke_Obj(lv_session, 'GetDatabase', lv_args);
     ole2.Destroy_Arglist(lv_args);
     lv_doc := ole2.Invoke_Obj(lv_db, 'CreateDocument',lv_args);
     ole2.Set_Property(lv_doc, 'SendTo', p_recipient_in);
If (p_copy_to_in IS NOT NULL) then
     ole2.Set_Property(lv_doc, 'CopyTo', p_copy_to_in);
End If;
If (p_blind_copy_to_in IS NOT NULL) then
     ole2.Set_Property(lv_doc, 'BlindCopyTo', p_blind_copy_to_in);
End If;
-- Guidelines for mood stamp as to what argument values should be passed
-- ''- Normal
-- P - Personal
-- C - Confidential
-- R - Private
-- F - Flame
-- Q - Question
-- G - Good Job!
-- M - Reminder
-- J - Joke
-- T - Thank You!
If (p_mood_stamp_in IS NOT NULL) then
     ole2.Set_Property(lv_doc, 'SenderTag', p_mood_stamp_in);
End If;
If (p_subject_in IS NOT NULL) then
     ole2.Set_Property(lv_doc, 'Subject', p_subject_in);
End If;
If (p_text_in IS NOT NULL) then
     ole2.Set_Property(lv_doc, 'Body', p_text_in);
End IF;
--To embed attachments add the following lines to code immediately after
-- setting the 'Body' property :
If (nvl(p_no_of_attachments,0) = 0) then -- No attachments
     null;
Else
     lv_args := ole2.Create_Arglist;
     ole2.Add_Arg(lv_args, 'Attachments');
     lv_attach1 := ole2.Invoke_Obj(lv_doc, 'CreateRichTextItem', lv_args);
     ole2.Destroy_Arglist(lv_args);
     lv_args := ole2.Create_Arglist;
     ole2.Add_Arg(lv_args, 1454);
     ole2.Add_Arg(lv_args, '');
     Ole2.Add_Arg(lv_args, 'C:\Install.log');
     lv_attach2 := ole2.Invoke_Obj(lv_attach1,'EMBEDOBJECT', lv_args);
End If;
-- 1-Return Receipt
-- 0-No Return Receipt
lv_return_receipt := TRANSLATE(NVL(UPPER(p_return_receipt_in), 'N'), ' NY', '001');
ole2.Set_Property(lv_doc, 'ReturnReceipt', lv_return_receipt);
If (lv_return_receipt = '1') then
     ole2.Set_Property(lv_doc, 'DeliveryReport', 'B');
End If;
-- The following values can be used to set the icon that appears to the left
-- of the senders name.
-- 0 - none
-- 10 - finger with ribbon
-- 23 - newspaper
-- 74 - flame
-- 83 - thumbs up
-- 85 - happy face
-- 133 - envelope
-- 159 - star
-- 162 - question mark
-- 163 - investigator
-- 166 - glasses
-- 169 - red circle
-- 170 - gold circle
If (p_view_icon_in IS NOT NULL) then
     ole2.Set_Property(lv_doc, '_ViewIcon', p_view_icon_in);
End If;
ole2.Destroy_Arglist(lv_args);
lv_args := ole2.Create_Arglist;
ole2.Add_Arg(lv_args, 0);
ole2.Invoke(lv_doc, 'Send', lv_args);
ole2.Destroy_Arglist(lv_args);
ole2.Release_Obj(lv_session);
ole2.Release_Obj(lv_db);
ole2.Release_Obj(lv_doc);
EXCEPTION
     WHEN OTHERS THEN
     lv_sqlerrm := substr(sqlerrm,1,255);
     Message('Unable to send mail to ' || p_recipient_in);
     Message('Unable to send mail to ' || p_recipient_in);
     Message('Error is : '||lv_sqlerrm);
     Message('Error is : '||lv_sqlerrm);
     Set_Application_Property(CURSOR_STYLE, 'DEFAULT');
     RAISE;
END;