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
相关推荐
开心点幸运点5 小时前
Excel——宏教程(1)
excel
boy快快长大14 小时前
将大模型生成数据存入Excel,并用增量的方式存入Excel
java·数据库·excel
Leuanghing15 小时前
使用Python生成F分布表并导出为Excel文件
开发语言·python·excel·f分布
爱编程的小生15 小时前
Easyexcel(4-模板文件)
java·excel
今日之风甚是温和16 小时前
【Excel】拆分多个sheet,为单一表格
java·excel·sheet·vb宏
如意机反光镜裸16 小时前
Excel如何批量导入图片
excel
滨HI01 天前
python中Pandas操作excel补全内容
python·excel·pandas
Leuanghing1 天前
使用Python生成卡方分布表并导出为Excel文件
python·excel·pandas·scipy·卡方分布表
叮当喵是mao1 天前
python基础知识(七)——写入excel
android·python·excel
阿呆5912 天前
使用 Excel 的功能来快速在 TXT 文件中添加一列零
excel