Excel VBA в Outlook Appointment - Заменить форматирование функциональных полос

Question

Я пытаюсь написать макрос, который отправляет местозаполнитель из Excel в Outlook Calendar, с использованием .0000 .

При использовании функции замены так:

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, функция замены не работает, шаблон выходит неотредактированным. Я не хочу помещать содержимое электронных писем в тело в код, поскольку они меняются иногда, и это заставит меня редактировать макрос каждый раз, а не шаблон.

Любые предложения, пожалуйста? У меня кончились идеи.

Answer 1

Собственность тела oMail - это простой текст. RTFbody имеет все форматирование, но это байтовый массив

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