在工作中，我们有时经常需要发送邮件，也是一件很繁琐的事情，今天教大家用Excel VBA实现一键轻松发送邮件。
VBA与EMAIL
一、准备工作
首先要清楚自己要发送的文件的路径。查看文件路径方法如下图：
路径
sheet3
二、编写代码
Sub SendEmail()
Dim OutlookApp As Outlook.Application
Dim OutlookItem As Outlook.mailItem
Dim sh As Worksheet
Set OutlookApp = New Outlook.Application
Set OutlookItem = OutlookApp.CreateItem(olMailItem)
Set sh = Sheets(3)
Receiver = sh.[b1].Value
SubjectText = sh.[b2].Value
BodyText = sh.[b3].Value
AttachedObject = sh.[b4].Value
On Error GoTo SendEmail_Error
With OutlookItem
.To = Receiver
.Subject = SubjectText
.Body = BodyText
If AttachedObject <> "" Then
.Attachments.Add AttachedObject
End If
.send
MsgBox "Sent sucessfully"
End With
SendEmail_Exit:
Exit Sub
SendEmail_Error:
MsgBox err.Description
Resume SendEmail_Exit
End Sub
代码说明：
为便于读者朋友阅读，代码的每一部分均用空行进行了分割，现对每一部分作简单说明，小白不用理解太多，照搬就行。
第一部分：定义变量
第二部分：变量赋值
第三部分：在Excel工作表中输入发送邮件的相关信息，并赋值给相关变量
第四部分：发送邮件
三、效果图
命令按钮
发送成功提示
本期内容就到这里，有不妥或不明白之处，请在评论区留言讨论，欢迎点赞、关注、收藏、转发。
