VBA利用outlook发送邮件

最新推荐文章于 2026-03-27 03:41:49 发布

原创最新推荐文章于 2026-03-27 03:41:49 发布 · 2.5k 阅读

12 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#outlook #ui #前端

收录于

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

工具引用：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