أبو. مشاري قام بنشر مارس 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 رابط هذا التعليق شارك More sharing options...
أبو. مشاري قام بنشر مارس 17, 2010 الكاتب مشاركة قام بنشر مارس 17, 2010 PLEASEEEEEEEEEEEEEEEEEE رابط هذا التعليق شارك More sharing options...
أبو. مشاري قام بنشر مارس 18, 2010 الكاتب مشاركة قام بنشر مارس 18, 2010 ياشباب مالنا غيركم لازلت انتظر رابط هذا التعليق شارك More sharing options...
أبو. مشاري قام بنشر مارس 23, 2010 الكاتب مشاركة قام بنشر مارس 23, 2010 وين المشرفين ؟ رابط هذا التعليق شارك More sharing options...
وائل احمد المصري قام بنشر مارس 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 رابط هذا التعليق شارك More sharing options...
أبو. مشاري قام بنشر مارس 24, 2010 الكاتب مشاركة قام بنشر مارس 24, 2010 (معدل) بارك الله فيك جاري التجربة تم تعديل مارس 24, 2010 بواسطه أبو. مشاري رابط هذا التعليق شارك More sharing options...
أبو. مشاري قام بنشر مارس 26, 2010 الكاتب مشاركة قام بنشر مارس 26, 2010 بارك الله فيك تمت العملية بنجاح رابط هذا التعليق شارك More sharing options...
أبو. مشاري قام بنشر أبريل 3, 2010 الكاتب مشاركة قام بنشر أبريل 3, 2010 ياخوان ظهرت مشكلة لدي وهو بان الكود يرسل لجميع الايميلات ماعدى الايميل الذي ينتهي gov.sa وهو الاهم لدي . هل يتركم احد بالنظر في امري مع خالص شكري له رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.