أبو. مشاري قام بنشر مارس 17, 2010 قام بنشر مارس 17, 2010 السلام عليكم ورحمة الله وبركاته لدي هذا الكود يقوم بارسال ملاحظات لموظفين بتاخر معاملة ولكن احتاج لاضافة الموضوع في الكود وهذا الكود علما بان الموضوع في الخلية I 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'>سعادة الاستاذ : <font style='color:red'>" & Range("h" & rw & "").Value & "</font><br />نفيد سعادتكم علما بأن :<br />المعاملة رقم : " & Range("a" & rw & "").Value & " والمؤرخة بتاريخ : " & Format(Range("b" & rw & "").Value, "yyyy/mm/dd dddd") & " متأخرة وتستوجب الرد<br />هذا للعلم واتخاذ اللازم<br />ملاحظة مهمة :<br /><font style='color:blue'>للاستفسار *****.</font></div>") A.Close End Function
وائل احمد المصري قام بنشر مارس 23, 2010 قام بنشر مارس 23, 2010 (معدل) وين المشرفين ؟ السلام عليكم اخي ورحمة الله وبركاتة انظر المرفق وايضا ها هو الكود بعد التعديل 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'>سعادة الاستاذ : <font style='color:red'>" & Range("h" & rw & "").Value & "</font><br/>الموضوع : " & Range("i" & rw & "").Value & "</font><br />نفيد سعادتكم علما بأن :<br />المعاملة رقم : " & Range("a" & rw & "").Value & " والمؤرخة بتاريخ : " & Format(Range("b" & rw & "").Value, "yyyy/mm/dd dddd") & " متأخرة وتستوجب الرد<br />هذا للعلم واتخاذ اللازم<br />ملاحظة مهمة :<br /><font style='color:blue'>للاستفسار *****.</font></div>") A.Close End Function كود ارسال ملاحظات بواسطة التنبية بملف html.rar تم تعديل مارس 23, 2010 بواسطه abc_abc_196
أبو. مشاري قام بنشر مارس 24, 2010 الكاتب قام بنشر مارس 24, 2010 (معدل) بارك الله فيك جاري التجربة تم تعديل مارس 24, 2010 بواسطه أبو. مشاري
أبو. مشاري قام بنشر أبريل 3, 2010 الكاتب قام بنشر أبريل 3, 2010 ياخوان ظهرت مشكلة لدي وهو بان الكود يرسل لجميع الايميلات ماعدى الايميل الذي ينتهي gov.sa وهو الاهم لدي . هل يتركم احد بالنظر في امري مع خالص شكري له
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.