מאמר זה מסביר כיצד להוסיף שבירת שורות בהודעת האימייל. (דוגמא זו לא תעבוד עם שרתי אימיילים שיודעים לטפל רק בטקסט)
זה ממש פשוט, של מה שאני צריכים לעשות, הוא לכתוב vbCrlf כל פעם שאנו רוצים לשבור את השורה ולהתחיל חדשה.
הדוגמא הבא מדגימה כיצד:
<%
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
EM = request.form("email")
reply = "Reply TO "
objMail.From = reply
objMail.Subject = "Line breaks in CDONTS from ASPadvice"
objMail.To = "you@domain.com
objMail.Body = "זהו גוף המסמך." & vbcrlf&_
"לפעמים, גוף ההודעה נהיה" & vbcrlf&_
"ארוך מידי." & vbcrlf&_
"ואז צריך להתחיל לשבור את השורות" & vbcrlf&_
"ולפעמים נרצה להוסיף מספר שורות ריקות ברצף" & vbcrlf&_
"ככה..." & vbcrlf & vbcrlf & vbcrlf&_
"עכשיו ירדנו הרבה למטה :)"
objMail.Send
Response.write("הדואר האלקטרוני נשלח")
set objMail = nothing
%>
|