Excel VBA in Outlook-Termin - Ersetzen Sie Funktionsstriche Formatierung

Question

Ich versuche, ein Makro zu schreiben, das einen Platzhalter von Excel nach Outlook-Kalender sendet mit einem .oft Termin Vorlage.

Wenn die Funktion wie das Ersetzen mit:

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) 

Ernennung als Plain-Text herauskommt, werden alle Formatierungen gestrippt. Schriften, Links und sogar die Unterschrift.

Wenn ich den Wert .body zu .HTMLbody ändern, funktioniert die Ersetzungsfunktion nicht, Vorlage kommt nicht bearbeitet. Ich möchte den E-Mail-Inhalt nicht als Code in den Code einfügen, da sie sich manchmal ändern und ich das Makro jedes Mal anstelle der Vorlage bearbeiten würde.

Irgendwelche Vorschläge, bitte? Mir gingen die Ideen aus.

Answer 1

Die body-Eigenschaft von oMail ist reiner Text. RTFbody hat alle Formatierungen, aber es ist ein Byte-Array

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