第一步：邮箱设置
配置好Microsoft outlook邮件客户端，确保能正常收发邮件，具体的本文不再详述；
第二步：建立Excel文档
1、为保证后面的“邮件发”宏代码正确运行，需要执行“开发工具→Visual Basic”，将“工具→引用→Microseft Outlook*.0 Object Library（其中*为Microseft Outlook的版本号中秋节朋友圈说说）选上”。如下图
街机摇杆2、建立含不同邮件地址、主题、内容及附件的Excel文档。例如魏武帝
第三步：编辑宏
执行“开发工具→Visual Basic”，单击“插如何调节电脑屏幕亮度入→模块”插入一个模块，在“工程”窗口中双击插入的模块，打开它的代码窗口，并在输入以下代码后关闭代码窗口。
代码示例
Sub sendmail()
On Error Resume Next
Dim rowCount, endRowNo
Dim objOutlook As New Outlook.Application
Dim objMail As MailItem
Dim arr, n
endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
Set objOutlook = New Outlook.Application
For rowCount = 2 To endRowNo
一毫升等于多少立方厘米Set objMail = objOutlook.CreateItem(olMailItem)
With objMail
.To = Cells(rowCount, 2).Value '邮件的地址
.Subject = Cells(rowCount, 3).Value '"邮件主题"
.Body = Cells(rowCount, 4).Value '"邮件内容"
arr = Split(Cells(rowCount, 5).Value, ";")
For n = LBound(arr) To UBound(arr)
.Attachments.Add (arr(n)) '邮件的附件
Next
.Send
End With
Set objMail = Nothing
梦见人民币Next
Set objOutlook = Nothing
MsgBox "邮件已发送", vbInformation
End Sub
第四步：执行宏
执行“开发工具→宏”，选择“sendmail”，点击“执行”，就会自动发送邮件，并且在发送完成后提示“邮件已发送”。
(此处最好选择当前工作簿)
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论