Excelbatt mit Outlook versenden

Sub TabellenblattVerschicken()
ActiveSheet.Copy
Application.Dialogs(xlDialogSendMail).Show _
"Chemielager-TWN.energy@siemens.com", "Bestellung an TWN-Chemielager! " & VBA.Date & " _ " &   _
_
VBA.Time
End Sub

Sub SetRecipients()
Dim aOutlook As Object
Dim aEmail As Object
Dim rngeAddresses As Range, rngeCell As Range
Set aOutlook = CreateObject("Outlook.Application")
Set aEmail = aOutlook.CreateItem(0)
'set Importance
aEmail.Importance = 2
'Set Subject
aEmail.Subject = "Bestellung an TWN-Chemielager! " & VBA.Date & " _ " & VBA.Time
'Set Body for mail
aEmail.Body = "Dies ist eine Bestellung, Bitte Bearbeiten."
'Set attachment
aEmail.ATTACHMENTS.Add ActiveWorkbook.FullName
'Set Recipient
aEmail.Recipients.Add "xxxxxx@.yyyycom"
'Send Mail
aEmail.Send
MsgBox ("Die Bestellung an das TWN-Chemielager wurde soeben automatisch versendet" & vbNewLine  _
_
& vbNewLine & "Die Bestellung wird so schnell wie möglich bearbeitet!"), vbOKOnly, " _
Materialanforderung TWN - Chemielager"
End Sub