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
相关推荐
Tomorrow'sThinker5 小时前
[特殊字符] Python 批量生成词云:读取词频 Excel + 自定义背景 + Excel to.png 流程解析
python·excel
UrbanJazzerati9 小时前
Excel 使用中的“坑”:拆分与合并列的陷阱及解决方案
excel
KeThink21 小时前
国民经济行业分类 GB/T 4754—2017 (PDF和exce版本)
pdf·excel
_oP_i1 天前
Excel 的多线程特性
excel
V1ncent Chen1 天前
Excel基础:数据查看
excel
谁他个天昏地暗1 天前
Java 实现 Excel 文件对比与数据填充
java·开发语言·excel
梦想blog1 天前
Spring Boot + Easy Excel 自定义复杂样式导入导出
excel
UrbanJazzerati2 天前
使用Excel制作多类别占比分析字母饼图
excel
The Future is mine2 天前
Python实现文件夹中文件名与Excel中存在的文件名进行对比,并进行删除操作
excel
Tomorrow'sThinker2 天前
[特殊字符] Excel 读取收件人 + Outlook 批量发送带附件邮件 —— Python 自动化实战
python·excel·outlook