こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

投稿日時 - 2005-03-10 15:43:10

QNo.1261338

すぐに回答ほしいです

質問者が選んだベストアンサー

こんにちは。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

投稿日時 - 2005-03-10 16:29:10

お礼

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

投稿日時 - 2005-03-31 10:45:40

このQ&Aは役に立ちましたか?

5人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問