VBA利用outlook发送邮件

最新推荐文章于 2024-08-21 11:40:48 发布

..H先生..

最新推荐文章于 2024-08-21 11:40:48 发布

阅读量1.4k

点赞数 8

文章标签： outlook ui 前端

本文链接：https://blog.csdn.net/m0_62417166/article/details/135917973

版权

该篇文章详细描述了一个使用VBA编写的Outlook16.0ObjectLibrary的示例代码，演示如何通过宏功能发送带有附件的电子邮件，包括设置收件人、抄送、主题和文件路径。

摘要由CSDN通过智能技术生成

工具引用：Microsoft Outlook 16.0 Object Librar

示例代码：

Attribute VB_Name = "模块1"
Option Explicit
Sub sendEmail()
    Dim objOutlook As Outlook.Application
    Dim objMail As MailItem
    Dim strFilePath As String

    Set objOutlook = New Outlook.Application '创建objOutlook为Outlook应用程序对象
    Set objMail = objOutlook.CreateItem(olMailItem)  '创建objMail为一个邮件对象
    
    With objMail
        .To = "xxx@xxx.com"        '收件人
        .CC = "xxx@xxx.com"      '抄送
        .Subject = "this is a test"        '标题
        .Body = "Test for auto send email"           '正文
        ' 获取当前工作目录路径
        strFilePath = ThisWorkbook.Path & "\test_import.txt"
        .Attachments.Add strFilePath,olByValue, 1, "4th Quarter 1996 Results Chart"  '附件   
        .Save               '保存为草稿
        .SentOnBehalfOfName  = "xxx@xx.com"  '发送人
        ' .Send                  '发送
    End With
    Set objMail = Nothing
    Set objOutlook = Nothing
End Sub