华夏看点网09月03日小杨来为大家解答以上问题,vba,如何实现自动发送邮件,VBA之一键发送邮件很多人还不知道,现在让我们一起来看看吧!
在工作中,我们有时经常需要发送邮件,也是一件很繁琐的事情,今天教大家用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工作表中输入发送邮件的相关信息,并赋值给相关变量
第四部分:发送邮件
三、效果图
命令按钮
发送成功提示
本期内容就到这里,有不妥或不明白之处,请在评论区留言讨论,欢迎点赞、关注、收藏、转发。
本文到此结束,希望对大家有所帮助。