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
相关推荐
我命由我123452 小时前
Word - Word 的 5 种视图(页面视图、阅读视图、Web 版式视图、大纲视图、草稿视图)
ui·word·excel·photoshop·表格·ps·美工
YAY_tyy2 小时前
基于 Vue3 + VueOffice 的多格式文档预览组件实现(支持 PDF/Word/Excel/PPT)
前端·javascript·vue.js·pdf·word·excel
一路向北North3 小时前
apache poi 导出复杂的excel表格
apache·excel
toooooop85 小时前
Excel随机金额或数字分配方法
excel
cngkqy6 小时前
excel中筛选条件,数字筛选和文本筛选相互转换
excel
Hello 0 16 小时前
用计算思维“破解”复杂Excel考勤表的自动化之旅
自动化·excel·ai编程·计算思维
我命由我1234513 小时前
Excel 表格 - Excel 减少干扰、专注于内容的查看方式
学习·ui·excel·photoshop·表格·ps·美工
北风toto13 小时前
excel数字转文本样式不生效问题
excel
我命由我1234513 小时前
Excel 表格 - Excel 单元格添加边框
学习·ui·excel·课程设计·photoshop·ps·美工
admin⁠13 小时前
php 实现 导入excel 带图片导入
php·excel