私はこのコードをMS Accessで使用して、保存されたHTML Outlookテンプレートを開きます。このコードでは、電子メールの本文で「SALUTATION」が検索され、フォームの制御データに置き換えられます。コードがOutlook電子メールテンプレートの書式設定を失う
それはうまくいくが、書式設定されたテキスト、複数のリンク、いくつかの画像を含む電子メールのフォーマットは失われる。
元の書式を維持するためにコードを変更するにはどうすればよいですか?
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
は、あなたが(メール本文の平文表現です)MyItem.HTMLBody
、ないMyItem.Body
を編集する必要があなたに
を参照してください。 "、値) ' と ' MyItem.HTMLBody = Replace(MyItem.HTMLBody、" SALUTATION "、value) ' しかし、私は' MyItem.HTMLBody = Replace(MyItem.HTMLBody、" SALUTATION "、value ) ' –
@UbuWannaBe:価値がある読書:[VBAコードのデバッグ](http://www.cpearson.com/excel/DebuggingVBA.aspx)。 - そして答えがあなたの問題を解決したなら、あなたはそれを受け入れることができます(これは解決されたものとして質問もマークします)。 – Andre