Sub Mygirl()

'要能正确发送并需要对Microseft Outlook进行有效配置
On Error Resume Next
Dim rowCount, endRowNo
'要正常运行下面这句,要将工具/引用中的Microseft Outlook *.0 Object Library(其中*为你Microseft Outlook的版本号)选上

Dim objOutlook As New Outlook.Application
Dim objMail As MailItem
'取得当前工作表与Cells(1,1)相连的数据区行数

endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
'创建objOutlook为Outlook应用程序对象

Set objOutlook = New Outlook.Application
'开始循环发送电子邮件

For rowCount = 2 To endRowNo

A = Application.WorksheetFunction.Clean(Worksheets("发送清单").Cells(rowCount, 3))

'创建objMail为一个邮件对象
Set objMail = objOutlook.CreateItem(olMailItem)

With objMail
'设置收件人地址
.To = Cells(rowCount, 1)

'设置抄送收件人地址
.CC = Cells(rowCount, 2)


'设置邮件主题
.Subject = Worksheets("正文").Cells(1, 2)
'设置邮件内容
.Body = Worksheets("正文").Cells(2, 2)


'设置附件
.Attachments.Add A

'自动发送邮件
'.Send
.Send

End With
'销毁objMail对象
Set objMail = Nothing


Next

X = (endRowNo - 1) & "封邮件"
MsgBox X

End Sub