Crestfallen
چهارشنبه 21 تیر 1385, 07:58 صبح
من از کد زیر برای ارسال ایمیل استفاده میکردم و درست جواب میداد ولی حالا که سرورم رو عوض کردم روی سرور جدید متن فارسی رو درست جواب نمیده . یعنی اون خطهایی رو که با علامت * مشخص کردم . میگه اصلا ابجکت میل چنین متدی نداره در صورتی که روی سرور قبلی چنین مشکلی نداشتم.
strHost = "mail.xxxxxx.com"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "free@yahoo.com"
Mail.FromName = Mail.EncodeHeader(Request("name"),"utf-8")
Mail.CharSet = "UTF-8"*****************************************
Mail.ContentTransferEncoding = "Quoted-Printable"*****************************
Mail.AddAddress ( "Info@xxxxx.com")
' message subject
Mail.Subject = "Message from contact-us Section!"
Mail.Body = "<html> ...................</html>"
Mail.IsHTML = True
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
response.write strErr
else
response.redirect "accept.html"
End If
strHost = "mail.xxxxxx.com"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "free@yahoo.com"
Mail.FromName = Mail.EncodeHeader(Request("name"),"utf-8")
Mail.CharSet = "UTF-8"*****************************************
Mail.ContentTransferEncoding = "Quoted-Printable"*****************************
Mail.AddAddress ( "Info@xxxxx.com")
' message subject
Mail.Subject = "Message from contact-us Section!"
Mail.Body = "<html> ...................</html>"
Mail.IsHTML = True
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
response.write strErr
else
response.redirect "accept.html"
End If