السلام عليكم

 

اريد طريقة ارسال ايميل من الفورم 11g

الرجاء تزويدي بكود مجرب وواضح

ولا اريد طريقة الـ outlook

 

وجزاكم الله كل خير

السلام عليكم

الاخ hammode90 الكود مجرب وشغال وانشاءالله يظبط معاك

اللون الاحمر يعني ال text item عندك في الفورم حيكون بالاسم دا

 

 

 

 

declare
  
                     b number(10);
                  m number(10);
              objOutlook OLE2.OBJ_TYPE;
           objMail OLE2.OBJ_TYPE;
         objArg OLE2.LIST_TYPE;
       objAttach OLE2.OBJ_TYPE;
    nameSpace OLE2.OBJ_TYPE;
  args OLE2.LIST_TYPE;
   begin
 

                                        objOutlook := OLE2.CREATE_OBJ('Outlook.Application');

/* create namespace and login */
                             args:=OLE2.create_arglist;
                                    OLE2.add_arg(args,'MAPI');
                                         nameSpace:=OLE2.invoke_obj(objOutlook,'getNameSpace',args);
                                               OLE2.destroy_arglist(args);
                                                     OLE2.invoke(nameSpace,'Logon');

 

-- Previous example usually used 'mapi.session' but this doesn't work correctly
--anymore.
                           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.SET_PROPERTY(objmail,'To',:TO);

OLE2.SET_PROPERTY(objmail,'Subject',:Subject);
OLE2.SET_PROPERTY(objmail,'BODY',
:body);
OLE2.INVOKE(objattach, 'Add', objarg);
OLE2.INVOKE(objmail,'Send');

OLE2.RELEASE_OBJ(objmail);
OLE2.RELEASE_OBJ(nameSpace);
OLE2.RELEASE_OBJ(objOutlook);
OLE2.DESTROY_ARGLIST(objarg);
    commit;
     clear_form;

END;
                              

الاخ MASTER10

شكرا لردك وجزاك الله خير

 

لكن ذكرت في طلبي اني لا اريد طريقة الـ OUTLOOK