مساعدة كيف يمكن إضافة مرفقات عند إرسال بريد من خلال الفورم

متابعين

بتاريخ: 30 مايو 201313 سنة

اريد حل للمشكلة

قمت بالبحث عن طريقة لارسال email عن طريق الFORM و وجت ضالتى لكن دون Attachment

الكود كالتالى :

-------only for outlook
--- THIS IS OLE CODE FOR MORE INFO. SEE HELP .

DECLARE
--PROCEDURE SendMail
objOutlook OLE2.OBJ_TYPE;
objMail OLE2.OBJ_TYPE;
objArg OLE2.LIST_TYPE;
vfilename varchar2(300);

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);

OLE2.SET_PROPERTY(objmail,'To',:TO);
OLE2.SET_PROPERTY(objmail,'Subject',:SUBJECT);
OLE2.SET_PROPERTY(objmail,'Body',:BODY);
OLE2.INVOKE(objmail,'Send');
OLE2.INVOKE(objmail,'Display');
OLE2.RELEASE_OBJ(objmail);
OLE2.RELEASE_OBJ(objOutlook);
Message('Your mail sent successfully..............');
Message('Your mail sent successfully..............');

exception

when others then

message(sqlerrm);message(sqlerrm);

END;

هل بالامكان اضافة attachment لهذا الكود

و شكرا

تم تعديل 30 مايو 201313 سنة بواسطة SBYCRIMS

اقتباس