binafar_Javad
دوشنبه 15 مهر 1392, 23:12 عصر
دوستان عزیز سلام
مشکل من مربوط میشه به نمایش Subject ایمیل که بصورت فارسی تایپ شده ولی متن نامه صحیح هست نمی دونم دیگه چه راهی جهت حل این مشکل پیش بگیرم کد برنامه هم در زیر آمده لطفا راهنمایی کنید
با تشکر
set msg = Server.CreateOBject("JMail.Message")
msg.Logging = true
msg.silent = true
msg.Charset= "UTF-8"
dim Tsubject,Tfrom,TBody,TfromName
TfromName=Request.Form("T1")
Tfrom=Request.Form("T3")
TBody=Request.Form("S1")
Tsubject="عنوان ايميل"
msg.ContentType = "text/plain; charset=UTF-8"
msg.ISOEncodeHeaders=true
response.charset="utf-8"
msg.AddRecipient "info@aseorg.com"
msg.AddRecipient "info@aseorg.com", "انجمن تخصصي"
msg.From = Tfrom
msg.FromName = TfromName
msg.Subject = Tsubject
msg.Body = Tbody
msg.MailServerUserName = "aaaa@aseorg.com"
msg.MailServerPassword = "pppppppp"
If not msg.Send("70.38.11.135") Then
Response.write "<pre>" & msg.log & "</pre>"
Else
Response.write "Message sent succesfully!"
End If
set msg = nothing
مشکل من مربوط میشه به نمایش Subject ایمیل که بصورت فارسی تایپ شده ولی متن نامه صحیح هست نمی دونم دیگه چه راهی جهت حل این مشکل پیش بگیرم کد برنامه هم در زیر آمده لطفا راهنمایی کنید
با تشکر
set msg = Server.CreateOBject("JMail.Message")
msg.Logging = true
msg.silent = true
msg.Charset= "UTF-8"
dim Tsubject,Tfrom,TBody,TfromName
TfromName=Request.Form("T1")
Tfrom=Request.Form("T3")
TBody=Request.Form("S1")
Tsubject="عنوان ايميل"
msg.ContentType = "text/plain; charset=UTF-8"
msg.ISOEncodeHeaders=true
response.charset="utf-8"
msg.AddRecipient "info@aseorg.com"
msg.AddRecipient "info@aseorg.com", "انجمن تخصصي"
msg.From = Tfrom
msg.FromName = TfromName
msg.Subject = Tsubject
msg.Body = Tbody
msg.MailServerUserName = "aaaa@aseorg.com"
msg.MailServerPassword = "pppppppp"
If not msg.Send("70.38.11.135") Then
Response.write "<pre>" & msg.log & "</pre>"
Else
Response.write "Message sent succesfully!"
End If
set msg = nothing