Send email using Oracle Forms 6i through MS Outlook 2003

Question

I am working on oracle Forms 6i and Oracle 9i (9.2.0.1) database. My requirement is How to trigger email sending to clients while using Oracle Forms 6i through Microsoft Outlook 2003?
To do this I have written the following code.
PROCEDURE send_mail IS
OutlookApp OLE2.OBJ_TYPE;
NameSpace OLE2.OBJ_TYPE;
MailItem OLE2.OBJ_TYPE;
OLEPARAM OLE2.LIST_TYPE;
Send OLE2.OBJ_TYPE;
Attachments OLE2.OBJ_TYPE;
Attachment_dummy OLE2.OBJ_TYPE;
var1 varchar2(1000);
Begin
var1 := :mapiole.message;
OutlookApp := OLE2.CREATE_OBJ('Outlook.Application');
OLEPARAM := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(OLEPARAM,'MAPI');
NameSpace := OLE2.INVOKE_OBJ(OutlookApp,'GetNameSpace',OLEPARAM) ;
OLE2.DESTROY_ARGLIST(OLEPARAM);
OLEPARAM := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(OLEPARAM,0);
MailItem := OLE2.INVOKE_OBJ(OutlookApp,'CreateItem',OLEPARAM);
OLE2.DESTROY_ARGLIST(OLEPARAM);
OLE2.SET_PROPERTY(MailItem,'To',:to);
OLE2.SET_PROPERTY(MailItem,'Subject',:subject);
OLE2.SET_PROPERTY(MailItem,'Body', var1);
--add an attachment
if :mapiole.attach is not null then
          Attachments := OLE2.GET_OBJ_PROPERTY(MailItem,'Attachments');
          OLEPARAM := OLE2.CREATE_ARGLIST;
          OLE2.ADD_ARG(OLEPARAM,:attach);
          Attachment_dummy := OLE2.INVOKE_OBJ(Attachments,'add',OLEPARAM);
          OLE2.DESTROY_ARGLIST(OLEPARAM);
end if;
Send := OLE2.INVOKE_OBJ(MailItem,'Send');
--destroy objects
OLE2.RELEASE_OBJ(MailItem);
OLE2.RELEASE_OBJ(NameSpace);
OLE2.RELEASE_OBJ(OutlookApp);
END;
Create a block called MAPIOLE with the following canvas layout:
|| To: |============================|
|
| Subject: |============================|
|
| Message: |============================ |
|============================|
| Attachment: |============================| |SEND | |
When I press the SEND button then
Microsoft Office Outlook window open containing the message below.
A program is trying to automatically send e-mail on your behalf.
Do you want to allow this?
If this is unexpected,it may be a virus and you should choose "No".
Yes No Help Button are there.
If choose No then
Error comes "FRM-40735: WHEN-BUTTON-PRESSED trigger raised unhandled exception
ORA-305500
else Message send successfully.
I want not to open Outlook Message window and message automatically send to given email id.
How can I do this?
Please help me.
Thanks.

Answer 1

Try disable warnings:
Visual Basic 6 (VBA)
OlSecurityManager.ConnectTo OutlookApp
OlSecurityManager.DisableOOMWarnings = True
On Error Goto Finally
'... any action with protected objects ...
Finally:
OlSecurityManager.DisableOOMWarnings = False
If you find correct syntax with OLE2 post your code ;)