Does mail invoked by using client_ole2 does not work in form run from windows 7? [message #600868] |
Wed, 13 November 2013 06:18 |
|
rocky_007
Messages: 36 Registered: March 2012 Location: India
|
Member |
|
|
Dear Gurus,
I am facing a problem that one procedure when called from Windows XP is invoking a mail and the same form when running on Windows 7 is not working and giving some WUO Error. The procedure is enclosed below.
Any solution will be highly appreciated. Please write if additional information is required.
DECLARE
objOutlook client_ole2.OBJ_TYPE;
objMail client_ole2.OBJ_TYPE;
objArg client_ole2.LIST_TYPE;
Attachments client_OLE2.OBJ_TYPE;
Attachment_dummy client_OLE2.OBJ_TYPE;
email_id1 EMP_MASTER.PMAIL_ID%TYPE;
email_id2 EMP_MASTER.PMAIL_ID%TYPE;
begin
...
objOutlook := client_ole2.CREATE_OBJ('Outlook.Application');
objarg := client_ole2.CREATE_ARGLIST;
client_ole2.ADD_ARG(objarg,0);
objMail := client_ole2.INVOKE_OBJ(objOutlook,'CreateItem',objarg);
client_ole2.DESTROY_ARGLIST(objarg);
client_ole2.SET_PROPERTY(objmail,'To',vmail);
--client_ole2.SET_PROPERTY(objmail,'To','abc@xyz.com');
/*if var3 is not null then
client_ole2.SET_PROPERTY(objmail,'cc',var3);
end if; */
client_ole2.SET_PROPERTY(objmail,'Subject','mail subject' );
client_ole2.SET_PROPERTY(objmail,'Body','mail body');
client_ole2.INVOKE(objmail,'Send');
client_ole2.INVOKE(objmail,'Display');
client_ole2.RELEASE_OBJ(objmail);
client_ole2.RELEASE_OBJ(objOutlook);
...
Please help.
|
|
|
|