Sending email from a form (runtime)

Question

Hi otn,
I wanna send an email with a text file attached from a form at run time mode.
can u help ?
Thank u

Answer 1

HERE IS CODE :
PROCEDURE kr_sendmail(
p_mail_subject IN VARCHAR2
,p_mail_to                IN VARCHAR2
,p_mail_cc                IN VARCHAR2 DEFAULT NULL
,p_mail_bcc           IN VARCHAR2 DEFAULT NULL
,p_mail_body           IN VARCHAR2 DEFAULT NULL
,p_attachment_source      IN VARCHAR2 DEFAULT NULL
,p_attachment_name           IN VARCHAR2 DEFAULT NULL
,p_display                IN BOOLEAN DEFAULT TRUE
,p_cisoe_id IN NUMBER DEFAULT 0
,pio_entry_id IN OUT VARCHAR2)
IS
c_cisoe_id               CONSTANT VARCHAR2
(30) := 'CISOEMAILID';
objArgL                         
     OLE2.OBJ_TYPE;
objAppOutlook           OLE2.OBJ_TYPE;
objNameSpace                OLE2.OBJ_TYPE;
objInBox                          OLE2.OBJ_TYPE;
--objFolders                     OLE2.OBJ_TYPE;
--objFolder                     OLE2.OBJ_TYPE;
objMailItem                    OLE2.OBJ_TYPE;
objAttachments          OLE2.OBJ_TYPE;
objAttachment               OLE2.OBJ_TYPE;
objUserProperties     OLE2.OBJ_TYPE;
objUserProperty          OLE2.OBJ_TYPE;
v_id_new                     VARCHAR2(2000);
v_id_folder           VARCHAR2(2000);
v_cisoe_id               NUMBER;
v_test BOOLEAN;
BEGIN
     -- Create Outlook Application Object
objAppOutlook := ole2.create_obj('Outlook.Application');
-- Get Namespace
objArgL := ole2.create_arglist;
ole2.add_arg(objArgL,'MAPI');
objNameSpace := ole2.invoke_obj
(objAppOutlook,'GetNamespace',objArgL);
ole2.destroy_arglist(objArgL);
-- Get InBox-Folder (Posteingang)
objArgL := ole2.create_arglist;
ole2.add_arg(objArgL,6);
objInBox := ole2.invoke_obj
(objNameSpace,'GetDefaultFolder',objArgL);
ole2.destroy_arglist(objArgL);
-- Create MailItem with properties
objArgL := ole2.create_arglist;
ole2.add_arg(objArgL,0);
objMailItem := ole2.invoke_obj
(objAppOutlook,'CreateItem',objArgL);
ole2.destroy_arglist(objArgL);
ole2.set_property(objMailItem,'To', p_mail_to);
ole2.set_property(objMailItem,'CC', p_mail_cc);
ole2.set_property(objMailItem,'BCC',p_mail_bcc);
ole2.set_property(objMailItem,'Subject',p_mail_subject);
ole2.set_property(objMailItem,'Body',p_mail_body);
--Test p_attachment_source
IF p_attachment_source IS NOT NULL THEN -- Create Attachment
--Test exist File
v_test := kr$fexists(p_attachment_source);
IF v_test = FALSE THEN --NOT TEXT_IO.IS_OPEN(v_test) THEN
--qms$errors.show_message(p_mesg=>'CKR-00022',p_param1 =>
1);
MESSAGE('Datei '||p_attachment_source||' ist nicht
existieren !');
RETURN;
ELSE
-- Create Attachment
objAttachments := ole2.get_obj_property
(objMailItem,'Attachments');
objArgL := ole2.create_arglist;
ole2.add_arg(objArgL,p_attachment_source);
ole2.add_arg(objArgL,1);                     --
property type
ole2.add_arg(objArgL,1);                     --
property position
ole2.add_arg(objArgL,p_attachment_name);     -- property name
objAttachment := ole2.invoke_obj
(objAttachments,'Add',objArgL);
ole2.destroy_arglist(objArgL);
END IF;
END IF;
-- Create User Property
objUserProperties := ole2.get_obj_property
(objMailItem,'UserProperties');
objArgL := ole2.create_arglist;
ole2.add_arg(objArgL,c_cisoe_id); -- property name
ole2.add_arg(objArgL,3);                     
     -- property type (number)
objUserProperty := ole2.invoke_obj
(objUserProperties,'Add',objArgL);
ole2.destroy_arglist(objArgL);
-- Set User Property
ole2.set_property(objUserProperty,'Value',p_cisoe_id);
-- Save
ole2.invoke(objMailItem,'Save');
-- Get Entry ID
v_id_new := ole2.get_char_property(objMailItem,'EntryID');
pio_entry_id := v_id_new;
-- Get User Property
v_cisoe_id := ole2.get_num_property(objUserProperty,'Value');
-- Create new Folder in InBox
-- objFolders := ole2.invoke_obj(objInBox,'Folders');
-- objArgL := ole2.create_arglist;
-- ole2.add_arg(objArgL,'MyFolder');
-- objFolder := ole2.invoke_obj(objFolders,'Add',objArgL);
-- ole2.destroy_arglist(objArgL);
-- Display Folder
-- ole2.invoke(objFolder,'Display');
-- Move Mail to new Folder
objArgL := ole2.create_arglist;
ole2.add_arg_obj(objArgL,objInbox); --objFolder);
ole2.invoke(objMailItem,'Move',objArgL);
ole2.destroy_arglist(objArgL);
v_id_folder := ole2.get_char_property(objMailItem,'EntryID');
-- Display or send
IF p_display
THEN
ole2.invoke(objMailItem,'Display');
ELSE
ole2.invoke(objMailItem,'Send');
END IF;
-- Release objects
ole2.release_obj(objUserProperty);
ole2.release_obj(objUserProperties);
--Test p_attachment_source
IF p_attachment_source IS NOT NULL THEN -- Create Attachment
ole2.release_obj(objAttachment);
ole2.release_obj(objAttachments);
END IF;
ole2.release_obj(objMailItem);
--ole2.release_obj(objFolder);
--ole2.release_obj(objFolders);
ole2.release_obj(objInBox);
ole2.release_obj(objNameSpace);
ole2.release_obj(objAppOutlook);
END kr_sendmail;