<%@LANGUAGE="VBSCRIPT" CodePage=65001%>
<%Option Explicit%>
<%Session.CodePage="65001"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<form action="send.asp" method="post">
نام : <input type="text" name="famil"><br>
ایمیل : <input type="text" name="email"><br>
متن : <textarea name="note"></textarea><br>
<input type="submit">
</form>
</body>
</html>
<%
''گرفتن مقادیر فرم
strName = Request.Form("famil")
strEmail = Request.Form("email")
strNote = Request.Form("note")
''تشکیل متن نامه
strText = "Name : " & strName & "<br>E-Mail : " & strEmail & "<br>Note : " & strNote
Set objEmail = CreateObject("CDO.Message")
objEmail.BodyPart.Charset = "utf-8"
''تعیین نام فرستنده نامه
objEmail.From = strName & " <" & strEmail & ">"
''تعیین آدرس ایمیلی که باید نامه به آن برود
objEmail.To = "[email protected]"
''تعیین موضوع نامه
objEmail.Subject = "salam"
''دستورات ارسال نامه
strText = replace(strText,vbCrLf,"<br>")
objEMail.HTMLBody = strText
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
objEmail.Configuration.Fields.Update
objEmail.TextBodyPart.Charset = "utf-8"
objEmail.HTMLBodyPart.Charset = "utf-8"
objEmail.Send
Response.Write("با تشکر از شما اطلاعات ارسال شد")
%>
System.Web.Mail.MailMessage mm=new System.Web.Mail.MailMessage();
mm.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1");
mm.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "[email protected]" );
mm.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "password" );
System.Web.Mail.SmtpMail.SmtpServer="webmail.mnds.com";
System.Web.Mail.SmtpMail.Send(mm);