sendmail.asp

来自「航空订票系统基于asp.net和sql2005包含数据库和图片」· ASP 代码 · 共 31 行

<%
'采用JMail组件发送邮件函数
'参数：收件人邮件地址、邮件标题、邮件内容HTML
'返回：True=发送成功；False=发送失败
Function SendMail(mailTo, Formsb, mailSubject, mailBody)
	On Error Resume Next
	Dim JMail, rtnValue, SMArr
  rtnValue = True
  '邮件发送STMP从Application中读取
  SMArr = Split("[e-mail];博亿网;booye.com;service;kfbooye", ";")
	Set JMail = Server.CreateObject("JMail.Message")
  With JMail
    .Logging = True
    .Charset = "gb2312"
    .ContentType = "text/html"
    .AddRecipient mailTo
    .From = Trim(SMArr(0))
    .FromName = Trim(Formsb)
    .Priority = 1
    .Subject = mailSubject
    .Body = mailBody
    .MailServerUserName = Trim(SMArr(3)) 'SMTP登录名称
    .MailServerPassword = Trim(SMArr(4)) 'SMTP登录密码
    .Send(Trim(SMArr(2)))
    .Close()
  End With
	Set JMail = Nothing
	If Err then rtnValue = False
  SendMail = rtnValue
End Function
%>