کمک در مورد فرم ارسال ایمیل
من بتازگی تونستم این فرم رو راه بیاندازم میل ارسال میکنه ولی کلمات فارسی رو درست ارسال نمیکنه قاطی نشون میده
Printable View
کمک در مورد فرم ارسال ایمیل
من بتازگی تونستم این فرم رو راه بیاندازم میل ارسال میکنه ولی کلمات فارسی رو درست ارسال نمیکنه قاطی نشون میده
اينكدينگ صفحت رو بصورت:
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
كن
نقل قول:
این کارم کردم جواب نداده
کسی نیست یه کمکی بکنه؟
واقعا عجب جایی ما مشکلمون رو مطرح کردیم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟!!!!!!!!!!!!!!!!!!!!!!
دوست عزيز بگيد با چه سيستمي داريد كار مي كنيد؟ منظورم اينه كه با php يا asp مكن بارها و بار ها اين كارو با پي اچ پي انجام دادم و هيچ مشكلي نداشتم .
زبان كاري خودتو بگو تا دوستان بهتر راهنمايي كنند!!!!
من با asp کار میکنم
saghishab عزیز
دوست عزيزم من با سيستم 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"کد:www.mysite.ir
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>
خواهشا كد هارو درون تگ كد قرار بديد
کد:<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>