Office: Excel Mail versenden

Guten Abend Zusammen,

ich habe ein kleines Problem:

Bei einem Status den ich jeden tag versenden muss hab ich dies via VBA geschafft.
Allerdings sendet er meine "Ampel" nicht mit und diese "Ampel" ist der sinn und zweck dieser Tabelle :)

Ausgangssituation:


beim drücken auf den Knopf:

Code:

Sub Status_60()
Range("A1:H37").Select
    ActiveWorkbook.EnvelopeVisible = True
    With ActiveSheet.MailEnvelope
        
        .Item.Subject = " Status " & Date
        .Introduction = "Hallo dies ist ein Test."
        .Item.To = "xxxxxxxx@xxx.de"
        .Item.CC = " xxxxxxxx@xxx.de; xxxxxxxx@xxx.de "
        .Item.Send
    
    End With
    ActiveWorkbook.EnvelopeVisible = False
End Sub

und so kommt die mail an:



leider ohne dieses Ampel Symbol

genutzt wird Excel 2010



Vielen Dank schonmal


Gruß Daniel