如何用VBA实现EXCEL发邮件功能

1.添加引用Microsoft Outlook 11.0 Object Library。（这里用的是Microsoft Outlook
2003）

2.定义发送邮件过程。

Public Sub SendEmail(Receiver As String, SubjectText As String, BodyText As
String, AttachedObject As String)
Dim OutlookApp As
Outlook.Application
Dim OutlookItem As
Outlook.MailItem

Set OutlookApp =
New Outlook.Application
Set OutlookItem =
OutlookApp.CreateItem(olMailItem)

On Error GoTo
SendEmail_Error
With
OutlookItem
.To = Receiver
'收件人地址
.Subject = SubjectText
'邮件主题
.Body = BodyText
'邮件内容
.Attachments.Add
AttachedObject '粘贴附件
.Send
'发送邮件
End With

SendEmail_Exit:
Exit
Sub

SendEmail_Error:
MsgBox
Err.Description
Resume SendEmail_Exit
End Sub

只能通过outlook发邮件，需要的话可以留言求助