|
こう@会社です。
メールの送信方法,メールソフトが記載されていないので,
「OUTLOOK+SendMail」という前提で回答します。
>Excelファイルを2つ開いていて
>その2つのファイルすべてをメールで送信させたいのですが
>1つのファイルであれば、簡単なのですが
「SendMailは自分のBOOKファイルを送信」なんですよね。
2つ開いているなんら,それぞれのBOOKで「SendMail」を実行すれば
送れますが・・・という意地悪な回答は止めて...
>複数ファイルだと・・・。
OUTLOOKなら「Microsoft Outlook Object Library」を使用すれば,
開いていないファイルを添付してメール送信できます。
'「ツール」→「参照設定」Microsoft Outlook 9.0 Object Library
Sub test_Outlook_Application()
Dim OLApp As Object
Dim MLitm As MailItem
Set OLApp = CreateObject("Outlook.Application")
Set MLitm = OLApp.CreateItem(olMailItem)
MLitm.To = メールアドレス
MLitm.Subject = "件名"
MLitm.Body = "本文"
MLitm.Attachments.Add "E:\temp\001.xls"
MLitm.Attachments.Add "E:\temp\002.xls"
MLitm.Attachments.Add "E:\temp\003.xls"
MLitm.Send
Set MLitm = Nothing
Set OLApp = Nothing
End Sub
|
|