فورم بريد الكتروني

هذا مثال عن كيفية إرسال إيميل من فورم على موقعك معمول باستخدام CDONTS Mail

<%
If Request.Form.Count > 0 Then
    For I = 1 to Request.Form.Count
        Body = Body & Request.Form.Key(I) & " " _
               & Request.Form.Item(I) & vbCRLF
    Next

AdminName = "ضع اسمك هنا"
AdminEmail = "ضع إيميلك هنا"

Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
objCDONTS.From = AdminName & " <" & AdminEmail & ">"
objCDONTS.To = Trim(Request.Form("email"))
objCDONTS.Subject = Trim(Request.Form("txtSubject"))
objCDONTS.Body = Trim(Request.Form("txtMessage"))
objCDONTS.Send
Set objCDONTS = Nothing

	Response.Write "تم إرسال الرسالة بنجاح"

end if
%>

<FORM ACTION="<%= Request.ServerVariables("SCRIPT_NAME") %>" METHOD="post">
<table border="0" width="100%" id="AutoNumber1" cellpadding="4">
  <tr>
    <td width="50%">
    <p align="right"><font size="-1">
<input name="email" size="41" style="float: right"></font></td>
    <td width="10%" align="right" nowrap>
    <font face="Tahoma" style="font-size: 9pt">إلى -<span lang="en-us"> </span>
    إيميل</font></td>
  </tr>
  <tr>
    <td width="50%"><font size="-1">
<input name="txtSubject" size="41" style="float: right"></font></td>
    <td width="10%" align="right" nowrap>
    <font face="Tahoma" style="font-size: 9pt">إلى - اسم</font></td>
  </tr>
  <tr>
    <td width="50%">
    <p align="right">
<textarea cols=40 rows=9 name="txtMessage"></textarea></td>
    <td width="10%" align="right" nowrap>
    <font face="Tahoma" style="font-size: 9pt">الموضوع</font></td>
  </tr>
</table>
</form>

وهذا نفس المثال و لكن باستخدام Persits

<%
If Request.Form.Count > 0 Then
    For I = 1 to Request.Form.Count
        Body = Body & Request.Form.Key(I) & " " _
               & Request.Form.Item(I) & vbCRLF
    Next

AdminEmail = "ضع إيميلك هنا"
MailServer = "اسم السيرفر"

Set objNewMail = CreateObject("Persits.MailSender")
objNewMail.From = AdminEmail
objNewMail.Host = MailServer
objNewMail.AddAddress Trim(Request.Form("email"))
objNewMail.Subject = Trim(Request.Form("txtSubject"))
objNewMail.Body = Trim(Request.Form("txtMessage"))
objNewMail.Send
Set objNewMail = Nothing

	Response.Write "تم إرسال الرسالة بنجاح"

end if
%>

<FORM ACTION="<%= Request.ServerVariables("SCRIPT_NAME") %>" METHOD="post">
<table border="0" width="100%" id="AutoNumber1" cellpadding="4">
  <tr>
    <td width="50%">
    <p align="right"><font size="-1">
<input name="email" size="41" style="float: right"></font></td>
    <td width="10%" align="right" nowrap>
    <font face="Tahoma" style="font-size: 9pt">إلى -<span lang="en-us"> </span>
    إيميل</font></td>
  </tr>
  <tr>
    <td width="50%"><font size="-1">
<input name="txtSubject" size="41" style="float: right"></font></td>
    <td width="10%" align="right" nowrap>
    <font face="Tahoma" style="font-size: 9pt">إلى - اسم</font></td>
  </tr>
  <tr>
    <td width="50%">
    <p align="right">
<textarea cols=40 rows=9 name="txtMessage"></textarea></td>
    <td width="10%" align="right" nowrap>
    <font face="Tahoma" style="font-size: 9pt">الموضوع</font></td>
  </tr>
</table>
</form>

وبشكل عام إن كنت تريد إرسال فورم كامل إلى بريدك او أي بريد أخر، مثلاً قد يكون عندك فورم يتكون من اسم العميل و هاتفه و عنوانه و المنتج و الوصف و التاريخ و عنوان الشحن و عشرات الحقول الأخرى فهذه اسهل طريقة أعرفها، فقط أضف الكود التالي في نفس صفحة الفورم (هذا يستخدم Persist):

<%
If Request.Form.Count > 0 Then
    For I = 1 to Request.Form.Count
        Body = Body & Request.Form.Key(I) & " " _
               & Request.Form.Item(I) & vbCRLF
    Next

Set objNewMail = CreateObject("Persits.MailSender") 
    objNewMail.From = "إيميلك"
    objNewMail.FromName = "أسمك"
    objNewMail.Host = "اسم السيرفر"
    objNewMail.AddAddress "الايميل الذي سترسل له"
    objNewMail.Subject = "الموضوع"
    objNewMail.Body = Body 'لاتغير هذه
    
    objNewMail.Send
    Set objNewMail = Nothing
    Response.Redirect "thankyou.asp"
End If
%>

ثم ضع الكود التالي للفورم:

<FORM ACTION="<%= Request.ServerVariables("SCRIPT_NAME") %>" method=post>