返回列表下一主題上一主題發帖

excel VBA MAIL群發問題

chu0077

小學生 Rank: 1

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-9-2 17:21 | 顯示全部帖子

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)