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:
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
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.