ميتوني سورس كدتو براي ارسال ايميل بذاري رو سايت كه ما هم ببينيم
این هم کد صفحه ارسال میل:
<html>
<head>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<meta [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]"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 _
("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = 2
objMessage.Configuration.Fields.Item _
("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = "webmail.terminal-tabriz.ir"
objMessage.Configuration.Fields.Item _
("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = cdoBasic
objMessage.Configuration.Fields.Item _
("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = "mail@mysite.ir.ir"
objMessage.Configuration.Fields.Item _
("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = "12345678"
objMessage.Configuration.Fields.Item _
("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = 25
objMessage.Configuration.Fields.Item _
("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = False
objMessage.Configuration.Fields.Item _
("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = 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>
مشاهده نسخه کامل
: