EXCEL VBAでメール添付して送信

こんにちは。
EXCEL　VBAで
自分のファイルをある宛先にメールで送信したい場合は、
どのようにしたらできますか？
どなたか、わかる方・・・教えてください。
よろしくお願いします。

No.2 ベストアンサー 回答者： hallo-2007 回答日時： 2008/08/21 19:24

参考のスレのVBAを必要な部分だけにすると以下になります。

準備
VBエディターのツール　参照設定で
Microsoft　Outlook　10.0 Object Library にチェックをいれます。
B3セルに　宛先　メールアドレス
F3セルに　CC　メールアドレス
C3セルに　件名
D3セルに　本文
G3セルに　添付ファイルのパスとファイル名
入れておいた場合です。

Sub ボタン1_Click()
Dim myOLApp As Object
Dim myDATA As MailItem
Set myOLApp = CreateObject("Outlook.Application")
Set myDATA = myOLApp.CreateItem(olMailItem)
myDATA.To = Range("B3").Value
myDATA.CC = Range("F3").Value
myDATA.Subject = Range("C3").Value
myDATA.Body = Range("D3").Value
myDATA.Attachments.Add Range("G3").Value
myDATA.Send
Set myDATA = Nothing
Set myOLApp = Nothing
End Sub

コピペして使ってみてください。コマンドの意味は先紹介のスレに
説明して有ります。

この回答へのお礼

ご回答ありがとうございます。
さっそく、やってみます。

お礼日時：2008/08/26 16:06

No.1 回答者： hallo-2007 回答日時： 2008/08/20 14:46

過去スレですが、参考になると思います。

http://oshiete1.goo.ne.jp/qa4218185.html

この回答へのお礼

ご回答ありがとうございます。
さっそく、拝見しましたが・・・
VBAでメール送信を試みようとすると、ソースコードを記述しようとすると
難しいのですね。
私にとって、高度で解読できないのですが・・・
もう少し簡単な方法はございませんか？

お礼日時：2008/08/21 10:01