[15 באפריל 2008] [6 תגובות]
GoDaddy היא חברה המתמחה ברישום שמות דומיין. בנוסף, החברה מספקת שירותי איחסון אתרים במחירים מאוד זולים, יש האומרים שהמחיר הנמוך מעיד על איכות השירות.
אם ברשותכם חבילת איכסון כזאת, תוכלו להשתמש בקוד הבא על מנת לשלוח E-Mail מהאתר שלכם. את הקוד יש לשלב בדף ASP:
<% @ 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 %>
זהו הקוד לשליחת המייל, שימו לב שיש לעדכן את כתובת האי-מייל של השולח, כתובת האי-מייל שאליה ישלח המייל, את נושא ההודעה ואת גוף ההודעה.
הערות
- גוף ההודעה יכול להכיל תגי HTML.
- שליחת אי-מייל מכתובת או לכתובת מייל של hotmail, נחסמת ע"י שרתי GoDaddy מסיבה לא ברורה.
עידכון: הפוסט המקורי הכיל קוד ששלח הודעות עם סימני שאלה במקום עיברית. הקוד כעת תקין.
עשיתי את כל מה שציינתם לעיל'
זה לא עובד.
האם יש לשתול את הקוד בקובץ ASP חדש נקי? או בקובץ שהם מספקים?
תודה מראש
שלומי
כתוב את הקוד ב-ASP חדש, אל תשתמש בשלהם. אל תשכח לעדכן את המשתנים fromEmail, ToEmail, msgSubject, msgBody.
כמו כן, godaddy לא מצליח לשלוח מיילים לכתובות של hotmail ולא לשל walla. האם ניסית לשלוח לשם ?
טל הבנתי שעוסק בבנית אתרים?
אשמח שתיכנס אליי לאתר ותראה אם אתה יכול להיותספק שלי.
יום נעים
boolamatara.com
בתפריט שבצד ימין, ישנו קישור לעמוד צור קשר, זוהי דרך טובה יותר לתקשר בנושאים כאלו.
הבעיה לא נפטרה עדיין אני מקבל סימני שאלה הקוד מצורף:
(הקוד חופשי לשימוש לשאר קוראי הכתבה)
בבקשה עזור לי לפתור את הכאב הזה.
<%
' 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" )
%>
תודה רבה רבה
שלומי
#tRVcFaE8YR5E http://risuhi.bankibarnaula.ru/religiya-i-duhovnost/100-tem-vsesvtnya-storya.html http://izan.bankibarnaula.ru/domashnyaya/