Outlook 2010 从磁盘读取一个HTML文件作为Email的Body

最新推荐文章于 2025-07-10 15:50:42 发布

原创最新推荐文章于 2025-07-10 15:50:42 发布 · 2.4k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#email #html #磁盘 #2010 #object #string

Outlook 2010 同时被 2 个专栏收录

30 篇文章

订阅专栏

VBA

23 篇文章

订阅专栏

本文介绍了如何使用VBA宏将HTML文件内容转换为Outlook邮件正文，并通过邮件进行发送的过程。

Sub ReadHTMLToMailBody()
    Dim objMailItem As Outlook.MailItem
    Dim objFileSystem As Object
    Dim objFileInfo As Object
    Dim objStream As Object
    Dim strSourceCode As String
    
    Set objMailItem = Application.CreateItem(olMailItem)
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFileInfo = objFileSystem.GetFile("C:****\***.html")
    Set objStream = objFileInfo.OpenAsTextStream(1, -2)
    strSourceCode = objStream.ReadAll
    objMailItem.HTMLBody = strSourceCode
    objMailItem.Display
    
    Set objMailItem = Nothing
    Set objStream = Nothing
    Set objFileInfo = Nothing
    Set objFileSystem = Nothing
End Sub

欢迎访问我的主博客《许阳的红泥屋》