エクセルからのメール送信

質問

初めまして
宜しくお願いします。

会合で毎週資料をエクセルにて作成しております。
作成後、各関係者へ送付するのですが、簡単に
エクセル上からマクロなどでその作成したドキュメントを
送付する（e-mail)方法　（マクロなど）はありませんでしょうか？

会合の後、ドキュメント作成は各人の持ち回りですので、簡単な方法が
あればと思っております。
使用するＰＣは同じで同じ環境です。（発信のメールアドレスも同じです。）

以上　アドバイスを頂ければ幸いです。

回答No.1

hallo-2007 · ベストアンサー

方法は、沢山あります。
検索すると　Basp21などを使う方法が多くあるようですが
私なりには、既にインストールされているはずの
OutLookを使い方法がわかりやすいとおもいます、
一例ですが
http://www.ken3.org/vba/backno/vba055.html
にありますコードを修正してみました。
　　B2セルに　メールアドレス
　　C2セルに　件名
　　D2セルに　本文
　　E2セルに　添付ファイルへのパスとファイル名を入れてあるとします。

Sub ボタン1_Click()
Set oApp = CreateObject("Outlook.Application")
Set objMAIL = oApp.CreateItem(0) 'olMailItem=0

objMAIL.To = Range("B2").Value '宛先
objMAIL.Subject = Range("C2").Value '件名
objMAIL.Body = Range("D2").Value '本文の代入
　　objMAIL.Attachments.Add Range("E2").Value

objMAIL.Send '直接送信箱行き ※警告メッセージ出ます。

End Sub

となります。
同様に、VBEのツール＝＞参照から
Microsoft OlutLook XX.X Object Library
にチェックをいれて、OutLookのVBAを使えるようにする方法もあります。

お礼

有難うございます。挑戦してみます。