论坛 › 邮件服务 › Outlook 2010 从磁盘读取一个HTML文件作为Email的Body

zhoujun.g 发表于 2015-9-14 11:45:22

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

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
　　




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

查看完整版本: Outlook 2010 从磁盘读取一个HTML文件作为Email的Body