Thema Datum  Von Nutzer Rating
Antwort
Rot MailItem mit RTF Format formatierten Text hinzufügen
 10.04.2017 17:12:19 MarcDirk
NotSolved

Ansicht des Beitrags:
Von:
MarcDirk		 Datum:
10.04.2017 17:12:19		 Views:
969		 Rating:
     
Antwort:
  Ja
Thema:
MailItem mit RTF Format formatierten Text hinzufügen

Hallo!

Ich habe folgendes Problem:

Mit diesem Code wird, sobald die Zeile „.HTMLBody = fHTML“ erreicht wird, das RTF Format auf HTML umgestellt. Das zerschiesst mir aber das Format (Tabellen) in der Darstellung. Wenn ich jedoch die gewünschten Änderungen manuell in Outlook vornehme, dann bleibt mein Layout erhalten.

Ich habe schon den RTFBody in ein String gewandelt, den RTF-Text entsprechend  modifiziert und wieder zurück in ein Bytearray gewandelt und dem RTFBody zugewiesen. Aber auch hier wird das Layout geändert (Tabellen sehen jetzt anders aus, zugehörige Datein stehen wieder ganz unten unter dem Text und nicht mehr wie zuvor an ausgewählter Position im Text). Derzeit bin ich ratlos. Anbei unten mein VBA Code. Hoffe hier gibt es einen kundigen Coder, der mir hier weiterhelfen kann. im voraus schon mal vielen Dank und Grüße an jeden, der mir hier weiterhilft.

Dim oApp As New Outlook.Application
Dim oExp As Outlook.Explorer
Dim oSel As Outlook.Selection
Dim oItem As Object
Set oExp = oApp.ActiveExplorer
Set oSel = oExp.Selection
Set Item = oSel.Item(1)

Set ForwardItem = Item.Forward
fHTML = Item.HTMLBody
Item.Save
Item.Close (olDiscard)
ForwardItem.Display
With ForwardItem
.Subject = Item.Subject & “ – !!! COMPLETION !!!“
fHTML = „<p><span style=““font-family:’Calibri‘;color: #ff0000;““>!!! COMPLETION !!!</span></p>“ & fHTML
.Save
.HTMLBody = fHTML
.To = Item.To
End With
ForwardItem.Save
ForwardItem.Close (olDiscard)

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot MailItem mit RTF Format formatierten Text hinzufügen
 10.04.2017 17:12:19 MarcDirk
NotSolved