指引网

当前位置: 主页 > 编程开发 > ASP >

asp中使用Jmail指定多个收件人的例子

来源:网络 作者:佚名 点击: 时间:2017-06-22 20:45
[摘要] jmail是一个第三方邮件操作组件,通常位于web服务器端,和站点程序紧密配合来接收及提交邮件到邮件服务器的控件,让网站拥有发送邮件和接收邮件的功能。 Asp中使用Jmail的函数就是

jmail是一个第三方邮件操作组件,通常位于web服务器端,和站点程序紧密配合来接收及提交邮件到邮件服务器的控件,让网站拥有发送邮件和接收邮件的功能。

Asp中使用Jmail的函数就是下面的这样子的:

 代码如下 复制代码
Sub SendAction(subject,mailaddress,Tomail,content,fromEmail,Fromer,UserName,PassWord)
    Set oJmail=CreateObject("Jmail.Message")
    oJmail.Logging=true
    oJmail.Silent=False
    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 =content'"我们的邮件采用了HTML格式,但是您的邮件查看软件可能不支持"
    '单地址收件人
    oJmail.AddRecipient Tomail '收件人地址
    oJmail.Subject = subject '标题
    oJmail.Send(mailaddress)
End Sub

以在asp程序中指定,提交到JMail处理的时候
往往需要发到多个收信人信箱。
如下:

 代码如下 复制代码

JMail.AddRecipient "somebody1@somewhere.com"
JMail.AddRecipient "somebody2@somewhere.com"
JMail.AddRecipient "somebody3@somewhere.com"

据我所知,应该不行,你可以用一个循环来设置。

 代码如下 复制代码


aryEmail = split("aa@bb.com;adf@sfda.net;dsfafdsa@china.com", ";")
for i=0 to UBound(aryEmail)
  JMail.AddRecipient Trim(aryEmail(i))
next

------分隔线----------------------------