14-08-2005, 11:55
|
|
|
|
חבר מתאריך: 04.10.04
הודעות: 442
|
|
שלבים אחי, שלבים...
בשלב בו האתר כותב את הנתונים של המשתמש החדש ל DB
ניתן להכניס את הפקודה שמבצעת שליחת דוא"ל. כך, כל עוד לא רשמת את המשתמש באמת
בבסיס הנתונים, אין טעם לשלוח לו דוא"ל.
איך לבצע שליחת דוא"ל ?
קוד:
<%
Dim myMail, myBody
myBody = "Name: "& request.form("name") & vbcrlf
myBody = myBody & "Email: "& request.form("email") & vbcrlf
myBody = myBody & "Message: "& vbcrlf & request.form("message")
Set myMail = CreateObject("CDONTS.NewMail")
myMail.BodyFormat=1
myMail.MailFormat=1
myMail.From=request.form("email")
myMail.To=user @server
myMail.Subject="subject"
myMail.Body=myBody
myMail.Send
set myMail=nothing
%>
שים לב, שאתה כנראה לא יכול להשתמש בדיוק בקוד הזה, כי לא בטוח שהוא מותאם לגמרי
לצרכים שלך (למשל, אולי אתה לא חייב להשתמש ב request.form).
אבל זה בגדול מה שצריך לעשות.
* אולי יש דרכים נוספות. אני מציע שקודם תעשה קובץ קטן בצד ותריץ אותו ותנסה לראות שנשלח דוא"ל
ואח"כ תשלב לשליחה בעת ביצוע הרשמה.
אגב, אני לא חושב שתוכל לשלוח דוא"ל אם לא מוגדר שרת דואר יוצא SMTP בשרת.
|