As JKwan said all you need is to add the name

[vba]
sub mymailer()
ThisWorkbook.Sheets.Copy
Application.Dialogs(xlDialogSendMail).Show "myname.com"
End sub[/vba]


Ps.make sure you don't already have a mail window open

regards
qff