Question

我在MS Access中使用此代码打开已保存的HTML Outlook模板。代码搜索＆＃34; SALUTATION＆＃34;在电子邮件的正文中，用我的表单中的控件数据替换它。

效果很好但是，我丢失了电子邮件格式，包括格式化文本，多个链接和一些图像。

如何更改代码以保留原始格式？

Private Sub Command139_Click()
Dim myOlApp As Outlook.Application
Dim MyItem As Outlook.MailItem
Dim value As String
    value = Me.Salutation & " " & Me.LastName
        Set myOlApp = CreateObject("Outlook.Application")
    Set MyItem = myOlApp.CreateItemFromTemplate("C:\Users\Meiaer\AppData\Roaming\Microsoft\Templates\ELMOVM.oft")
        MyItem.Display
    With MyItem
        .To = Me.EMAIL_ADDRESS
        MyItem.Body = Replace(MyItem.Body, "SALUTATION", value)
   End With
Set MyItem = Nothing
Set myOlApp = Nothing
End Sub

谢谢

Answer 1

您需要修改MyItem.HTMLBody，而不是MyItem.Body（这是邮件正文的明文代表）。

请参阅https://technet.microsoft.com/en-us/library/ff868941(v=office.14).aspx

代码丢失Outlook电子邮件模板格式

1 个答案: