Excel vba 调用outlook发送邮件

icebergtip

已于 2022-05-09 23:44:31 修改

阅读量3.9k

点赞数 2

分类专栏： Excel 文章标签：开发语言

于 2022-05-09 20:24:04 首次发布

本文链接：https://blog.csdn.net/icebergtip/article/details/124674199

版权

Excel 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

由于平时工作内容需要邮件发送，发送之前先使用excel编辑好，然后发送，这样发送邮件比较耗时，因此在网上找了相应代码，学习后进行简单改变，将Excel表的最后一行用邮件发送。

前提是要安装并登录outlook账号，使用的Microsoft Office，WPS没有试成功。另外文档格式需要修改为“.xlsm”且需要启用宏。

Excel的内容

代码如下：

Sub Mail()
 Dim Mail As Outlook.Application
   
    Set Mail = New Outlook.Application
    Dim objMail As Outlook.MailItem
    Set objMail = Mail.CreateItem(olMailItem)
    
    Dim lastLine As String '定义变量
    lastLine = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row '最后一行
    
    With objMail
        .Subject = Sheet1.Cells(lastLine, 1)  '主题
        .To = Sheet1.Cells(lastLine, 3)  '收件人
        .BodyFormat = olFormatHTML
        .HTMLBody = Sheet1.Cells(lastLine, 2) '正文 .Attachments.Add "D:\RunLog.txt"     '附件
        
        .Send '执行发送
    End With

End Sub