|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub Button3_Click()
On Error Resume Next
Dim rowCount, endRowNo
Dim objOutlook As New Outlook.Application
Dim objMail As MailItem
Dim Signature As String
endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
Set objOutlook = New Outlook.Application
For rowCount = 2 To endRowNo
a = Split([f2], ";")
For i = 0 To UBound(a)
Set objMail = objOutlook.CreateItem(olMailItem)
With objMail
.To = Cells(rowCount, 2)
.CC = Cells(rowCount, 3)
.Subject = Worksheets("Sheet1").Cells(2, 4)
.Body = Worksheets("Sheet1").Cells(2, 5)
if ubound(a) >1 then
for kk = 0 to ubound(a)
.Attachments.Add a(kk)
next
else
.Attachments.Add a(0)
end if
next
.Send
End With
Set objMail = Nothing
Next
X = (endRowNo - 1) & "Sent successfully"
MsgBox X
End Sub
没测试过,不一定正确 |
|