Opening Outlook (msg) files using CLIENT_OLE2
Hi All,
We need to open Outlook (msg) files saved on a network location through forms 10g using CLIENT_OLE2.
Following is the code -
DECLARE
lv_App CLIENT_OLE2.Obj_Type;
lv_lwp CLIENT_OLE2.Obj_Type;
lv_args CLIENT_OLE2.List_Type;
lv_lwp2 CLIENT_OLE2.Obj_Type;
lv_file_name VARCHAR2(1000) := 'c:\test.msg';
BEGIN
lv_App := CLIENT_OLE2.Create_Obj('Outlook.Application');
CLIENT_OLE2.Set_Property(lv_App, 'Visible', 'True');
lv_lwp := CLIENT_OLE2.Get_Obj_Property(lv_App, 'MailItem');
lv_args := CLIENT_OLE2.Create_Arglist;
CLIENT_OLE2.Add_Arg(lv_args, lv_file_name);
lv_lwp2 := CLIENT_OLE2.Get_Obj_Property(lv_lwp, 'Open', lv_args);
Following is the code -
DECLARE
lv_App CLIENT_OLE2.Obj_Type;
lv_lwp CLIENT_OLE2.Obj_Type;
lv_args CLIENT_OLE2.List_Type;
lv_lwp2 CLIENT_OLE2.Obj_Type;
lv_file_name VARCHAR2(1000) := 'c:\test.msg';
BEGIN
lv_App := CLIENT_OLE2.Create_Obj('Outlook.Application');
CLIENT_OLE2.Set_Property(lv_App, 'Visible', 'True');
lv_lwp := CLIENT_OLE2.Get_Obj_Property(lv_App, 'MailItem');
lv_args := CLIENT_OLE2.Create_Arglist;
CLIENT_OLE2.Add_Arg(lv_args, lv_file_name);
lv_lwp2 := CLIENT_OLE2.Get_Obj_Property(lv_lwp, 'Open', lv_args);
0