کمک در مورد فرم ارسال ایمیل
من بتازگی تونستم این فرم رو راه بیاندازم میل ارسال میکنه ولی کلمات فارسی رو درست ارسال نمیکنه قاطی نشون میده
کمک در مورد فرم ارسال ایمیل
من بتازگی تونستم این فرم رو راه بیاندازم میل ارسال میکنه ولی کلمات فارسی رو درست ارسال نمیکنه قاطی نشون میده
اينكدينگ صفحت رو بصورت:
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
كن
این کارم کردم جواب نداده
واقعا عجب جایی ما مشکلمون رو مطرح کردیم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟!!!!!!!!!!!!!!!!!!!!!!
دوست عزيز بگيد با چه سيستمي داريد كار مي كنيد؟ منظورم اينه كه با php يا asp مكن بارها و بار ها اين كارو با پي اچ پي انجام دادم و هيچ مشكلي نداشتم .
زبان كاري خودتو بگو تا دوستان بهتر راهنمايي كنند!!!!
دوست عزيزم من با سيستم asp زياد اشنايي ندارم اما شما تو فرمت متن ايميل رو تو text area مي نويسي
درسته؟؟ فونت اونم تنظيم كن؟؟ يعني روي اون دوبار كليك بعد style و بعد فونت رو بذار tahoma شايد درست بشه يك بار ديگه اينكدينگ رو هم چك كن
شرمنده دستم بيشتر كار بر نمياد
ميتوني سورس كدتو براي ارسال ايميل بذاري رو سايت كه ما هم ببينيم
این هم کد صفحه ارسال میل:
<html>
<head>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>ارسال ای میل</title>
<style type="text/css">
<!--
body,td,th {
font-family: Tahoma, Times New Roman, Arial, sans-serif;
}
body {
background-color: #F2F2F2;
}
.style3 {font-size: 18px}
-->
</style></head>
<body text="#000000" link="#0000FF" vlink="#990099" alink="#FF0000" lang="fa" >
<%
Const cdoSendUsingPort = 2
Const cdoAnonymous = 0
Const cdoBasic = 1
Const cdoNTLM = 2
Set objMessage = Server.CreateObject("CDO.Message")
objMessage.Subject = " this Email send by"کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
objMessage.Sender = "mail@mysite.ir.ir"
objMessage.From = "mail@mysite.ir.ir"
objMessage.To = "mail@mysite.ir.ir"
objMessage.TextBody = "Name:" & Request.Form("firstName")& " " & Request.Form("lastName") & vbCRLF & "Email:" & Request.Form("email") & " "& vbCRLF & "Enquiry : " & Request.Form("enquiry") & " "
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "webmail.terminal-tabriz.ir"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mail@mysite.ir.ir"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "12345678"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.Send
%>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="2" align="center" dir="rtl"><span class="style3">ارسال نامه الکترونیکی با موفقیت انجام شد.</span></td>
</tr>
</table>
<br>
<br>
<table width="85%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" dir="rtl"><% = Request.Form("firstName") %> <% = Request.Form("lastName") %> از تماس شما متشکریم
<br>
</td>
</tr>
</table>
</body>
</html>
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)