Daten eines einzelnen Tabellenblatt als Mail versenden (kein Dateianhang)

Hallo,

ich versuche gerade eine Excel Tabelle zu erstellen, in der der Nutzer eine Störungsmeldung aufgeben kann.

Dazu sollen über diverse Pull-Down Menüs die Informationen abgefragt werden.

Im Anschluss soll durch anklicken eines "Absendebutton" eine HTML-Mail erstellt werden und die Daten in den Textkörper eingefügt werden. Es soll kein Versand der Datei erfolgen!

Des Weiteren soll der Betreff aus einer bestimmten Zelle ausgelesen und gesetzt werden. (geht noch nicht)

So sieht es bis jetzt aus.

*
Sub Abschließen_Kommunikationsstörung()
Sheets("Störungsmeldung").Select
' Sheets("Störungsmeldung").PageSetup.PrintArea = "$A$1:$H$35" 'Dies ist der Bereich der kopiert werden soll)
ActiveWorkbook.SaveAs Filename:=Range("=Auswahl!G5") & Range("=Auswahl!G6") 'Störungsmeldung wird zusätzlich unter einem definierten Dateinamen gespeichert
ReDim fEmpfaenger(1 To 4)
fEmpfaenger(1) = Range("=Auswahl!E2")
fEmpfaenger(2) = Range("=Auswahl!E3")
fEmpfaenger(3) = Range("=Auswahl!E4")
fEmpfaenger(4) = Range("=Auswahl!E5")
Application.Dialogs(xlDialogSendMail).Show fEmpfaenger()
End Sub

Schön wäre es, wenn man auch zwischen Empfänger (An: und Cc unterscheiden kann. fEmpfaenger1 wäre als "An:" und die fEmpfaenger2 bis 4 sollen ins Cc:

Hat jemand hier einen Tipp für mich?

Office Version ist 2013

Vielen Dank!

Grüße
Stefan

Set MyOutApp = CreateObject("Outlook.Application")  
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = "Hier kommt die Adresse rein"  
.Subject = "hier der Betreff"  
.body = "Mein Text"  
.Display
'.Send 'Hier wird die Mail gesendet  

End With

Set MyOutApp = Nothing
Set MyMessage = Nothing

Sheets("Störungsmeldung").Range("A1:H35").Copy