שלח תשובה

זירת השאלות

330
צפיות
9
תשובות

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

,‏ 12 באפריל, 2004

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

<%
Dim mailFrom ‘ מאיזה כתובת נשלח המייל
Dim mailTo ‘ לאיזה כתובת לשלוח מייל
Dim mailSubject ‘ כותרת המייל שנשלח
Dim mailBody ‘ תוכן המייל שנשלח
mailFrom="jobavoda@hotmail.com"
mailTo="mrmistory@hotmail.com"
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
%>


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

תגיות:

9 תשובות

  1. אוריקס הגיב:

    זה בגלל ה IF בשורה הבאה:

    If err.number <> 0 Then SendEmail = False

    קודם כל הוא לא סגור. דבר שני אני חושב שמקומו אחרי ה Send…

  2. mrmistory הגיב:

    עדיין לא שולח גם אם אני מוריד IF…
    כלומר שורה של IF

  3. mrmistory הגיב:

    ממממ….
    זאת פעם ראשונה שלי שאני מנסה לעשות שליחת מייל.
    אין לי מוסג איך מפעילים את SMTP.

    יש לי XP PRO, ו IIS מותקן.
    איך מפעילים את SMTP ?

    תודה.

  4. mrmistory הגיב:

    🙁 זה בדיוק כמו בתמונה שנתת ולא …
    שולח מייל.

שלח תשובה