Ich hab hier einen Code und würde im Body-Text gerne nur den Platzhalter _______ im Satz ".... mit der MRN _______" rot markieren lassen, wenn der Verfasser die Email vervollständigt. Weiss jemand wie das geht?
Der Code:
Sub Mahnung_Click_FED()
Dim olApp As Object
Dim oDummyText As String
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.Subject = Now & ": offenes T1-Versandverfahren MRN: Fristablauf: _
.To = "Max.Mustermann@test.de"
.cc = "Max.Mustermann@test.de"
.GetInspector.Display
oDummyText = .HTMLBody
.BodyFormat = 1
.HTMLBody = "Sehr geehrte Damen und Herren,
bitte beachten Sie dringend, dass das T1- _
Versandverfahren mit der MRN ___________________ noch immer nicht ordnungsgemäß beendet worden ist und die Frist abläuft!
" & _
"
Bitte erledigen Sie umgehend diese Sendung und lassen uns eine Info zukommen.
" & _
"
Wenn Sie Fragen oder auch Unterstützung zu diesen Vorgängen haben, so können sie sich _
gerne an uns wenden.
" & _
"(Falls Sie die Sendung bereits erledigt haben, können Sie das Schreiben als gegenstandslos _
betrachten.)
" & _
"
Vielen Dank und freundliche Grüße,
" & .HTMLBody
End With
End Sub
Ich dank Euch schon Mal!
Liebe Grüße,
Andrea