Formated text lost in Body

  • Thread starter Thread starter E.Zenker
  • Start date Start date
E

E.Zenker

Hi
I have the code:

Sub Vorlage_aufrufen()
' Dim Vorlage
' Dim TextausVorlage
' Dim Adresse
'Set myOlApp = CreateObject("Outlook.Application")
' Set Vorlage = Application.CreateItemFromTemplate("C:\ *.oft")
' Vorlage.To = Item.Email1Address
' Vorlage.Subject = "Betreff reinschreiben"
' Vorlage.Attachments.Add "C:\...*.pdf"
' TextausVorlage = Vorlage.Body
' Adresse = Item.CompanyName'+ vbCr
' Adresse = Adresse + Item.BusinessAddressStreet + vbCr
' Adresse = Adresse + Item.BusinessAddressPostalCode + " "
' Adresse = Adresse + Item.BusinessAddressCity + vbCr +
vbCr
' Adresse = Adresse + Item.Title + " " + Item.LastName +
vbCr + vbCr
' Vorlage.Body = Adresse + TextausVorlage
' Text = "Guten Tag," + Item.Title + " " + Item.LastName + vbCr +
vbCr


'End Sub
I start this with a button in an OL Contact

When I put in the adress
Vorlage.Body = Adresse + TextausVorlage
the format of the text from the template is lost !!!

What must I do to keep the format of the text ??
is there a better or other way to do this?

Thanks for your suggestions.
E.Zenker
 
Back
Top