Re: How to change subject of mail send by Report Builder (Developer 6) [message #77786] |
Mon, 19 November 2001 04:38 |
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 |
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
|
|
|