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

اذكروا الله كثيرا

اخوتي

يرجى مساعدتي في الامر الخاص بضغط اية ملف وارسالة عبر ال outlook express كايميل مباشرة لعنوان او اكثر مع تحديد ال cc
وذلك باستخدام ال winzip 9

ولك الشكر الجزيل

اخوكم على البرغوثي

فلسطين

send emails, and emails with text attachments

This procedure uses the UTL_SMTP and UTL_FILE packages to send an email message from with style='color:green'>in an Oracle PL/SQL server program

مثال على ذلك

mail_files( from_name => 'oracle' ,
to_name => '[email protected]' ,
subject => 'A test',
message => 'A test message',
filename1 => '/data/oracle/dave_test1.txt',
filename2 => '/data/oracle/dave_test2.txt'); 

منقول

تم تعديل 12 نوفمبر 200520 سنة بواسطة salama11433

لإرسال ايميل ، اتبع الخطوات التالية :

1) تعمل فورم وتضع فيه حقل للمرسل له (send) والموضوع(sub) والنص(body)

2) تذهب الى program unit : وتعمل التالي :

تضغط زر + الأخضر ثم تختار Package Spec وتكتب الاسم Email

ثم تكتب الكود التالي انسخه من هنا ثم الصقه لانه ملف ثابت)

PACKAGE EMail IS

 session OLE2.OBJ_TYPE;  /* OLE object handle */
 args OLE2.LIST_TYPE;    /* handle to OLE argument list */

procedure Show_Outlook_Msg(Recp in varchar2, Subject in varchar2, Attch in varchar2, Body in varchar2);
procedure logon( Profile IN varchar2 default NULL );

procedure CleanUp;
procedure logoff;

procedure send( Recp       IN varchar2,
               Subject    IN varchar2,
               Text       IN varchar2,
               Attch      IN varchar2
              );

END;

ثم تضغط زر + الأخضر ثم تختار Package Body
وتكتب الاسم Email

ثم تكتب الكود التالي انسخه من هنا ثم الصقه لانه ملف ثابت)

PACKAGE BODY EMail IS

session_outbox OLE2.OBJ_TYPE;
session_outbox_messages OLE2.OBJ_TYPE;
message1 OLE2.OBJ_TYPE;
msg_recp OLE2.OBJ_TYPE;
recipient OLE2.OBJ_TYPE;
msg_attch OLE2.OBJ_TYPE;
attachment OLE2.OBJ_TYPE;

procedure Show_Outlook_Msg(Recp in varchar2, Subject in varchar2, Attch in varchar2, Body in varchar2) is
begin /* Create a a new object message1 */
   session := ole2.create_obj('Outlook.Application'); /* create the session object */
    args := ole2.create_arglist;
    ole2.add_arg(args,'0'); -- olMessageItem
    Message1 := ole2.invoke_Obj(session,'CreateItem',args);
    ole2.destroy_arglist(args);
    
    ole2.set_property(message1,'subject',Subject);
    ole2.set_property(message1,'Body', Body);
     
/* Add a recipient object to the message1.Recipients collection */

   msg_recp := ole2.get_obj_property(message1,'Recipients');
   args := ole2.create_arglist;
   ole2.add_arg(args, Recp); -- olMessageItem
   ole2.invoke(Msg_recp,'Add',args);
   ole2.destroy_arglist(args);

/* Add an attachment object to the message1.Attachments collection */
   if Attch is not null then
     msg_attch := ole2.get_obj_property(message1,'Attachments');
     args := ole2.create_arglist;
     ole2.add_arg(args, attch); -- Path
     ole2.add_arg(args, '1'); -- olByValue
     ole2.add_arg(args, '1'); -- Position in message
     ole2.add_arg(args, 'ãáÍÞÇÊ'); -- Attachment display Name
     ole2.invoke(Msg_attch,'Add',args);
     ole2.destroy_arglist(args);
   end if;

/* Send the message without any dialog box, saving a copy in the Outbox */
  ole2.invoke(message1,'Display');
/*
  args := ole2.create_arglist;
  ole2.add_arg(args,1);   -- 1 => save copy 
  ole2.add_arg(args,0);   -- 0 => no dialog
  ole2.invoke(message1,'Send',args);
  ole2.destroy_arglist(args);
*/
--  message('Message successfully sent');

end;

procedure logon( Profile IN varchar2 default NULL )is
Begin session := ole2.create_obj('mapi.session'); /* create the session object */
 args := ole2.create_arglist;

 ole2.add_arg(args,Profile);          /* Specify a valid profile name  */
 ole2.invoke(session,'Logon',args);   /* to avoid the logon dialog box */
 ole2.destroy_arglist(args);

