בעלה בשליחת מייל……

אני מנסה לשלוח מייל לתבנית קבועה כדי לבדוק האם מייל נשלח והוא לא.
הנה התבנית קבועה.

<%
Dim mailFrom ' מאיזה כתובת נשלח המייל
Dim mailTo ' לאיזה כתובת לשלוח מייל
Dim mailSubject ' כותרת המייל שנשלח
Dim mailBody ' תוכן המייל שנשלח
mailFrom="[email protected]"
mailTo="[email protected]"
mailSubject="Hii"
mailBody="Sababa"
call SendEmail(mailFrom,mailTo,mailSubject,mailBody)
%>



והנה פונקציה ששולחת את המייל לפני הנתונים שנשלחים לשם.

<%
Function SendEmail(strFrom, strTo, strSubject, strBody)
On Error Resume Next
Dim objMail ' CDONTS.NewMail אובייקט

' CDONTS.NewMail יצירת אובייקט
Set objMail = Server.CreateObject("CDONTS.NewMail")
If err.number <> 0 Then SendEmail = False

' (To, From, Subject, Body) אלה הפרמטרים לשליחת האימייל
objMail.From = strFrom
objMail.To = strTo
objMail.Subject = strSubject
objMail.BodyFormat = 0 ' HTML מציין כי יש בגוף ההודעה
objMail.MailFormat = 0 ' MIME מציין כי המייל ישלח בפורמט
objMail.Body = strBody

' שליחת האימייל
objMail.Send
end function
%>


הבעיה היא שזה לא נשלח ולא מראה את השגיאה
תודה לעוזרים