Excelで作業終了時にメールを自動送信する方法

2008/09/16 11:16

このQ&Aのポイント

Excelで作業終了時に自動的にメールを送信する方法について教えてください。
Excel2003を使用しています。更新作業が完了したら自動的にメールを送信したいです。
メールの内容は、次の作業者をToに設定し、複数の人をCCに入れて、「作業が終わりました。次の作業をお願いします。」というメッセージを送りたいです。

poyo17
お礼率33% (21/62)

オフィス系ソフト
回答数5
ありがとう数0

みんなの回答 （5）
専門家の回答

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

ベストアンサー

hallo-2007
ベストアンサー率41% (888/2115)

2008/09/22 10:22 回答No.5

>「,」で区切ればいいんでしょうか？いいえ、";"で区切ります。過去のメール送信で、宛名の部分やｃｃの部分をコピィしても大丈夫だったと思います。ほか複数のセルにメールアドレス入れておいて myDATA.CC = Range("F3").Value+";"+Range("F4").Value+";"・・・とつないでも大丈夫でしょう。未確認ですが。

その他の回答 (4)

hallo-2007
ベストアンサー率41% (888/2115)

2008/09/19 23:01 回答No.4

ん～　おかしいですね。 >認識できない・・・とエラーが出て、デバックすると >「myDATA.Send」のところが黄色くなっています。こちらでも試しては見ましたが MS　OUTLOOKの・・・自動的に電子メールを・・・のメッセージは出ましたか？エラーメッセージが　「OUTLOOKが認識できない名前があります。」とかでしょうか？であれば、B3、F3にメールアドレスには使えない文字（全角など）が含まれていませんか？メールにはMS OUTLOOKを使用されていますよね？ OUTLOOK　EXPLESS　ではダメだと思います。ちなみに他方法でメール送信するには [メール送信（BASP21利用)] http://www.asahi-net.or.jp/~ef2o-nue/download/sub09_020_050.html [メール送信（CDO利用)] http://www.asahi-net.or.jp/~ef2o-nue/download/sub09_020_055.html の方法があります。

質問者

補足 2008/09/20 20:48

何度もご丁寧にすいません。会社でもう一度試してみます。ちなみに、CCの部分に複数アドレスを入力したい場合は「,」で区切ればいいんでしょうか？

hallo-2007
ベストアンサー率41% (888/2115)

2008/09/16 19:02 回答No.3

No1,No2です。もう一件添付ファイルが不要なので・・・ myDATA.Subject = Range("C3").Value myDATA.Body = Range("D3").Value 'myDATA.Attachments.Add Range("G3").Value myDATA.Send ・・・と 'myDATA.Attachments.Add の行は不要です。

質問者

補足 2008/09/18 15:37

お世話様です。チェックを入れたつもりが間違ったものにチェックをしてました。改めてチェックしなおして、やってみましたが・・・。認識できない・・・とエラーが出て、デバックすると「myDATA.Send」のところが黄色くなっています。

hallo-2007
ベストアンサー率41% (888/2115)

2008/09/16 18:37 回答No.2

No1です。準備 VBエディターのツール　参照設定で Microsoft　Outlook　10.0 Object Library にチェックをいれます。は設定していただいたでしょうか。 Outlookのツールを使用しますので。

hallo-2007
ベストアンサー率41% (888/2115)

2008/09/16 14:03 回答No.1

過去スレですが、参考にしてください。 http://oshiete1.goo.ne.jp/qa4264758.html 添付ファイルの部分をなしにすれば大丈夫かと思います。

質問者

補足 2008/09/16 14:46

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 を入れて実行したところ、「コンパイルエラー　ユーザー定義型が定義されていません」と出てしまいました。どうしたらいいでしょうか？？？