mail.asp

来自「IMPORTANT YOU SHOUD LOAD IT DOWN FOR USI」· ASP 代码 · 共 68 行

<%
  '参数说明
  'Subject     : 邮件标题
  'MailAddress : 发件服务器的地址,如smtp.163.com
  'ToEmail     : 收件人邮件地址
  'Sender      : 发件人姓名
  'Content     : 邮件内容
  'FromEmail   : 发件人邮件地址
  'Fromer      : 发件人姓名
  'UserName    : 发件邮件帐号
  'PassWord    : 发件邮件密码

  Sub SendAction(subject, mailaddress, Tomail, sender, content, fromEmail,Fromer,UserName,PassWord) 
    Set oJmail=Server.CreateObject("Jmail.Message")
    oJmail.Logging=false
    oJmail.Silent=True
    oJMail.Priority = 1
    oJmail.FromName=Fromer
    oJmail.From= FromEmail
    oJmail.CharSet="gb2312"
    oJmail.MailServerUserName = UserName
    oJmail.MailServerPassWord = PassWord
    oJmail.ContentTransferEncoding = "base64"
    oJMail.HTMLBody = content '邮件内容
    oJMail.Body ="我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持"
    oJmail.AddRecipient Tomail '收件人地址
    oJmail.Subject = subject '标题
    oJmail.Send(mailaddress)
	

  End Sub
  
    Sub SendAction2(subject, mailaddress, Tomail, sender, content, fromEmail,Fromer,UserName,PassWord) 
    dim objEmail
  set objEmail = server.CreateObject("Persits.MailSender") 
 objEmail.Host=mailaddress
 objEmail.username=UserName
 objEmail.password=PassWord
 objEmail.From=fromEmail 
 objEmail.FromName= Fromer
 objEmail.AddAddress Tomail
 objEmail.Subject= subject
 objEmail.IsHTML=true 
 'objEmail.CharSet= "gb2312"
objEmail.Body=content
objEmail.Send
	

  End Sub

  
  Function SendCDOMail(subject,Tomail,content,fromEmail)

	dim  objCDOMail
	Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
	objCDOMail.From =fromEmail '改为你的邮箱
	objCDOMail.To = Tomail
	objCDOMail.Subject =subject

	objCDOMail.Body =content

	objCDOMail.Send
	Set objCDOMail = Nothing
	

End Function
%>