أهلا أخواني المبرمجين ..
احد يراجع لي الكود هذا لأرسال الإيميلات من البرنامج لأي موظف مضاف في البرنامج يرسله له على إيميله المسجل بالبرنامج .... هل الكود التالي فيه خطأ لأنه يعطيني رساله خطأ وأبه البرنامج لا يمكنه إرسال الإيميل
<%
' ****** Email *********
SUB sendEmail(title, mailSubject, sendTo, rowOne, rowOne_value, rowTwo, rowTwo_value, rowThree, rowThree_value, m_event, m_eventID, m_IDs, m_to)
' Check all errors before send the email
If Err.Number <> 0 Then
call errorHandler()
End If
' Check mail settings..
Set mail_rs = Server.CreateObject("ADODB.Recordset")
sql_select = "SELECT smtpNot,sysInboxNot FROM generalSettings "
mail_rs.Open sql_select, connStr, 2, 2
If Not mail_rs.EOF Then
smtpNot = mail_rs("smtpNot")
sysInboxNot = mail_rs("sysInboxNot")
End If
mail_rs.Close
Set mail_rs = Nothing
content0 = "<p> </p>"
content0 = content + "<p align=center><font color='#800000' face='Arial' size='3'><b>This message delivered to you by :</b></font></p>"
'Row h: Title..
content = content + "<div align='center'><table border='0' cellpadding='0' style='border-collapse: collapse; border: 1px solid #84B4D8' width='450px' height='131' id='table1'>"
content = content + "<tr><td height='30' colspan='2' bgcolor='#DCEAF5' style='font-size: 11px; font-weight: bold; font-family:Tahoma'><p dir='ltr' align='center'>" &title& "</p></td> </tr>"
'Row 0: Time..
content = content + "<tr><td height='25' width='114' style='text-align: left; color: #003366; font-weight: bold; font-size: 11px; padding-left: 10px; font-family:Tahoma'>Operation Time :</td>"
content = content + "<td height='25' width='253' style='text-align: left; font-size:11px; font-weight:bold; font-family:Tahoma'>" &NOW()& "</td></tr>"
'Row 1: Order Number, Item Number, ....
content = content + "<tr><td height='25' width='114' style='text-align: left; color: #003366; font-weight: bold; font-size: 11px; padding-left: 10px; font-family:Tahoma' bgcolor='#F0F0F0'> <p>" &rowOne& " :</td>"
content = content + "<td height='25' width='253' style='text-align: left; font-size:11px; font-weight:bold; font-family:Tahoma' bgcolor='#F0F0F0'>" &rowOne_value& "</td></tr>"
'Row 2: Info...
content = content + "<tr><td height='25' width='114' style='text-align: left; color: #003366; font-weight: bold; font-size: 11px; padding-left: 10px; font-family:Tahoma'>" &rowTwo& " :</td>"
content = content + "<td height='25' width='253' style='text-align: left; font-size:11px; font-weight:bold; font-family:Tahoma'>" &rowTwo_value& "</td></tr>"
'Row 3: Info...
content = content + "<tr><td height='25' width='114' style='text-align: left; color: #003366; font-weight: bold; font-size: 11px; padding-left: 10px; font-family:Tahoma' bgcolor='#F0F0F0'>" &rowThree& " :</td>"
content = content + "<td height='25' width='253' style='text-align: left; font-size:11px; font-weight:bold; font-family:Tahoma' bgcolor='#F0F0F0'> " &rowThree_value& "</td></tr>"
'Row t: Employee..
content = content + "<tr><td height='25' width='114' style='text-align: left; color: #003366; font-weight: bold; font-size: 11px; padding-left: 10px; font-family:Tahoma'>Employee :</td>"
content = content + "<td height='25' width='253' style='text-align: left; font-size:11px; font-weight:bold; font-family:Tahoma'>" &username& "</td></tr></table></div>"
if sysInboxNot = "ON" then
'Send to system inbox..
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "sysInbox", connStr, 2, 2
rs.AddNew
rs("m_from") = "GM System"
rs("m_IDs") = m_IDs
rs("m_to") = m_to
rs("m_subject") = mailSubject
rs("m_body") = content
rs("m_time") = NOW()
rs("m_type") = "group"
rs("m_event") = m_event
rs("m_eventID") = m_eventID
rs("m_readBy") = ","
rs("m_archivedBy") = ","
rs("m_deletedBy") = ","
rs.Update
rs.Close
Set rs = Nothing
end if
On Error Resume Next ' <========
if smtpNot = "ON" then
'Send Email
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "email server "
.Update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
cdoMessage.BodyPart.Charset = "utf-8"
.From = "Sys email"
.To = sendTo
.Subject = mailSubject
.HTMLBody = content0 & content
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
end if 'smtpNot
'Error Handler
If Err.Number <> 0 Then
call errorHandler()
End If
END SUB
%>
في انتظار مساعدتكم مع العلم انه كان شغال تمام .. منذ فترة طويلة ولكن بحكم أنه السيرفر كان قديم تم تعطيله والأن تم تغيير السيرفر ... ولكنه لم يعمل ... مع العلم أن البرنامج يمكنه إرسال إيميلات داخل البرنامج وعذا ما زال يعمل بشكل جيد ولكن لأرسال الملاحظات من البرناج إلى إيميل الشركة الخاص يعطيني انه لا يمكنه عمل ذلك .
احد يقدر يفيدني
وينكم يا مبرمجين الـ ASP معقوله مافي أحد في هذا المنتدى يعرف يحل المشكلة