שלח תשובה

זירת השאלות

367
צפיות
2
תשובות

שליחת נתוני טופס ב-אימייל

,‏ 16 באוגוסט, 2005

מה הדרך הפשוטה לשלוח נתוני טופס לתיבת האימייל הפרטי שלי?
(רצוי ללא תוספת תשלום עבור אוביקטים)

תודה על העזרה.
רונית

תגיות:

2 תשובות

  1. PhoenixBoy הגיב:

    הנה ב-ASP


    <%if request.form.count <= 0 then%>
        <div dir=rtl>
        <form method=post><br>
        למי <input name=to><br>
        ממי <input name=from><br>
        העתק <input name=cc><br>
        העתק חסוי <input name=bcc><br>
        נושא <input name=subject><br>
        HTML <input type=radio value=HTML name=sendvia><br> Text <input type=radio value=Text name=sendvia checked="checked"><br>
        <textarea cols=30 rows=10 name=M></textarea><br>
        שרת <input name=server value=smtp.012.net.il><br>
        יציאה <input name=port value=25><br>
        קידוד <input name=charset value=windows-1255><br>
        <input type=submit value="שלח"><br>
    <%else
        if request.form("to") = "" or request.form("from") = "" or request.form("server") = "" or request.form("port") = "" or request.form("charset") = "" then
             response.redirect("mail.asp")
        end if

        set M = server.createobjecT("cdo.message")
        m.from = request.form("from")
        m.to = request.form("to")
        if request.form("cc") <> "" then m.cc = request.form("cc")
        if request.form("bcc") <> "" then m.bcc = request.form("bcc")
        if request.form("subject") <> "" then m.subject = request.form("subject")
        if request.form("sendvia") = "Text" then m.textbody = request.form("m")
        if request.form("sendvia") = "HTML" then m.HTMLbody = request.form("m")
        m.BodyPart.Charset = request.form("charset")
        M.HTMLBodyPart.charset = request.form("charset")
        M.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver&quot😉 = request.form("server")
        M.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport&quot😉 = "25"
        M.Configuration.Fields.Update
        M.send
        %>
    השליחה הושלמה
    <%
    response.redirect "http://www.united-pc.net&quot;
    end if
    %>

  2. ronitn הגיב:

    תודה
    תודה רבה! באמת שכחתי לציין שהאתר ב- ASP.

שלח תשובה