| |
こう＠会社です。
メールの送信方法，メールソフトが記載されていないので，
「OUTLOOK+SendMail」という前提で回答します。
>Ｅｘｃｅｌファイルを２つ開いていて
>その２つのファイルすべてをメールで送信させたいのですが
>１つのファイルであれば、簡単なのですが
「SendMailは自分のBOOKファイルを送信」なんですよね。
２つ開いているなんら，それぞれの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
|
|
こう
- 03/4/17(木) 18:39 -
