function SendMail(SMTPServer,SMTPServerUserName,SMTPServerPassword,MailDomain,MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)
dim JMail, msg
set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312" '编码
JMail.silent=true '设置为true,JMail不会抛出例外错误.
JMail.ContentType = "text/plain" '邮件正文格式
'JMail.ServerAddress = SMTPServer '用来发送邮件的SMTP服务器(无效)
'指定邮件服务器的地址。可以指定多个服务器,用分号点开。可以指定端口号。
'如果serverAddress保持空白,JMail会尝试解决远程邮件服务器,然后直接发送到服务器上去。
'如:JMail.ServerAddress = &tquomail.mydom.netmail2.mydom.net:2500"
JMail.MailServerUserName = SMTPServerUserName '登录用户名
JMail.MailServerPassWord = SMTPServerPassword '登录密码
JMail.MailDomain = MailDomain '域名(如果用“name@domain.com”这样的用户名登录时,请指明domain.com
JMail.AddRecipient MailtoAddress,MailtoName '收信人
JMail.Subject = Subject '主题
JMail.Body = MailBody '邮件正文(纯文本格式)
JMail.FromName = FromName '发信人姓名
JMail.From = MailFrom '发信人Email
JMail.Priority = Priority '邮件等级12345
msg = JMail.Send(SMTPServer)
JMail.Close
set JMail = nothing
SendMail = msg
end function
%>
1.WEB开发,在ASP.Net中引用System.Web.Mail类 2.使用JMail组件 第一种方法 MailMessage mm = new MailMessage() mm.From = myReader["FromEmail"].ToString() mm.To = myReader["ToEmail"].ToString() mm.Subject = myReader["Subject"].ToString() mm.Body = strBody mm.BodyFormat = MailFormat.Html mm.Fields.Add("", "1")//basic authentication mm.Fields.Add("", myReader["UserName"].ToString())//set your username here mm.Fields.Add("", myReader["UserPassword"].ToString())//set your password here SmtpMail.SmtpServer = myReader["Smtp"].ToString() SmtpMail.Send(mm) 第二种方法自己去下载Jmail组件,看资料是你没配置好吧,我用ASP配置的就可以,下面是我写的JMAIL发送邮件的函数<%
response.addHeader "content-type","text/htmlcharset=utf-8"
Sub SendMail
On Error Resume Next
Dim msg
set msg = Server.CreateObject("JMail.Message")
If err<>0 Then
Err.clear
'response.write("Jmail组件没有被安装,请联系系统管理员")
'response.End()
End If
msg.charset="gb2312"
msg.From = "service@qkweb.net"
msg.FromName = "启科网络"
msg.MailServerUserName="service@qkweb.net"
msg.MailServerPassWord="123456"
msg.AddRecipient mailto
msg.Subject = mailtitle
msg.htmlBody = mailbody &vbCrLf
msg.appendText ""&vbCrlf
msg.appendText Now()&vbCrLf
msg.Send("smtp.qq.com")
End Sub
%>
调用方法就是 ,先设置收件人,和内容,再call调用
如:
<%
mailto = "test@qkweb.net"
mailbody = "请问一个网站程序设计的问题"
Call SendMail
%>
欢迎分享,转载请注明来源:夏雨云
评论列表(0条)