| Re: FREE TRAINING ON ORACLE AND DEVELOPER200 CONTACT BY MAIL STEP BY STEP TAINING [message #77787] |
Mon, 19 November 2001 04:56 |
Deepak
Messages: 111
Registered: December 1999
|
Senior Member |
|
|
i am using OLE object (Outlook) for Email purpose
i have written a code but prob.i am able to pass
To,CC,BCC but want to Pass FROM id instead of
default.
How do i get it???
plz help?
Code is as follws
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;
----------------------------------------------------------------------
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
