Excel中用VBA实现Outlook发送当前工作簿,首先按Alt+F11打开VBA编辑器,插入模块,并在工具-引用中勾选 Microseft Outlook .0 Object Library(其中为你Microseft Outlook的版本号。
vbnet
Sub 发送邮件()
'保存当前excel
ThisWorkbook.Save
'让excel连接outlook 要将工具/引用中的Microseft Outlook *.0 Object Library(其中*为你Microseft Outlook的版本号)选上
Dim 信差 As Outlook.Application
Set 信差 = New Outlook.Application
'创建邮件实例
Dim 新邮件 As MailItem
Set 新邮件 = 信差.CreateItem(olMailItem)
'获取当前工作簿完整路径
Dim filePath As String
filePath = ThisWorkbook.FullName
'MsgBox filePath
With 新邮件
'设置收件人地址
.To = ""
'设置抄送收件人地址
.CC = ""
'设置邮件主题
.Subject = ""
'设置邮件内容
.Body = ""
'设置附件
.Attachments.Add (filePath)
'显示UI
'.Display
'发送邮件
.Send
End With
' 清理
Set 新邮件 = Nothing
Set 信差 = Nothing
End Sub