使用VBA操作Outlook自动发送邮件

如果我们不需要写正文，只需要将某个工作簿作为附件发送文件，那么操作非常简单。直接使用工作簿方法SendMail就可以，具体操作如下：

Sub send_mail()
    Dim ObjOL As Object
    Dim itmNewMail As Object
    Set ObjOL = CreateObject("Outlook.Application")
    Set itmNewMail = ObjOL.CreateItem(olMailItem)

    With itmNewMail
        .Subject = "测试邮件"
        .Body = "这是一封测试邮件XXXXXXXXXX" & Chr(10) & "测试邮件"
        .Attachments.Add ThisWorkbook.FullName
        .To = "1120788721@qq.com;jaresfzz@163.com"
        .SendUsingAccount = ObjOL.Session.Accounts.Item(1)
        .Send
    End With
End Sub

第4行：使用后期绑定创建outlook对象
第5行：创建邮件
第8行：设置邮件主题
第9行：设置文件正文
第10行：将本工作簿添加为附件
第11行：设置收件人，注意多个收件人使用分号分隔，工作簿的SendMail方法是使用一维数组
第12行：设置发送邮件的邮箱，也可不设置，默认第一个
第13行：发送邮件