کمک Jmail & ASPMAIL

[mostafa]

سالم :D
من کد کامل @JMAIL@ , @ASPMAIL@ رو نیاز دارم..
میدونم تو نت هست! ولی کار نمیکنه.. لطفا یه نسخشو بدین که خودتونم امتحان کردین!
!! سرورم این 2 کامپوننت رو پشتیبانی میکنه!

[ویولت]

کافیه یه فرم بسازید که
body
subject
name
email
رو با Action=send.asp به send.asp بفرسته
و می تونید هر میل کامپوننتی رو که می خواهید از حالت مارک خارج کنید


send.asp

<%

Dim Body,Subject

Dim YourEmail, FromEmail

Dim FromName, Mailserver

Dim EmailType

YourEmail = "info@yoursite.com" ' 

Mailserver = "mail.yoursite.com" '

'EmailType ="ASPmail"

'EmailType ="cdonts"

EmailType ="jmail"

'EmailType ="ASPEmail"

'EmailType ="OCXMail" 

'Request the form elements from the last page

Body = request.form("body")

Subject = request.form("subject")

FromName = request.form("name")

FromEmail = request.form("email")



' Now lets send the email by using the include file 

%><!--#include file ="email-functions.asp"--->

email-functions.asp

<%



' ASPMail sender

on error resume next

Select case emailtype

case  "ASPmail"

		Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")

		objNewMail.FromName = FromName

		objNewMail.FromAddress = FromEmail

		

		' the mail server goes below

		objNewMail.RemoteHost = MailServer

		objNewMail.AddRecipient YourEmail, YourEmail

		objNewMail.Subject = Subject

		objNewMail.BodyText = Body

	

		SendOk = objNewMail.SendMail

		





case  "cdonts"  

		Set objNewMail = Server.CreateObject ("CDONTS.NewMail")

		objNewMail.BodyFormat = 1

		objNewMail.MailFormat = 0

		'on error resume next '## Ignore Errors

		objNewMail.Send FromEmail, YourEmail, Subject, Body

		

		





case  "jmail" 



   set objNewMail = server.createobject("JMail.SMTPMail")

   objNewMail.Sender = FromEmail

   objNewMail.ServerAddress = MailServer

   objNewMail.AddRecipient   YourEmail

   objNewMail.Subject  = Subject

   objNewMail.Body = body

   objNewMail.execute

   

 



case "ASPEmail"

Set objNewMail = CreateObject("Persits.MailSender") 

   objNewMail.From = FromEmail

   objNewMail.Host = MailServer

   objNewMail.AddAddress  YourEmail

   objNewMail.Subject = Subject

   objNewMail.Body = body

   

   objNewMail.Send 

   

case "OCXmail"

Set objNewMail = Server.CreateObject("ASPMail.ASPMailCtrl.1"&#4  1;

   SendEmail =  objNewMail.SendMail(MailServer, YourEmail, FromEmail, Subject, body) 

   

Set objNewMail = Nothing





end select



'response.write err.number



%>

[Vahid_Nasiri]

جناب ویولت عزیز :wink:
برای اینکه کدها صحیح نمایش داده شوند تمام آنها را select کنید و سپس روی دکمه ی code کلیک نمایید. به این صورت از چپ به راست بودن کدها هنگام نمایش حفظ می شود.

[mostafa]

مرسی ویولت ولی من همه ی اینا رو امتحان کردم!
حالا فهمیدم مشکل چیه!!! ایمیل ها به hotmail نمیرن!!! به هر ایمیلی بجز @hotmail.com
میرن!!! حتی ز میل سرورش "smpt"؛

[ویولت]

ممکن است که سرور میل شما ایمیل ها را Block کرده باشه

جناب نصیری از راهنمایی شما ممنون و انجام شد. :wink: