16-11-2004, 14:26
|
|
|
חבר מתאריך: 16.11.04
הודעות: 1
|
|
שליחת דואר בעברית בעזרת CDO
שלום.
אני צריך עזרה, כתבתי אתר ב-ASP , ולקוח יכול להרשם בו לעידכונים.
בתגובה, בעל האתר מקבל דוא"ל תשובה עם שם הלקוח, טלפון וכו'.
כתבתי את הקוד למטה, הדואר נשלח, אך עם סימני שאלה (??????) במקום עברית.
אנגלית רואים בסדר גמור.
תודה רבה מראש.
'// send email to admin
dim body
body = "<html>"
body = body & "<head>"
body = body & "<meta http-equiv=""Content-Type"" content=""text/html; charset=Windows-1255"">"
body = body & "<meta http-equiv=""Content-Language"" content=""he"">"
body = body & "</head>"
body = body & "<body>"
body = body & "<p dir=""rtl"" align=""center""><u><b><span lang=""he""><font size=""5"">נרשם לקבלת עדכונים:</font></span></b></u></p>"
body = body & "<p dir=""rtl"" align=""center""><span lang=""he""><font size=""5"">שם :"
body = body & name & "</font></span></p>"
body = body & "<p dir=""rtl"" align=""center""><span lang=""he""><font size=""5"">טלפון :"
body = body & phone & "</font></span></p>"
body = body & "<p dir=""rtl"" align=""center""><span lang=""he""><font size=""5"">דואר אלקטרוני: "
body = body & email & "</font></span></p>"
body = body & "<p dir=""rtl"" align=""center""><span lang=""he""><font size=""5"">עד לתאריך: "
body = body & expire & "</font></span></p>"
body = body & "</body></html>"
Set myMail=CreateObject("CDO.Message")
myMail.Subject="New client had signed in"
myMail.From=admin@mysite
myMail.To= mymail@bla.com
myMail.HTMLBody = body
|