السلام عليكم ورحمة الله ولركاته

عندي زرار في الفورمة اريد عندما اضغط عليه بفتح الاوت لوك اكسبرس جاهزة على الارسال



مثل التي في الانترنت عندما يضغط على ارسال تفتح له هذه النافذة




ارجووووووووووووووووووووو المساعدة يا شباب

PROCEDURE inmail IS
BEGIN Declare
objOutlook OLE2.OBJ_TYPE;
objMail OLE2.OBJ_TYPE;
objArg OLE2.LIST_TYPE;
objAttach OLE2.OBJ_TYPE;

MSENT OUTWARD_CHALLAN_MASTER.SENTTO%TYPE;
MISS OUTWARD_CHALLAN_MASTER.ISSUEDBY%TYPE;
BEGIN objOutlook := OLE2.CREATE_OBJ('Outlook.Application');
objarg := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(objarg,0);
objMail := OLE2.INVOKE_OBJ(objOutlook,'CreateItem',objarg);
OLE2.DESTROY_ARGLIST(objarg);


SELECT ISSUEDBY,SENTTO INTO MISS,MSENT FROM OUTWARD_CHALLAN_MASTER WHERE CHALLANNO=:OUTWARD_CHALLAN_MASTER.CHALLANNO;

OLE2.SET_PROPERTY(objmail,'To',[email protected]');


OLE2.SET_PROPERTY(objmail,'Subject','t : Outward Challan Generated ('||:OUTWARD_CHALLAN_MASTER.CHALLANNO||') ..');

OLE2.SET_PROPERTY(objmail,'Body','This is to inform that Fixed Asset has been sent with following details.

Outward Challan # = '||:OUTWARD_CHALLAN_MASTER.CHALLANNO||'

Sent to := '||MSENT||'

Issued By := '||MISS||'

Pls look into ... for detail.');

OLE2.INVOKE(objattach, 'Add', objarg); 
OLE2.INVOKE(objmail,'Send');

END;
END;

لم افهم الكود










انا اريد فقط عندما يضعظ على زر بفتح له الاوت لوك اكسبرس وتظهر له صفحة الارسال اوتوماتيك

ارجووووووووووووووو الرد

ارجوووووو المساعدة يااخوان ضروري

if you use 6i you can use 

host('C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE');

else

you can use javhost

ehab wagdi

فتح الاوتلوك



ولكن اريد ان تفتح على صفحة ارسال جديد

السلام عليكم
أخي جرب هذا الكود ... ولكن يجب أن تكون اعدادات الــ outlook جاهزة...
ويوجد شرح لكل خطوة بالكود...

Declare 

/*declaration of the Outlook Object Variables*/ 

application ole2.OBJ_TYPE; 
hMailItem ole2.OBJ_TYPE; 
hRecipients ole2.OBJ_TYPE; 
recipient ole2.OBJ_TYPE; 

/*declaration of the argument list*/ 

args OLE2.LIST_TYPE; 
begin 

/*create the Application Instance*/ 

application:=ole2.create_obj('Outlook.Application'); 

/*create a Mail Instance by calling CreateItem Method and giving argument 0 with 
it, 
you can find the item types in the explanation of the CreateItem Method 
(0=olMailItem,1=olAppointmentItem, ?)*/ 

args:=ole2.create_arglist; 
ole2.add_arg(args,0); 
hMailItem:=ole2.invoke_obj(application,'CreateItem',args); 
ole2.destroy_arglist(args); 

/*Get the Recipients property of the MailItem object: 
Returns a Recipients collection that represents all the Recipients for the 
Outlook item*/ 

args:=ole2.create_arglist; 
hRecipients:=ole2.get_obj_property(hMailItem,'Recipients',args); 
ole2.destroy_arglist(args); 

/*Use the Add method to create a recipients Instance and add it to the 
Recipients collection*/ 

args:=ole2.create_arglist; 
ole2.add_arg(args,'[email protected]');	  --- هنا يتم كتابة الايميل.....
recipient:=ole2.invoke_obj(hRecipients,'Add',args); 

/* put the property Type of the recipient Instance to value needed 
(0=Originator,1=To,2=CC,3=BCC)*/ 

ole2.set_property(recipient,'Type',1); 
ole2.destroy_arglist(args); 

/*Resolve the Recipients collection*/ 

args:=ole2.create_arglist; 
ole2.invoke(hRecipients,'ResolveAll',args); 

/*set the Subject and Body properties*/ 

ole2.set_property(hMailItem,'Subject','Test OLE2 to Outlook'); 
ole2.set_property(hMailItem,'Body','this is body text'); 

/*Save the mail*/ 

ole2.invoke(hMailItem,'Save',args); 
ole2.destroy_arglist(args); 

/*Send the mail*/ 

args:=ole2.create_arglist; 
ole2.invoke(hMailItem,'Send',args); 
ole2.destroy_arglist(args); 

/*Release all your Instances*/ 

release_obj(application); 
release_obj(hRecipients); 
release_obj(recipient); 
release_obj(hMailItem); 

end;

بالتوفيق

تم تعديل 23 يوليو 200916 سنة بواسطة PALI.ORACLE

والله انا اسف يا شباب

ما ادري انا ماني فاهم



انا عندي فورمة وفيها button اريد عندما اضغظ على هذا الزرار تفتح لي الاوتلوك جاهزة على صفحة الارسال




وشكرا ياشباب

جربت الكود بمشاركتي السابقة ؟؟

السلام عليكم ورحمة الله وبركاته

اضافة الي ردود الاخوة الافاضل يمكن سعادتكم استخدام المرفق حيث أني استخدمه بالفعل

يمكنك أخد اسم المرسل اليه وبريده من قاعدة البيانات وكذلك صلب الموضوع من علي الشاشة

بالتوفيق

outlook.rar