اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أبو. مشاري

03 عضو مميز
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    113

  • تاريخ الانضمام

  • تاريخ اخر زياره

 نوع المحتوي 

كل منشورات العضو أبو. مشاري

  1. أبو. مشاري
    اخي العزيز يبدو اني لم استطع توصيل المعلومة لك جيدا انت لم تفهمني جيدا شكرا على مساعدتك
  2. أبو. مشاري
    هذا ما ريد فعلا لكن ياخي لو توضح اكثر لاني لا افهم في البرمجة مع العلم اني لا ارغب بوضح الامتداد للمتلاقي فقط يرفق في الرسالة المرفق من صورة الخطاب فقط مع خالص شكري
  3. أبو. مشاري
    هذا مثال mas_mail2.rar
  4. أبو. مشاري
    أنا واضع شيت برقم المعاملة ومسوي رابط على رقم المعاملة بحيث اذا ضغطت على رقم المعاملة تفتح لك المعاملة حيث جميع صور المعاملات توجد على مجلد على الرابط داخل الجهاز \\rhonas01\IAD عند فتح المجلد المذكور تظهر عدة مجلدات مرقمة حسب رقم الوارد للمعاملة ارجوا اني وضحت
  5. أبو. مشاري
    اريد ان يرفق صوره من الخطاب
  6. أبو. مشاري
    لا طبعا اخي اقصدgmail ، واعتذر لك اخي على كثره الاسئلة والازعاج ولكن يعلم الله ما فعلته ابهر الكثير . مثال . سعادة الاستاذ : فلان نفيد سعادتكم علما بأن : المعاملة رقم : 16733 والمؤرخة بتاريخ : 2010/01/19 الثلاثاء متأخرة وتستوجب الرد هذا للعلم واتخاذ اللازم وطبعا نفس المعاملة المشار إليها ترفق من ضمن البريد
  7. أبو. مشاري
    اخي العزيز تم طرح موضوع في السابق على الرابط التالي http://www.officena.net/ib/index.php?showtopic=29748 وقد قمتم مشكورين بالرد على الموضوع ومساعدتي سال المولى عز وجل بان يجعله في ميزان اعمالكم. المطلوب من سعادتكم التكرم عن كيفية طرح مرفق وهي صوره من المعاملة المشار اليها في البريد المرسل لصاحب الشان الكود Sub mas() On Error Resume Next Dim n As Integer For n = 3 To 100 If Range("c" & n & "").Value = "" And Date - Range("b" & n & "").Value > 7 Then If Range("g" & n & "").Value <> "" Then Kill ThisWorkbook.Path & "\test.html" generatehtml (n) Send_Mail (Range("g" & n & "").Value) Range("f" & n & "").Value = "&Ecirc;&atilde; &Ccedil;&aacute;&Aring;&Ntilde;&Oacute;&Ccedil;&aacute;" End If End If Next n MsgBox "&Ecirc;&atilde; &Aring;&Ntilde;&Oacute;&Ccedil;&aacute; &Igrave;&atilde;&iacute;&Uacute; &Ccedil;&aacute;&Ntilde;&Oacute;&Ccedil;&AElig;&aacute;" End Sub ------------------------------------------------------------------ Function generatehtml(rw As Integer) Dim fs As Object Dim A As Object Dim FileName As String FileName = ThisWorkbook.Path & "\test.html" Set fs = CreateObject("Scripting.FileSystemObject") Set A = fs.CreateTextFile(FileName, True) A.WriteLine ("<head><meta http-equiv='Content-Type' content='text/html; charset=windows-1256' /></head><div dir='rtl' align='right' style='font-size:25px'>&Oacute;&Uacute;&Ccedil;&Iuml;&Eacute; &Ccedil;&aacute;&Ccedil;&Oacute;&Ecirc;&Ccedil;&ETH; : <font style='color:red'>" & Range("h" & rw & "").Value & "</font><br />&auml;&Yacute;&iacute;&Iuml; &Oacute;&Uacute;&Ccedil;&Iuml;&Ecirc;&szlig;&atilde; &Uacute;&aacute;&atilde;&Ccedil; &Egrave;&Atilde;&auml; :<br />&Ccedil;&aacute;&atilde;&Uacute;&Ccedil;&atilde;&aacute;&Eacute; &Ntilde;&THORN;&atilde; : " & Range("a" & rw & "").Value & " &aelig;&Ccedil;&aacute;&atilde;&Auml;&Ntilde;&Icirc;&Eacute; &Egrave;&Ecirc;&Ccedil;&Ntilde;&iacute;&Icirc; : " & Format(Range("b" & rw & "").Value, "yyyy/mm/dd dddd") & " &atilde;&Ecirc;&Atilde;&Icirc;&Ntilde;&Eacute; &aelig;&Ecirc;&Oacute;&Ecirc;&aelig;&Igrave;&Egrave; &Ccedil;&aacute;&Ntilde;&Iuml;<br />&aring;&ETH;&Ccedil; &aacute;&aacute;&Uacute;&aacute;&atilde; &aelig;&Ccedil;&Ecirc;&Icirc;&Ccedil;&ETH; &Ccedil;&aacute;&aacute;&Ccedil;&Ograve;&atilde;<br />&atilde;&aacute;&Ccedil;&Iacute;&Ugrave;&Eacute; &atilde;&aring;&atilde;&Eacute; :<br /><font style='color:blue'>&iacute;&Ntilde;&Igrave;&igrave; &Uacute;&Iuml;&atilde; &Ccedil;&aacute;&Ntilde;&Iuml; &Uacute;&aacute;&igrave; &aring;&ETH;&aring; &Ccedil;&aacute;&Ntilde;&Oacute;&Ccedil;&aacute;&Eacute; &aelig;&Ccedil;&aacute;&Ecirc;&iacute; &Ecirc;&Atilde;&Ecirc;&iacute; &Egrave;&Ocirc;&szlig;&aacute; &Acirc;&aacute;&iacute; &atilde;&auml; &THORN;&Egrave;&aacute; &Aring;&Iuml;&Ccedil;&Ntilde;&Eacute; >>>>>>> &Yacute;&iacute; &Iacute;&Ccedil;&aacute; &Ecirc;&Atilde;&Icirc;&Ntilde; &Ccedil;&aacute;&atilde;&Uacute;&Ccedil;&atilde;&aacute;&Eacute; &aacute;&Iuml;&iacute;&szlig;&atilde;.</font></div>") A.Close End Function
  8. أبو. مشاري
    لم اجد ملف الاصلاح
  9. أبو. مشاري
    تاتيني رسالة تقول بانه فشل ورقم رمز الارجاع x80070005
  10. أبو. مشاري
    السلام عليكم ياخوان عندي مشكلة في الاوت لوك حين اضغط على ارسال وتلقي تظهر لي مشكلة كما في الصورة اربد أن اعالج هذه المشكلة دون الرجوع لحذف البرنامج وانزاله من جديد ولكم جزيل الشكر
  11. أبو. مشاري
    ياخوان ممكن احد يساعدنا انا لدي اشتراك في Outlook خاص بالعمل ،والمشكلة بأن بريد gmail البورتات الخاصة به لدينا بالعمل مقفله كيف اقوم بتغير الكود بحيث اجعله عن طريق Outlook ؟؟؟؟
  12. أبو. مشاري
    الله يعطيك العافية وياليت تكمل جميلك وتخبرناماهي باقي المتغيرات
  13. أبو. مشاري
    Sub mas() On Error Resume Next Dim n As Integer For n = 2 To 31 If Range("b" & n & "").Value = "" And Date - Range("a" & n & "").Value > 14 Then If Range("c" & n & "").Value <> "" Then Kill ThisWorkbook.Path & "\test.html" generatehtml (n) Send_Mail (Range("c" & n & "").Value) Range("d" & n & "").Value = "&Ecirc;&atilde; &Ccedil;&aacute;&Aring;&Ntilde;&Oacute;&Ccedil;&aacute;" End If End If Next n MsgBox "&Ecirc;&atilde; &Aring;&Ntilde;&Oacute;&Ccedil;&aacute; &Igrave;&atilde;&iacute;&Uacute; &Ccedil;&aacute;&Ntilde;&Oacute;&Ccedil;&AElig;&aacute;" End Sub ياخوان حرف n ايش يقصد اي شيت ؟؟؟؟
  14. أبو. مشاري
    اخي الفاضل / محمد صالح----- حفظه الله تم العمل بشكل صحيح والسبب يعود مشكلة كانت بالبريد لا ادري ماذا اقولك لك لكن فعلا لقد ابهرتنا بعملك الجبار اسال الله العلي القدير ان ينفع بك المسلمين وان يزيدك كمان وكمان علم مع خالص تحياتي وشكري لك
  15. أبو. مشاري
    اخي الفاضل / محمد صالح----- حفظه الله تحية طيبة لم تعمل معي ولا ادري ما سبب مع اني طبقت جميع المستلزمات انا في انتظارك والله يحفظكم ويرعاكم
  16. أبو. مشاري
    اخي العزيز محمد صالح بارك الله فيك على هذا الابداع المميز ونسال الله العلي القدير بان يوفقك لكن هل يوجد كود يقوم باخذ رقم المعاملة المتاخرة ويبلغها لصاحب الشان ؟ مثال : نفيدكم بان المعاملة رقم 5555 متاخرة وتستوجب الرد
  17. أبو. مشاري
    السلام عليكم مثل ماهو مبين بالموضوع وطلبي هو كتالي : عندي ملف اكسل (مرفق ) تفضل علي العضوا الفاضل المبدع Justice_1 وهو عبارة عن متابعة معاملات ويوجد في الملف تنسق شرطي بحيث إذا مر على تاريخ المعاملة أكثر من عدة ايام تضيء باللون الأحمر ويوجد خانة بها أيميل صاحب الشخص الذي يستوجب عليه الرد على الخطاب . طلبي : ارغب إذا تأخرت المعاملة بأن أضع كود أو تنسيق شرطي يقوم بإرسال أيميل إلى صاحب الشخص الذي يستوجب عليه الرد على بريده تحتوي على تنبيه بأن المعاملة تأخرت ويستوجب عليه الرد . أنا في انتظاركم .. والله يحفظكم ويرعاكم 1مثال.rar
  18. أبو. مشاري
    شكرا اخي الحبيب ولكن اتوقعها موجوده ياخوي بس لا اعرف كيف الطريقة
  19. أبو. مشاري
    اخي الحبيب مثالك الخاص بالتنسيق الشرطي ممتاز جدا ولكن ينقصه لو نضع عبارة عدد ايام التاخير لكن اكتملت الصورة بشكل ممتاز ولدي سؤال هل يقبل التنسيق الشرطي التاريخ الهجري ؟
  20. أبو. مشاري
    مرحبا اخي لا ابدا تاريخ المعاملة لا يتغير ابدا وانما هنالك خانه اخرى يوضع بهاتاريخ الرد هي ما اريد ان يجري عليها العمليات السابقة واسف على ازعاجك
  21. أبو. مشاري
    يامشرفين اين انتم هل طلبي صعب ؟؟؟
  22. أبو. مشاري
    بارك الله فيك ياخي العزيز ونفع بك لكن هنالك مشكلة لنفرض بان تم الرد على الخطاب ووضعت تاريخ الرد كيف نعدل الكود لكي لا يضع عدد الايام للمعاملة ولا يضىء لون احمر ؟؟؟ واسف على الاطالة كما ارجوا ارسال ايميلك لكي اتواصل معك بشكل اكبر اللهم في هذه الساعة المباركة بان يوفقك في دينك ودنياك
  23. أبو. مشاري
    اخي العزيز Justice الفكره اعجبتني جدا ارجوك اشرح طريقه عملها للاهمية ارجوك والله يوفقك في دراستك
  24. أبو. مشاري
    اخي العزيز شكرا على تجاوبك معي بس الملف لم اغير التاريخ يبقى نفس عدد الايام ما يتغير رغم اني حفظته وفتحته مره ثانية بس للاسف نفس الشي ماهي المشكلة؟
  25. أبو. مشاري
    شكرا لك اخي لكن ربما ياتي احد ويحل المشكلة هذي
×
×
  • اضف...

Important Information

  I accept