<% @ language="VBSCRIPT" CODEPAGE="1255" %>
<%
Dim Mail
set Mail =server.createobject("CDO.Message")
Mail.From = fromEmail
Mail.To = toEmail
Mail.Subject = msgSubject
Mail.HTMLBody = msgBody
' Next 3 lines are for Hebrew encoding
Mail.HTMLBodyPart.charset = "utf-8"
Mail.BodyPart.Charset = "utf-8"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/languagecode")="utf-8"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") =2
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.secureserver.net"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25 
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =1 
Mail.Configuration.Fields.Update
Mail.Send
set Mail=nothing
%>

6 תגובות

1. בבקשה עזרו לי | 5/11/2008 8:17:45 AM
   

   עשיתי את כל מה שציינתם לעיל'

   זה לא עובד.

   האם יש לשתול את הקוד בקובץ ASP חדש נקי? או בקובץ שהם מספקים?

    

   תודה מראש

    

   שלומי

2. טל | 5/11/2008 8:50:54 AM
   

   כתוב את הקוד ב-ASP חדש, אל תשתמש בשלהם. אל תשכח לעדכן את המשתנים fromEmail, ToEmail, msgSubject, msgBody.

   כמו כן, godaddy לא מצליח לשלוח מיילים לכתובות של hotmail ולא לשל walla. האם ניסית לשלוח לשם ?

3. תודה רבה לך על התגובה | 5/11/2008 8:52:29 AM
   

   טל הבנתי שעוסק בבנית אתרים?

   אשמח שתיכנס אליי לאתר ותראה אם אתה יכול להיותספק שלי.

    

   יום נעים

    

   boolamatara.com

4. טל | 5/11/2008 9:32:43 AM
   

   בתפריט שבצד ימין, ישנו קישור לעמוד צור קשר, זוהי דרך טובה יותר לתקשר בנושאים כאלו.

5. טל שלום | 5/12/2008 10:33:18 AM
   

   הבעיה לא נפטרה עדיין אני מקבל סימני שאלה  הקוד מצורף:
   (הקוד חופשי לשימוש לשאר קוראי הכתבה)

   בבקשה עזור לי לפתור את הכאב הזה.

   
   <%
   
   ' declare variables
   Dim EmailFrom
   Dim EmailTo
   Dim Subject
   Dim subject1
   Dim name1
   Dim company
   Dim phone
   Dim email
   Dim message
   ' get posted data into variables
   EmailFrom = ("123@boolamatara.com")
   EmailTo = ("123@boolamatara.com")
   Subject = Trim(Request.Form("Subject"))
   Subject1 = Trim(Request.Form("Subject1"))
   Name1 = Trim(Request.Form("Name1"))
   company = Trim(Request.Form("company"))
   phone = Trim(Request.Form("phone"))
   email = Trim(Request.Form("email"))
   message = Trim(Request.Form("message"))
   ' prepare email body text
   Dim Body
   Body = Body & "Subject1: " & Subject1 & VbCrLf
   Body = Body & "Name1: " & Name1 & VbCrLf
   Body = Body & "company: " & company & VbCrLf
   Body = Body & "phone: " & phone & VbCrLf
   Body = Body & "email: " & email & VbCrLf
   Body = Body & "message: " & message & VbCrLf
   ' send email
   Dim mail
   Set mail = Server.CreateObject("CDO.Message")
   mail.To = EmailTo
   mail.From = EmailFrom
   mail.Subject = Subject
   mail.textBody = Body
   ' Next 3 lines are for Hebrew encoding
   Mail.textBodyPart.charset = "utf-8"
   Mail.BodyPart.Charset = "utf-8"
   Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/languagecode")="utf-8"
   Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") =2
   Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.secureserver.net"
   Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25
   Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =1
   Mail.Configuration.Fields.Update
   Mail.Send
   ' redirect to success page
   Response.Redirect("Thankyou.html" )
   
   %>
   
   
   תודה רבה רבה

   שלומי

6. GakurVab | 4/1/2017 9:42:56 AM
   #tRVcFaE8YR5E http://risuhi.bankibarnaula.ru/religiya-i-duhovnost/100-tem-vsesvtnya-storya.html http://izan.bankibarnaula.ru/domashnyaya/

התגובות נעולות

הוסף תגובה