Automatically mailing a report....

Question

hi buddies
I'm sending a report via outlook to some clients, although I've opened the report in outlook as a PDF attachment but I need to do some more things in this context:
1-- It shouldn't open outlook for me to press the SEND button to send the mail to a client. It should automatically send the mail to the address I specify in "DESNAME" parameter.
2-- Can I specify more than one email addresses separated with commas in DESNAME parameter?
3-- Can I change the subject of mail ? coz it displays a default Subject like "Report from report builder" which is not suitable.

Answer 1

You can do this by using OLE2. Below is the procedure which i am using to generate mails with attachments. If you are using outlook the you can use it. Pass 3 parameters to this procedure
1. Subject
2. File to be attached address and name. I am running report and saving pdf on local drive. attaching that file with mail and deleting file at end using host command
3. Message
You can also pass receiving address by adding new paramater
PROCEDURE Email(p_subject in varchar2,p_filename in varchar2,msg in varchar2)
IS
/*declaration of the Outlook Object Variables*/
application ole2.OBJ_TYPE;
hMailItem ole2.OBJ_TYPE;
hRecipients ole2.OBJ_TYPE;
recipient ole2.OBJ_TYPE;
/*declaration of the argument list*/
args OLE2.LIST_TYPE;
msg_attch OLE2.OBJ_TYPE;
attachment OLE2.OBJ_TYPE;
des VARCHAR2(80) := 'FILE_NAME';
attch VARCHAR2(80) := p_filename;
ven_add varchar2(50);
tm varchar2(100);
begin
/*create the Application Instance*/
application:=ole2.create_obj('Outlook.Application');
args:=ole2.create_arglist;
ole2.add_arg(args,0);
hMailItem:=ole2.invoke_obj(application,'CreateItem',args);
ole2.destroy_arglist(args);
msg_attch := OLE2.GET_OBJ_PROPERTY(hMailItem,'Attachments');
/* Attach the 1st file */
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args,attch);
attachment := OLE2.INVOKE_OBJ(msg_attch,'Add',args);
ole2.destroy_arglist(args);
OLE2.SET_PROPERTY(attachment,'name',des);
OLE2.SET_PROPERTY(attachment,'position',1);
OLE2.SET_PROPERTY(attachment,'type',1);
OLE2.SET_PROPERTY(attachment,'source',Attch);
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args,Attch);
OLE2.INVOKE(attachment,'ReadFromFile',args);
OLE2.DESTROY_ARGLIST(args);
/*Get the Recipients property of the MailItem object:
Returns a Recipients collection that represents all the Recipients for the Outlook item*/
args:=ole2.create_arglist;
hRecipients:=ole2.get_obj_property(hMailItem,'Recipients',args);
ole2.destroy_arglist(args);
/*Use the Add method to create a recipients Instance and add it to the Recipients collection*/
args:=ole2.create_arglist;
--ole2.add_arg(args,p_recipient);
ole2.add_arg(args,"receiving(to) email address");-- you can add more than 1. Can use loop for this purpose
recipient:=ole2.invoke_obj(hRecipients,'Add',args);
/* put the property Type of the recipient Instance to value needed (0=Originator,1=To,2=CC,3=BCC)*/
ole2.set_property(recipient,'Type',1);
ole2.destroy_arglist(args);
------------------------ven add
--Use the Add method to create a recipients Instance and add it to the Recipients collection-
args:=ole2.create_arglist;
ole2.add_arg(args,'other address'); ---add another address if required
recipient:=ole2.invoke_obj(hRecipients,'Add',args);
-- put the property Type of the recipient Instance to value needed (0=Originator,1=To,2=CC,3=BCC)-
ole2.set_property(recipient,'Type',1);
ole2.destroy_arglist(args);
-----------------------------CC email address
args:=ole2.create_arglist;
ole2.add_arg(args,'cc email address');
recipient:=ole2.invoke_obj(hRecipients,'Add',args);
/* put the property Type of the recipient Instance to value needed (0=Originator,1=To,2=CC,3=BCC)*/
ole2.set_property(recipient,'Type',2);
ole2.destroy_arglist(args);
/*Resolve the Recipients collection*/
args:=ole2.create_arglist;
ole2.invoke(hRecipients,'ResolveAll',args);
/*set the Subject and Body properties*/
ole2.set_property(hMailItem,'Subject',p_subject);
ole2.set_property(hMailItem,'Body',msg);
/*Save the mail*/
ole2.invoke(hMailItem,'Save',args);
ole2.destroy_arglist(args);
/*Send the mail*/
args:=ole2.create_arglist;
ole2.invoke(hMailItem,'Send',args);
ole2.destroy_arglist(args);
/*Release all your Instances*/
release_obj(application);
release_obj(hRecipients);
release_obj(recipient);
release_obj(hMailItem);
release_obj(msg_attch);
EXCEPTION
WHEN OTHERS THEN
message('Un-able to send Email ');
Raise;
end;