Home » Developer & Programmer » Forms » Re: How to change subject of mail send by Report Builder (Developer 6)
Re: How to change subject of mail send by Report Builder (Developer 6) [message #77786] Mon, 19 November 2001 04:38 Go to next message
Deepak
Messages: 111
Registered: December 1999
Senior Member
U can try this ,
code call save report in default dir as htm,txt
and after that call this porgram unit with
path of saved file.

1> first run report save as htm,txt in any (or default)dir
2> call this program uni t after making appopriate changes
it works...

PROCEDURE sent_emails ( p_file_name In Varchar2) IS
objOutlook OLE2.OBJ_TYPE;
objMail OLE2.OBJ_TYPE;
objArg OLE2.LIST_TYPE;
objAttach OLE2.OBJ_TYPE;

lEmailIdsfrom Varchar2(3000);
lEmailIds Varchar2(3000);
lEmailIdsCC Varchar2(3000);
lEmailIdsBCC Varchar2(3000);

lCnr Number := 0;

Cursor C1 Is
select VC_TO_EMAIL_ID,VC_CC_EMAIL_ID,VC_BCC_EMAIL_ID,VC_FROM_EMAIL_ID from makess.mst_email
where vc_comp_code = :global.vc_Comp_code
and vc_module_code = '06'
and vc_menu_code = '0101' ; /* Table stores all email ids */

BEGIN

--lCnr := 1;
For l in C1
Loop
If (Nvl(lCnr,0) = 0) Then
lEmailIds := l.VC_TO_EMAIL_ID || ';';
lEmailIdsCC := l.VC_CC_EMAIL_ID || ';';
lEmailIdsBCC := l.VC_BCC_EMAIL_ID || ';';
lCnr := 1;
Else
lEmailIds := Rtrim(lEmailIds) || l.VC_TO_EMAIL_ID || ';';
lEmailIdsCC := Rtrim(lEmailIdsCC) || l.VC_CC_EMAIL_ID || ';';
lEmailIdsBCC := Rtrim(lEmailIdsBCC) || l.VC_BCC_EMAIL_ID || ';';
null;
End If;
lEmailIdsfrom := Rtrim(lEmailIdsfrom) || l.VC_FROM_EMAIL_ID || ';';
End Loop;

If ( lCnr > 0 ) Then
objOutlook := OLE2.CREATE_OBJ('Outlook.Application');
objarg := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(objarg,0);
objMail := OLE2.INVOKE_OBJ(objOutlook,'CreateItem',objarg);
OLE2.DESTROY_ARGLIST(objarg);

objAttach := OLE2.GET_OBJ_PROPERTY(objmail, 'Attachments');

objarg := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(objarg, p_file_name ); -- filename
OLE2.SET_PROPERTY(objmail,'To',lEmailIds);
OLE2.SET_PROPERTY(objmail,'CC',lEmailIdsCC);
OLE2.SET_PROPERTY(objmail,'BCC',lEmailIdsCC);
OLE2.SET_PROPERTY(objmail,'FROM',lEmailIdsfrom);
OLE2.SET_PROPERTY(objmail,'Subject','BLUESTAR -MRS(Material Requisition Slip)');
OLE2.SET_PROPERTY(objmail,'Body','This email was sent by'||' '||lEmailIdsfrom);

OLE2.INVOKE(objattach, 'Add', objarg);
OLE2.INVOKE(objmail, 'Send');
OLE2.INVOKE(objmail, 'Display');
OLE2.RELEASE_OBJ(objmail);
OLE2.RELEASE_OBJ(objOutlook);
OLE2.DESTROY_ARGLIST(objarg);
End If;
END;

----------------------------------------------------------------------
Re: How to change subject of mail send by Report Builder (Developer 6) [message #83321 is a reply to message #77786] Wed, 24 September 2003 01:54 Go to previous message
Dinesh Podutwar
Messages: 2
Registered: September 2003
Junior Member
We have tryed with sent_emails procedure. This procedure runs without error but failed to send email (with attached file) with given email address even not received on self address. Kindly let us know what is to be done. Is there any need to provide mailing server address in that procedure ? if yes please tell us how to provide.

Regards

Dinesh Podutwar
Previous Topic: Trigger in form
Next Topic: oracle progress bar
Goto Forum:
  


Current Time: Fri Mar 29 04:57:21 CDT 2024