السلام عليكم ورحمة الله وبركاته
لدي هذا الكود يقوم بارسال ملاحظات لموظفين بتاخر معاملة ولكن احتاج لاضافة الموضوع في الكود وهذا الكود علما بان الموضوع في الخلية 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