Format aus Excel in Email beibehalten
06.03.2015 09:33:14
Christian
ich habe in "U1" einen Text, der formatiert ist. Diesen möchte ich gerne per Mail verschicken - mit dem gleichen Format. Wenn ich den Makro starte, übernimmt er aber das Format aus Excel nicht in der Email.
Kann mir jemand helfen?
Hier der Code und vielen Dank im Voraus:
Sub AUTOMATISIERTE_EMAIL()
Dim olApp As Object
Dim WsShell
Set olApp = CreateObject("Outlook.Application")
Set sAdress = Range("D4")
Set sSubject1 = Range("A4")
Set sSubject2 = Range("M4")
sBody = Range("U1").Value
Dim IntZeile As Integer
For IntZeile = 4 To 5000
If Cells(IntZeile, 11) = "OK" Then
With olApp.CreateItem(0)
.To = sAdress.Offset(IntZeile - 4, 0).Value 'Empfänger"
.Subject = " Die Opportunity " & sSubject1.Offset(IntZeile - 4, 0).Value & " endet am: " & _
sSubject2.Offset(IntZeile - 4, 0).Value 'Betreff
.Body = sBody 'Nachricht
.ReadReceiptRequested = False 'Lesebestätigung aus
.Display 'Email anzeigen
End With
End If
Next
End Sub
Anzeige