EXCELを添付ファイルにするマクロ

質問

Sheet1のA1に顧客のメールアドレスが入っています
Sheet2にその顧客に送りたいデータが入っています
A1のあて先にそのファイルを添付してメール送付するマクロを組もうとしているのですがうまくいきません。
顧客が100件以上あるので、このマクロができれば間違いもなく大助かりです。
メーラーのソフトはOUTLOOK2000です
どのようにしたらいいか是非アドバイスを！

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

とりあえず、基本的な添付ファイル付きメールの送信方法です。

Sub 添付ファイル付きメール送信()

　　Dim oApp As Object
　　Dim objMAIL As Object

　　Set oApp = CreateObject("Outlook.Application")

　　Set objMAIL = oApp.CreateItem(0)

　　objMAIL.To = "yyyy@xxx.co.jp"
　　objMAIL.Subject = "件名"
　　objMAIL.Body = "本文"

　　objMAIL.Attachments.Add "添付ファイルのフルパス"

　　'送信
　　objMAIL.Send

　　Set objMAIL = Nothing
　　Set oApp = Nothing

End Sub

Sheet1のリストの顧客に全部同じ内容のファイルを添付するのでしょうか？
それなら、まずSheet2の内容を別のファイル（Excelでもテキストでもいい）で保存して、それを上記コードの「添付ファイルのフルパス」にセットして下さい。
あとは、Sheet1のメールアドレス分ループさせて、上記のメールアドレス（objMAIL.To）に次々にセットして実行していけばいいと思います。

最後にOutlookVBAに関する参考サイトをいくつか紹介しておきます。
（OutlookのVBAのヘルプも参照して下さい。）

http://www.h4.dion.ne.jp/~asaip/oltop.htm
http://www2s.biglobe.ne.jp/~SATSYS/zzz.htm
http://www.ken3.org/cgi-bin/group/vba_outlook.asp
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/modcore/html/deovrunderstandingapplicationnamespaceobjects.asp

お礼

ありがとうございました
うまくうごきました
出張中だったもので、お礼が遅れスミマセン