メール送信

sub Eecel文書を添付でメール送信する（）

Application.Dialogs(xlDialogSendMail).Show

End　sub