急，VBA只能给一个人发邮件

来源：百度知道 编辑：UC知道 时间：2024/05/17 01:54:34
我在excel里面一个 邮件发送功能给部门所有人发邮件，可是测试后只能给一个人发，不能群发，帮我看看 啊
Dim vaRecipient As Variant

vaRecipient = VBA.Array("XXX@XXXcom,后面的邮件地址都发送不到")
'Insert Lotus Notes COM object.
Set noSession = CreateObject("Notes.NotesSession")
Set noDatabase = noSession.GETDATABASE("", "")
If noDatabase.IsOpen = False Then noDatabase.OPENMAIL
Set noDocument = noDatabase.CreateDocument
Set noAttachment = noDocument.CreateRichTextItem("Body")

With noDocument
.Form = "Memo"
.sendto = vaRecipient
.Subject = stSubject
.Body = stMsg
.SaveMessageOnSend = True
.PostedDate = Now()
.Send 0, vaRecipient
End With

'我改了一下，你试试看

Dim vaRecipient As Variant
Dim i As Integer
vaRecipient = VBA.Array("XXX@XXXcom", "bbbb@bbb.com", "ccc@ccc.com") '请按此格式输入一串地址
For i = 0 To UBound(vaRecipient)
'Insert Lotus Notes COM object.
Set noSession = CreateObject("Notes.NotesSession")
Set noDatabase = noSession.GETDATABASE("", "")
If noDatabase.IsOpen = False Then noDatabase.OPENMAIL
Set noDocument = noDatabase.CreateDocument
Set noAttachment = noDocument.CreateRichTextItem("Body")

With noDocument
.Form = "Memo"
.sendto = vaRecipient(i)
.Subject = stSubject
.Body = stMsg
.SaveMessageOnSend = True
.PostedDate = Now()
.Send 0, vaRecipient(i)
End With
DoEvents
Next