End;


procedure CleanUp is
begin -- resources for all the OLE objects    
 ole2.release_obj(session);
 ole2.release_obj(session_outbox);
 ole2.release_obj(session_outbox_messages);
 ole2.release_obj(message1);
 ole2.release_obj(msg_recp);
 ole2.release_obj(recipient);
 ole2.release_obj(msg_attch);
 ole2.release_obj(attachment);
End;


procedure logoff is
Begin ole2.invoke(session,'Logoff');     /* Logoff the session and deallocate the */
 CleanUp;
end;
   



procedure send( Recp       IN varchar2,
               Subject    IN varchar2,
               Text       IN varchar2,
               Attch      IN varchar2
              )is
Begin /* Add a new object message1 to the outbox */

   session_outbox := ole2.get_obj_property(session,'outbox');
   session_outbox_messages := ole2.get_obj_property(session_outbox,'messages');
   message1 := ole2.invoke_obj(session_outbox_messages,'Add');

  ole2.set_property(message1,'subject',Subject);
  ole2.set_property(message1,'text',Text);

/* Add a recipient object to the message1.Recipients collection */

   msg_recp := ole2.get_obj_property(message1,'Recipients');
   recipient := ole2.invoke_obj(msg_recp,'add') ;

  ole2.set_property(recipient,'name',Recp);
  ole2.set_property(recipient,'type',1);
  ole2.invoke(recipient,'resolve');


/* Add an attachment object to the message1.Attachments collection */
   if Attch is not null then
     msg_attch := ole2.get_obj_property(message1,'Attachments');
     attachment := ole2.invoke_obj(msg_attch,'add') ;

    ole2.set_property(attachment,'name',Attch);
    ole2.set_property(attachment,'position',0);
    ole2.set_property(attachment,'type',1);      /* 1 => MAPI File Data */
    ole2.set_property(attachment,'source',Attch);

 /* Read the attachment from the file */

    args := ole2.create_arglist;
    ole2.add_arg(args,Attch);
    ole2.invoke(attachment,'ReadFromFile',args);
    ole2.destroy_arglist(args);
  end if;
 args := ole2.create_arglist;
 ole2.add_arg(args,1);   /* 1 => save copy */
 ole2.add_arg(args,0);   /* 0 => no dialog */

/* Send the message without any dialog box, saving a copy in the Outbox */

  ole2.invoke(message1,'Send',args);

 ole2.destroy_arglist(args);
 message('Message successfully sent');

End;

END;

3) تذهب الى الفورم وتعمل Button وتكتب الكود التالي بها :

المتغيرات من حقول بالفورم:
EMail.Show_Outlook_Msg(send, sub,'C:\all.zip', body);
أما اذا أردت ان تكتب انت القيم بدون ان تكون في الفورم تعمل التالي :
EMail.Show_Outlook_Msg('send to', 'subject','C:\all.zip', 'body');

مشكور أخى..
إتبعت خطواتك خطوة خطوة
وظهر عندة الرسالة دى ؟

ترى ما السبب أخى
وأشكرك مرة أخرى

جزاك الله خير الجزاء
تم تجربته وكل شيء تمام
اللهم اغفر له وارحمه واعف عنه وادخله الجنة

الاخ ahmedelhamahmy

معنى الرسالة
FRM-40735: %s trigger raised unhandled exception %s.

Cause:Application design error. The current trigger raised an exception (other than FORM_TRIGGER_FAILURE), but it did not handle the exception.

Action:Rewrite the trigger text to handle the exception.

Level:>25

Type:Error

السلام عليكم ورحمة الله وبركاته
مشكور ياخي على هذا المجهود
واسال الله لك المزيد

شكرا يا جمييل شغاله ميه ميه
جزاك الله خيرا

فقط عندى سؤال
كيف اقوم بعمل ارسال ثم غلق الاوت لوك بدون اى تدخل ؟؟؟
و جزاك الله خيرا

جزاك الله خير :angry:

مشكور يا أخي
ولكن هل يمكن الارسال بطريقة أخرى غير out look لأنه لا يعمل الآن كما يعرف الجميع
حيث يتطلب ايميل plus
مع خالص الشكر

مشكور يا أخي
ولكن هل يمكن الارسال بطريقة أخرى غير out look لأنه لا يعمل الآن كما يعرف الجميع
حيث يتطلب ايميل plus
أيضاً هل يمكن أن نجعل ال database تقوم بارسال الايميل مباشرة عند وقت معين دون تدخل المستخدم
سمعت أن ذلك ممكن فيما يعرف بالـ business intelegance
مع خالص الشكر

جزاك الله خيراً