在EXCEL中利用宏发邮件
在EXCEL中利⽤宏发邮件Sub SendMail()
'要能正确发送并需要对Microseft Outlook进⾏有效配置
开始菜单设置On Error Resume Next
Dim rowCount, endRowNo
Dim objOutlook As Object
Dim objMail As Object
'取得当前⼯作表与Cells(1,1)相连的数据区⾏数
'endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
endRowNo = Worksheets("邮箱地址").UsedRange.Rows.Count
'创建objOutlook为Outlook应⽤程序对象啦啦啦啦
Set objOutlook = CreateObject("Outlook.Application")
'开始循环发送电⼦邮件
For rowCount = 2 To endRowNo
'创建objMail为⼀个邮件对象
Set objMail = objOutlook.CreateItem(olAppointmentItem)
'设置收件⼈地址(从通讯录表的“E-mail地址”字段中获得)
objMail.From = ""
objMail.To = Worksheets("邮箱地址").Cells(rowCount, 2).Value
'设置邮件主题
光遇圣岛季
objMail.Subject = Worksheets("邮件内容").Cells(1, 2).Value
'设置邮件内容(从通讯录表的“内容”字段中获得)
objMail.Body = Worksheets("邮件内容").Cells(2, 2).Value夏茗悠经典语录
'设置附件(从通讯录表的“附件”字段中获得)
'objMail.Attachments.Add Cells(rowCount, 4)
'⾃动发送邮件
objMail.Send
'销毁objMail对象
Set objMail = Nothing
摩托车换挡
Next
'销毁objOutlook对象
Set objOutlook = Nothing八十年代电影歌曲
'所有电⼦邮件发送完成时提⽰
MsgBox (rowCount - 2) & "封邮件发送成功!" End Sub

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。