חייב עזרה דחופה ASPMAIL פליזזזזזזז

אני חושב…
שאם הטקסט הוא בעברית אז הקידוד צריך להיות windows-1255 או משהו כזה. ואם אתה משנה לiso או ל utf אז אתה צריך להמיר את הבתים לפורמט המתאים

תחליף רכיב
אני השתמשתי בעבר עם הפונקצייה הבאה היא עבדה לי יופי לכל שרתי המייל כולל ג'ימייל. אגב בחלק משרתי האחסון הישראליים אתה צריך לבטל את קטג ההגדרות SMTP
function send_mail(str_from,str_to,str_subject,str_htmlbody)

Dim MyMail

Set MyMail = CreateObject("CDO.Message")

' Out going SMTP server
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver&quot😉 = request.form("smtpserver")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport&quot😉 = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing&quot😉 = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout&quot😉 = 60
objCDOSYSCon.Fields.Update

' Update the CDOSYS Configuration
Set MyMail.Configuration = objCDOSYSCon

MyMail.From = str_from
MyMail.To = str_to
MyMail.Subject = str_subject
MyMail.htmlbody = headhtml & str_htmlbody & leghtml

MyMail.BodyPart.Charset = "windows-1255"
MyMail.HTMLBodyPart.charset = "Windows-1255"
MyMail.Send

Set MyMail= nothing
end function