Satz in EMail rot darstellen - VBA
29.11.2022 16:52:42
Mani
ich möchte einen bestimmten Satz (Bitte um regelmäßigen Gegencheck!) in einer E-Mail rot darstellen und alles andere soll schwarz bleiben.
Vielen Dank!
Gruß
Mani
Folgend der Code
Sub e_Mail()
Dim strPDF As String
Dim OutlookApp As Object, strEmail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set strEmail = OutlookApp.CreateItem(0)
Call Bereich_kopieren_PDF
strPDF = ThisWorkbook.Path & "\" & "\Kartei.pdf"
With strEmail
.To = "xyz@gmail.com"
.Subject = "Kartei"
.Body = "Liebe Sabine," & vbCrLf & vbCrLf & "im Anhang finden Sie die aktuelle Kartei." & vbCrLf & vbCrLf & "Bitte um regelmäßigen Gegencheck!" & vbCrLf & vbCrLf & _
"Mit freundlichen Grüßen" & vbCrLf & vbCrLf & "Admin" & vbCrLf & "Dies ist eine automatisch generierte Nachricht." & vbCrLf & Date & "-" & Time
.Attachments.Add strPDF
.Display
Kill strPDF
End With
Set OutlookApp = Nothing
Set strEmail = Nothing
Workbooks("Kartei.xlsx").Close SaveChanges:=True
End Sub