Sub file_sendmail()
	ActiveWorkbook.SendMail recipients:="ちゅん"
	'アクティブなブックをちゅんに送信します。
	'ブックの内容はテキスト化され数式などは無視されます
End Sub

Cyber Click!