Outlook予定内のExcel VBA - 機能ストリップの書式設定を置換する

Question

。予定テンプレートを使用してExcelからOutlookカレンダーにプレースホルダを送信するマクロを作成しようとしています。

ような置き換え機能使用：

Dim oMail as Object 
Set myOlApp = CreateObject("Outlook.Application") 

Set oMail = myOlApp.CreateItemFromTemplate(path) 

（...）

strFind = "Value" 
strNew = Cells(x ,y) 
oMail.body = Replace (oMail.body, strFind, strNew) 

予定が平文として出てくるが、すべての書式が削除されます。フォント、リンク、さらには署名。

.bodyの値を.HTMLbodyに変更すると、replace関数が機能せず、テンプレートが編集されずに出力されます。私は時々変化する電子メールのコンテンツをコードとして本文に入れたくないので、テンプレートの代わりに毎回マクロを編集できるようになります。

お願いします。 私は考えがなくなった。

Answer 1

oMailのbodyプロパティはプレーンテキストです。 RTFbodyは、すべての書式を持っていますが、それは最初にして、Word文書に交換を行い、空のWord文書にすべてをバイト配列

Dim oMail as Outlook.AppointmentItem 
Set myOlApp = CreateObject("Outlook.Application") 

Set oMail = myOlApp.CreateItemFromTemplate(path) 

Dim RegulareString As String 

'convert from byte array to a string 
RegulareString = StrConv(pushAppt.RTFBody, vbUnicode) 

'do your replacements 
RegulareString = Replace(RegulareString , strFind, strNew) 

'convert back to byte array 
Dim theBytes() As Byte 
theBytes = StrConv(RegulareString , vbFromUnicode) 

oMail.RTFBody = theBytes 
oMail.Display