Jmail指定多个收件人的方法

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

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

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

1
2
3

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

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

1
2
3
4

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

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