צפיות
תשובות
שליחת מייל מטופס על ידי CHECK BOX
יש לי טופס שמעדכן בסיס נתונים של HELPDESK
לעיתים אני רוצה לעדכן גם את הנמען הכניס את הקריאה ולעיתים לא, לכן הוספתי CHECK BOX שכאשר אני מסמן אותה בנוסף לעדכון בסיס הנתונים ישלח מייל לנמען
ה CHECK BOX:
<tr>
<td>
<label><input name="sendmail" type="checkbox" value="y" >
send update mail to user</label>
</td>
</tr>
ומשלוח הדואר:
'Send mail
IF Request.Form("SendEmail") = "y" THEN
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = "xxxxxxxxxxxrelay"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "[email protected]"
cdoMessage.To = Request.Form("Email")
cdoMessage.Subject = "Help Desk "
strBody = "Your Call: " & Request.Form("Description") & ", posted at: " & Request.Form("Date") & " " & Request.Form("Solution")
cdoMessage.TextBody = strBody
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
End If
זה לא עובד
זאת אומרת שכאשר הטופס נשלח בסיס הנתונים מעודכן אבל שליחת המייל לא עובדת
מה אני לא עושה טוב
תודה
6 תשובות
מה השגיאה?
אין שגיאה, פשוט הטופס מעדכן את
בסיס הנתונים אך אינו שולח מייל.
תודה
הcdoMessage.From לא חוקי
צריך כתובת מייל אמיתית..
יש כתובת אמיתית
פשוט אסור לי לפרסם אותה
אני משתמש בקוד הזה עם כתובת אמיתית וזה עובד בטפסים אחרים
כנראה אני לא יודע לכתוב את הקוד הנכון
CHECK BOX ב
'Send mail
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = "xxxxxxxxxxxrelay"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "[email protected]"
cdoMessage.To = Request.Form("Email")
cdoMessage.Subject = "Help Desk "
strBody = "Your Call: " & Request.Form("Description") & ", posted at: " & Request.Form("Date") & " " & Request.Form("Solution")
cdoMessage.TextBody = strBody
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
End If
אז ככה,
שים לב של-CHECK BOX קראת sendmail, ובקבלה שלו כתבת:
IF Request.Form("Send E mail") = "y" THEN
תמחק את ה-E המיותר, וזה אמור לעבוד..
המון תודה
ואני 24 שעות מחפש את הטעות (שגיאות כתיב זו בעיה קשה של דיסלקטים, ואני כזה)