三、发邮件的VBA代码。

感兴趣的童鞋们可以复制以下代码按上面的操作试一试。

'发送邮件函数 sendto收件人多个用英文分号链接 subj邮件主题 mbody邮件正文 filepath附件路径 Public Function sendmail(sendto As String, subj As String, mbody As String, filepath As String) On Error Resume Next Dim oLapp As Object Dim oItem As Object 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 sendmail = "发送成功" Else '如果发送失败则返回失败原因 sendmail = "发送失败:" & Err.Description End If End With Set oLapp = Nothing Set oItem = Nothing End Function

四、保存我们定义的邮件函数。

1. 如果你的Excel是2007及以上版本的，保存的时候会出现如下提示。
2. 保存时请选择启用宏的工作簿即可。

补充说明：

2007版本及以上的Excel为了保证安全性,强制了含VBA代码的专用文件格,常用存为xlsm格式。

2003版本的Excel,后缀是xls的Excel文件可以直接存储VBA代码,不需要另存为其他格式。

如有疑问欢迎小伙伴们点关注,共同探讨学习。