كل عام وانتم بالف خير واعاده الله علينا وعليكم بالفرح والمسرات
لدي مشكله في ارسال الايميل والتي تتمكن في انني لا استطيع ان ارسل اسم بالعربي لاي شخص ، يتم الارسال ولكن عند فتح الايميل تظهر الحروف كرموز فما الحل
هذا هو الكود المستخدم.
<%
Option Explicit
dim sName, sEmail, sMessage
dim oCdoMail, oCdoConf, sConfURL
if Request.Form("Action") <> "" then
sName = Request.Form("Name")
sEmail = Request.Form("Email")
sMessage = "This site can offer to you best way to buy or sell your car. "
Set oCdoMail = Server.CreateObject("CDO.Message")
Set oCdoConf = Server.CreateObject("CDO.Configuration")
sConfURL = "http://schemas.microsoft.com/cdo/configuration/"
with oCdoConf
.Fields.Item(sConfURL & "sendusing") = 2
.Fields.Item(sConfURL & "smtpserver") = "localhost"
.Fields.Item(sConfURL & "smtpserverport") = 25
.Fields.Update
end with
with oCdoMail
.From = "MyEmail@MyEmail.com"
.To = sEmail
.Subject = "Your friend "& sName &" want to tell you about this electronic Website"
.TextBody = sMessage
.HTMLBody = sMessage
.Configuration = oCdoConf
.Send
end with
Set oCdoConf = Nothing
Set oCdoMail = Nothing
response.write "Thanks for your message!"
response.redirect("hello.htm")
else
%>