首页 动态 > 正文

vba 如何实现自动发送邮件 VBA之一键发送邮件

华夏看点网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工作表中输入发送邮件的相关信息,并赋值给相关变量

第四部分:发送邮件

三、效果图

命令按钮

发送成功提示

本期内容就到这里,有不妥或不明白之处,请在评论区留言讨论,欢迎点赞、关注、收藏、转发。

本文到此结束,希望对大家有所帮助。

郑重声明:本文版权归原作者所有,转载文章仅为传播更多信息之目的,如作者信息标记有误,请第一时间联系我们修改或删除,多谢。