Sub file_sendfile()
	Application.Dialogs(xlDialogSendMail).Show "ちゅん", "Book1"
	'新規メールにファイルを添付して
	'ちゅんにBook1という件名で開きます。
End Sub