05.04.2016, 12:17
Hallo,
ich habe in meinem Arbeitsblatt auf mehreren Tabellenblättern einen Sendenbutton mit diesem VBA-Code:
Private Sub CommandButton1_Click()
Dim strBlatt As String
Dim strDatei As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strBodyText As String
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
strPfad = "G:\"
strBlatt = ActiveSheet.Name
Sheets(strBlatt).Copy
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name
strDatei = ActiveWorkbook.FullName
With Mail
.Subject = "### Paketausgabe ###"
.BodyFormat = 2
.Attachments.Add strDatei
.Body = "ACHTUNG!" & vbCrLf & "Ausgabe jetzt auf Ebene 1!" & vbCrLf & " " & vbCrLf & "Hallo zusammen, bitte um telefonische Rücksprache, welche Gefangene heute vorgeführt werden können." & vbCrLf & "Bei Bedarf sind die Gefangenen im Arbeitsbetrieb zu holen und vorzuführen." & vbCrLf & "Für die Ausgabe im Spätdienst bitte auf 403 anrufen!"
End With
Workbooks(Dir(strDatei)).Close
Kill (strDatei)
Mail.Display
End Sub
Nun möchte ich gerne im Body das Wort "ACHTUNG" und "Ausgabe jetzt auf Eben 1" in rot darstellen,
bekomme das aber nicht hin.
Kann mir da einer ne Lösung bieten?
ich habe in meinem Arbeitsblatt auf mehreren Tabellenblättern einen Sendenbutton mit diesem VBA-Code:
Private Sub CommandButton1_Click()
Dim strBlatt As String
Dim strDatei As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strBodyText As String
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
strPfad = "G:\"
strBlatt = ActiveSheet.Name
Sheets(strBlatt).Copy
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name
strDatei = ActiveWorkbook.FullName
With Mail
.Subject = "### Paketausgabe ###"
.BodyFormat = 2
.Attachments.Add strDatei
.Body = "ACHTUNG!" & vbCrLf & "Ausgabe jetzt auf Ebene 1!" & vbCrLf & " " & vbCrLf & "Hallo zusammen, bitte um telefonische Rücksprache, welche Gefangene heute vorgeführt werden können." & vbCrLf & "Bei Bedarf sind die Gefangenen im Arbeitsbetrieb zu holen und vorzuführen." & vbCrLf & "Für die Ausgabe im Spätdienst bitte auf 403 anrufen!"
End With
Workbooks(Dir(strDatei)).Close
Kill (strDatei)
Mail.Display
End Sub
Nun möchte ich gerne im Body das Wort "ACHTUNG" und "Ausgabe jetzt auf Eben 1" in rot darstellen,
bekomme das aber nicht hin.
Kann mir da einer ne Lösung bieten?