批量发送邮件excel，vba，outlook

使用注意事项：

VBA代码如下，编写`sendemail()`函数
在excel中使用这个函数，有四个参数，邮箱地址，邮件主题，邮件内容，邮件附件。
为了邮件内容在收件箱中有正常的邮件格式，需要修改为html格式，可以使用在线工具完成，如：https://www.iamwawa.cn/text2html.html
邮件附件可以是0-多个。按需在函数中定义，增加或删减filepath As String参数。
使用时，在函数所在单元格回车，可看到“发送成功”字样，邮件即发出。
发件人是outlook中的默认发件人。

VBA代码

添加参数(邮件地址，主题，内容，附件'
Public Function sendemail(sendto As String, subj As String, mbody As String, filepath As String)
    On Error Resume Next
    Dim oLApp As Object
    Dim oItem As Object
    '创建Outlook应用程序对象'
    Set oLApp = CreateObject("Outlook.application")
    ' 创建邮件对象'
    Set oItem = oLApp.createitem(0)
        
    With oItem
        .Subject = subj
        .To = sendto
        .HTMLBody = mbody
        '加上这一句就可以添加附件，需要几个附件就添加几个附件
        .Attachments.Add filepath
        .Send
        '判断是否发送成功’
        If Err.Number = 0 Then
            sendemail = "发送成功"
        Else
            '如果发送失败则返回失败原因'
            sendemail = "发送失败：" & Err.Description
        End If
    End With
    ' 清理对象'
    Set oLApp = Nothing
    Set oItem = Nothing
End Function

学习地址：
https://www.bilibili.com/video/BV1wr4y157B5/?spm_id_from=333.999.0.0&vd_source=c654521c8de482e881017110f8a3e0d4
https://www.bilibili.com/video/BV1zB4y1L7ir/?spm_id_from=333.999.0.0&vd_source=c654521c8de482e881017110f8a3e0d4
https://kimi.moonshot.cn/

Written with StackEdit中文版.