Question

excel vba发送邮件问题

我想用vba发送邮件
Sub sonic()
On Error Resume Next
Dim rowCount, endRowNo
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.createltem(olMailitem)
endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
For rowCount = 2 To endRowNo
Set objMail = objOutlook.CreateItem(olMailitem)
With objMail
.To = "sheet1!A2"
.Subject = "sheet1!B2"
.Body = "sheet1!C2"
.Attachments.Add Cells(rowCount, 4).Value

.CC = "sheet1!E2"
.BCC = "sheet1!F2"

.Send
End With
Set objMail = Nothing
Next
End Sub
但是做到这一步的时候
To = "sheet1!A2"
.Subject = "sheet1!B2"
.Body = "sheet1!C2"
.Attachments.Add Cells(rowCount, 4).Value

.CC = "sheet1!E2"
.BCC = "sheet1!F2"

赋值总弄不上去，该怎么弄啊！

Answer 1

"sheet1!A2" 之类的写法应该为：Sheets("sheet1").Range("A2")

追问

谢谢，果断是写法有问题啊