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

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
相关推荐
丁德双13 小时前
winform 加载 office excel 插入QRCode图片如何设定位置
c#·excel
IT铺子15 小时前
Excel 个人时间管理工具
excel
zxguan21 小时前
EasyExcel 学习之 导出 “提示问题”
学习·excel
忘忧记21 小时前
Excel批量转换不规范数据的教程
excel
神奇夜光杯21 小时前
Python酷库之旅-第三方库Pandas(200)
开发语言·人工智能·python·excel·pandas·标准库及第三方库·学习与成长
火星技术1 天前
Excel快速转换文档word工具
word·excel
 嘘 1 天前
文件操作:Xml转Excel
xml·python·excel
Mr。轩。1 天前
cn.afterturn.easypoi.exception.excel.ExcelExportException: Excel导出错误 -> 修正过程。
java·excel·导出
大哇唧2 天前
python批量合并excel文件
开发语言·python·excel
IT铺子2 天前
Excel 数据分析高级建模指南
excel