Sub send_mail()Dim ObjOL As ObjectDim itmNewMail As ObjectSet 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).SendEnd WithEnd Sub
第4行：使用后期绑定创建outlook对象
第5行：创建邮件
第8行：设置邮件主题
第9行：设置文件正文
第10行：将本工作簿添加为附件
第11行：设置收件人，注意多个收件人使用分号分隔，工作簿的SendMail方法是使用一维数组
第12行：设置发送邮件的邮箱，也可不设置，默认第一个
第13行：发送邮件
下面我们来看看效果:
好了，本期教程就到这里啦，走过路过的点个关注分享一下吧，谢谢啦
