لوحة القادة

DECLARE 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(100); Begin 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,'From',:EMAIL_FROM); OLE2.SET_PROPERTY(MailItem,'To',:EMAIL_to); OLE2.SET_PROPERTY(MailItem,'Subject',:subject); OLE2.SET_PROPERTY(MailItem,'Body',:INBOX_TEXT); if :attach_file is not null then --add an attachment Attachments := OLE2.GET_OBJ_PROPERTY(MailItem,'Attachments'); OLEPARAM := OLE2.CREATE_ARGLIST; OLE2.ADD_ARG(OLEPARAM,:ATTACH_FILE); Attachment_dummy := OLE2.INVOKE_OBJ(Attachments,'add',OLEPARAM); OLE2.DESTROY_ARGLIST(OLEPARAM); Send := OLE2.INVOKE_OBJ(MailItem,'Send'); --destroy objects OLE2.RELEASE_OBJ(MailItem); OLE2.RELEASE_OBJ(NameSpace); OLE2.RELEASE_OBJ(OutlookApp); else Send := OLE2.INVOKE_OBJ(MailItem,'Send'); --destroy objects OLE2.RELEASE_OBJ(MailItem); OLE2.RELEASE_OBJ(NameSpace); OLE2.RELEASE_OBJ(OutlookApp); end if; END; هذا الكود منقول من احد الاعضاء جزاه الله كل خير وجربته باستخدام OUTLOOK وقد قمت بتنفيذه بنجاح