27-02-2005, 17:02
|
|
|
חבר מתאריך: 29.01.04
הודעות: 33
|
|
שליחת אימייל ב-ASPMAIL בעברית
על פי דף ההסברים - http://serverobjects.com/comp/Aspmail4.htm אני מנסה להשתמש בשורה הזאת:
Mailer.CustomCharSet = "windows-1255"
אך זה לא נשלח בעברית, רק סימני שאלה.
יש רעיון?
תודה
נב - מצ"ב הקוד:
קוד:
Private Function ASPmailSendMail(strEmailAddress)
Dim Mailer 'Holds the ASPmail e-mail object
'Create the e-mail server object
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
'Who the e-mail is from
Mailer.FromName = strWebsiteName
Mailer.IgnoreRecipientErrors = true
Mailer.FromAddress = strWebsiteEmailAddress
'Out going SMTP mail server address
Mailer.RemoteHost = strMailserver
'Who the e-mail is sent to
Mailer.AddRecipient "" , strEmailAddress
'The subject of the e-mail
Mailer.Subject = strSubject
'The main body of the e-amil
Mailer.BodyText = strEmailBody & strAppendToEmail
Mailer.ContentType = "text/html"
Mailer.CustomCharSet = "windows-1255"
Mailer.Encoding = 2
Mailer.Priority = 3
'ASPmail - 1: high, 3:normal, 5:low
'Send the e-mail
Mailer.SendMail
'Close the server mail object
Set Mailer = Nothing
ASPmailSendMail = true
End Function
וזה הקוד של הדף ששולח את הטקסט ל-FUNCTION הנל -
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1255"%>
<% ' Option Explicit %>
<!--#include file="common.asp" -->
<!--#include file="send_mail_functions.asp" -->
<%
'Let the e-mail client know were using HTML
strEmailBody = "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=windows-1255""></head><body>" & strEmailBody
blnEmailSent = ASPmailSendMail(rsmailList("Email"))
.....
%>
נערך לאחרונה ע"י snooper בתאריך 27-02-2005 בשעה 17:05.
|