homayouni2012
پنج شنبه 08 تیر 1391, 10:23 صبح
سلام همگی دوستان خسته نباشند
من در این کد مشکل دارم ایمیلی که ارسال می کنم مشکل فارسی دارد
لطفا کمک کنید
elseif lcase(request("send")) = "on" then
dim bodymessage
bodymessage = bodymessage & "mail: " & request("eml") & "<br>"
bodymessage = bodymessage & "message: " & request("msg") & "<br>"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.CharSet = "UTF-8"
Mail.ContentTransferEncoding = "Quoted-Printable"
Mail.From = "test@test.ir"
Mail.AddAddress "test@test.ir"
Mail.Subject = "ticket support"
Mail.Body = bodymessage
Mail.IsHTML = True
Mail.Host = "mmm.domain.com"
Mail.Username = "test@test.ir"
Mail.Password = "test"
Mail.Send
If Not err.number=0 Then
Response.write "ERROR: " & err.Description
err.Clear
end if
Set Mail = Nothing
من در این کد مشکل دارم ایمیلی که ارسال می کنم مشکل فارسی دارد
لطفا کمک کنید
elseif lcase(request("send")) = "on" then
dim bodymessage
bodymessage = bodymessage & "mail: " & request("eml") & "<br>"
bodymessage = bodymessage & "message: " & request("msg") & "<br>"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.CharSet = "UTF-8"
Mail.ContentTransferEncoding = "Quoted-Printable"
Mail.From = "test@test.ir"
Mail.AddAddress "test@test.ir"
Mail.Subject = "ticket support"
Mail.Body = bodymessage
Mail.IsHTML = True
Mail.Host = "mmm.domain.com"
Mail.Username = "test@test.ir"
Mail.Password = "test"
Mail.Send
If Not err.number=0 Then
Response.write "ERROR: " & err.Description
err.Clear
end if
Set Mail = Nothing