Excel中用VBA实现Outlook发送当前工作簿

Excel中用VBA实现Outlook发送当前工作簿，首先按Alt+F11打开VBA编辑器，插入模块，并在工具-引用中勾选 Microseft Outlook .0 Object Library(其中为你Microseft Outlook的版本号。

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