Mailtext formatieren

[Klaus S. aus B]

Hallo zusammen,

ich hänge mal wieder.
Ich möchte aus einem Formular heraus ein Mail senden. Soweit alles klar.
Aber ich möchte den Text formatieren und finde nicht wie.

Folgenden Code habe ich:

Code [Auswählen] Erweitern

Dim Empfaenger, CCopy, Betreff, As String
Dim ool As Outlook.Application
Dim oMail As Outlook.MailItem
   
     ' Verweis zu Outlook + neue Nachricht
    Set ool = CreateObject("Outlook.Application")
    Set oMail = ool.CreateItem(olMailItem)

  ' Befreff-Zeile
  oMail.Subject = "Taxi: " & vollerName & " Hinfahrt: " & Taxh & "  Rückfahrt: " & Taxz
 
Empfaenger = "e@mail.com"
 
  ' An-Zeile (Empfänger)
  oMail.To = Empfaenger
  oMail.Display
 
  ' Texteingabe (Nachricht selbst)
   
  oMail.Body = "AUF RECHNUNG              " & vbCrLf & vbCrLf _
                     & "Kostenstelle: " & vbTab & OC & vbCrLf & vbCrLf & vbCrLf _            
                             & "Schöne Grüße" & vbCrLf & vbCrLf
               
  end sub


Das "Auf Rechnung" möchte ich fett und unterstrichen formatieren und den weiteren Text nur fett.

Kann mir jemand einen Tipp geben?

Gruß
Klaus

[el_gomero]

Moin Klaus,

also in solchen Fällen hilft eine Suchmaschine oft schnell weiter ... der erste Treffer mit den Suchbegriffen VBA+email+formatieren bringt beim Martkführer zB diesen link
  http://www.herber.de/forum/archiv/728to732/729317_Mail_aus_VBA_Formatierung.html

Bedenke aber dass manche Empfänger nur Plain-Text eingestellt haben und deine Formatierung dann ins Leere läuft.