tabelle als mail - Laufzeitfehler 1004

ich möchte ein Tabellenblatt mit Outlook versenden und habe u.g. Code versucht. Leider bekomme ich dann immer einen Laufzeitfehler 1004, sobald ich auf Mail senden clicke. Bis dahin funktioniert alles. Woran könnte das liegen?

Private Sub CommandButton2_Click()

Dim WB As Workbook
Dim E$, B As String
E = InputBox("Email Adresse")
B = "Vermögensaufstellung"
Sheets("Vermögensaufstellung").Select
Sheets("Vermögensaufstellung").Copy
Set WB = ActiveWorkbook
ActiveWorkbook.SaveAs ("copy_" & B & ".xls")
Application.Dialogs(xlDialogSendMail).Show E, B
ActiveWorkbook.Close
End Sub