excel VBA MAIL群發問題

不好意思我是一个VBA初學者.想請教一下

我想在EXCEL VBA設一个MAIL群發公式.但我目前僅能做到在一個儲存格裡發送一份MAIL.無法將一個範圍內的多位收件者.一起群發.我想要將B2~B5的收件者都一起寄出.但目前一直做不到

以下是我的程式碼.
Sub sendmail()
Dim objEmail As Object
Const SMTPSERVER = "msa.hinet.net" '使用 msa.hinet.net 传送邮件

Set objEmail = CreateObject("CDO.Message") '建立 CDO 物件
With objEmail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPSERVER
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

objEmail.From = "[email protected]" '寄件者（网域必须存在）
objEmail.To = Range("B2").Value '收件者
objEmail.Subject = Range("E2").Value '邮件主旨
objEmail.HTMLBody = Range("F2").Value 'HTML邮件内文
objEmail.Send
Set objEmail = Nothing
End Sub

請問以上該如何修改

感謝各位高手

未命名.jpg (40.43 KB)

小弟是VBA新手請大家多多指教

chu0077

小學生 Rank: 1

帖子: 3
主題: 2
精華: 0
積分: 5
點名: 0
作業系統: WIN7
軟體版本: 2010
閱讀權限: 10
性別: 男
來自: 宜蘭
註冊時間: 2015-9-2
最後登錄: 2016-12-9

5^#

發表於 2015-9-3 09:34 | 只看該作者

回復 3# ikboy

大大您的方法有用太好了非常感激您

:D

小弟是VBA新手請大家多多指教

TOP

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

4^#

發表於 2015-9-3 07:56 | 只看該作者

Sub sendmail()
Dim objEmail As Object
Const SMTPSERVER = "msa.hinet.net" '使用 msa.hinet.net 传送邮件

Set objEmail = CreateObject("CDO.Message") '建立 CDO 物件
With objEmail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPSERVER
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

Dim arr '假設您將[B2]往下作為收件人可來個動態一點:
arr = Range("b2:b" & [a65536].End(3).Row)
For i = 1 To UBound(arr)
recipients = recipients & arr(i, 1)
Next

objEmail.From = "[email protected]" '寄件者（网域必须存在）
objEmail.To = Mid(recipients, 2) '收件群
objEmail.Subject = Range("E2").Value '邮件主旨
objEmail.HTMLBody = Range("F2").Value 'HTML邮件内文
objEmail.Send
Set objEmail = Nothing
End Sub

TOP

ikboy