Mailenvelope und Hintergrundfarbe
01.02.2017 10:03:52
japes36
ich google mir bereits nen Wolf...wie verdammt nochmal kann man bei Nutzung von Mailenvelope zum Versenden einer Excelrange per Mail (aus einem schreibgeschütztem Sheet und freigegebener Mappe) die Hintergrundfarbe ändern. Am liebsten noch "linksausgerichtet", da standardmässig immer zentriert. Hintergundfarbe wäre aber wichtiger, da immer in Schweinchenrosahintergrund beim Empfänger ankommt.
Der Code sieht im Moment so aus:
Sub Send_OriginalRange_from_Excel()
Application.ScreenUpdating = False
Range("A6:B28").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.xlThemeColorDark1
.Item.Subject = Sheets("10A").Cells(6, 1)
.Introduction = "Das ist der Einleitungstext." & vbCrLf & "mit einer zweiten Zeile"
.Item.To = "jan.petras@dm.de"
.Item.Send
End With
ActiveWorkbook.EnvelopeVisible = False
Range("F4").Select
Application.ScreenUpdating = True
End Sub
Vielen Dank für die Unterstützung
Anzeige