שלח תשובה

זירת השאלות

744
צפיות
6
תשובות

שליחת מייל מטופס על ידי CHECK BOX

,‏ 1 במאי, 2007

יש לי טופס שמעדכן בסיס נתונים של 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 תשובות

  1. alexfog הגיב:

    אין שגיאה, פשוט הטופס מעדכן את
    בסיס הנתונים אך אינו שולח מייל.
    תודה

  2. rjnhojbht הגיב:

    הcdoMessage.From לא חוקי
    צריך כתובת מייל אמיתית..

  3. alexfog הגיב:

    יש כתובת אמיתית
    פשוט אסור לי לפרסם אותה
    אני משתמש בקוד הזה עם כתובת אמיתית וזה עובד בטפסים אחרים
    כנראה אני לא יודע לכתוב את הקוד הנכון
    CHECK BOX  ב

    'Send mail

    sch = "http://schemas.microsoft.com/cdo/configuration/&quot;
        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

  4. rjnhojbht הגיב:

    אז ככה,
    שים לב של-CHECK BOX קראת sendmail, ובקבלה שלו כתבת:

    IF Request.Form("Send E mail") = "y" THEN

    תמחק את ה-E המיותר, וזה אמור לעבוד..

  5. alexfog הגיב:

    המון תודה
    ואני 24 שעות מחפש את הטעות (שגיאות כתיב זו בעיה קשה של דיסלקטים, ואני כזה)

שלח תשובה