在工作中，我們有時經常需要發送郵件，也是一件很繁瑣的事情，今天教大家用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工作表中輸入發送郵件的相關信息，并賦值給相關變量
第四部分：發送郵件
三、效果圖
命令按鈕
發送成功提示
本期内容就到這裡，有不妥或不明白之處，請在評論區留言讨論，歡迎點贊、關注、收藏、轉發。
,更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
