版excel发邮件,添加多个不同的附件
    配置好Microsoft outlook邮件客户端,确保能正常收发邮件,具体的本文不再详述;
第二步:建立Excel文档
1umbrella歌词翻译、为保证后面的邮件发宏代码正确运行,需要执行“开发工具→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
国家法定节假日2021安排时间表Dim objMail As MailItem
Dim arr, n
endRowNo = Cells(1, 1). objOutlook = New
For rowCount = 2 To endRowNo
  解绑手机号Set objMail = (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)
            . (arr(n))      '邮件的附件
        Next
        .Send
    End With精致的早安图片大全
    Set objMail = Nothing
Next
Set objOutlook = Nothing
MsgBox "邮件已发送", vbInformation
End Sub
步:执行宏
执行“开发工具→宏”,选择“sendmail四级 听力”,点击“执行”,就会自动发送邮件,并且在发送完成后提示“邮件已发送”。
(此处最好选择当前工作簿)

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