sendmail.asp

ASP原码

<%
  	' Create the JMail message Object
	set msg = Server.CreateOBject( "JMail.Message" )

	msg.Logging = true
	msg.silent = true

	msg.MailServerUserName="[e-mail]"
	msg.MailServerPassword="test"

	msg.From = "[e-mail]"
	msg.FromName = "test"
	
	'msg.AddRecipient "[e-mail]", "His Name"
	msg.AddRecipient "[e-mail]"	
	
	' The subject of the message
	msg.Subject = "重要通知"

	' The body property is both read and write.
	' If you want to append text to the body you can
	' use JMail.Body = JMail.Body & "Hello world! "
	' or you can use JMail.AppendText "Hello World! "
	' which in many cases is easier to use.
	'
	' Note the use of vbCrLf to add linebreaks to our email
	msg.Body = "Hello Jim" & vbCrLf & vbCrLf & "How's it going? ..."

	' To capture any errors which might occur, we wrap the call in an IF statement
	if not msg.Send( "www.iactive.com.cn" ) then
		Response.write "<pre>" & msg.log & "</pre>"
	else
		Response.write "Message sent succesfully!"
	end if
	
	
	' And we're done! the message has been sent.
%>