- ベストアンサー
Outlook2000でメールの自動送信方法
- Outlook2000でのメール自動送信方法について教えてください。
- Excelファイルを添付し、個別のメール本文を送信したいです。
- Windows2000、Excel2000、Outlook2000を使用しており、VBAも少し理解しています。
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (3)
- nicotinism
- ベストアンサー率70% (1019/1452)
単なるSMTPサーバでしたら私でも分かるかなと考えてましたが Exchange Server は全く解りませんので、調べてみましたが WEB上でも「これだ！」いう記述は・・・ 役立たずで申し訳ない。 こちらを閉じて、下記でご相談されては？ http://www2.moug.net/bbs/exvba/ 前々回参照リンクの方も顔を見せるようですので。 下記内容を拡張子.VBS でコピペ保存して（例 送信実験.VBS) 実行(ダブルクリックで)してもエラーに なりますよね？動けば何とかなるかもしれないけど・・・ 実験できる環境に無いので・・ Set oMsg = CreateObject("CDO.Message") oMsg.From = "○○" '○○に両方ともご質問者のメールアドレス oMsg.To = "○○" oMsg.Subject = "Test " oMsg.TextBody = "テストメッセージです" & vbCrLf & Now oMsg.AddAttachment "d:\book1.xls" '適当なファイルのフルパス oMsg.Send
お礼
ありがとうございます。 VBSためしました。「デバイスが準備できていない」というエラーになりました。 Exchange Serverってなんなんですか？
- nicotinism
- ベストアンサー率70% (1019/1452)
OutLook でもOutLook Express でもアカウントの設定の際に 送信サーバを設定してあるはずなのですけど？ ツール → アカウント 既存の電子メールアカウントの表示と変更にだけチェックが入っているのを確認して 次へ 新たな表示に切り替わるので、変更を選択するとサーバー情報が確認できますので 値をコピー。 アカウントの設定はキャンセルして終了 解らなければシステムの担当者にお問い合わせください。 実験は、まずお隣の人とか自身宛のメールで試してみてください。
お礼
ありがとうございます。 メールサーバーは、Micorsoft Exchange Server だそうで、名前は@はつかず、アルファベット4文字＋数字2桁＋アルファ別途1文字でした。 これをCells(1,2)に入れましたが、 「-2147220973 The transport failed to connect to the server」となってしまいます。
- nicotinism
- ベストアンサー率70% (1019/1452)
OutLook にしろ OutLook Express にしろ セキュリティ上の問題かと思いますが、 いちいち確認させられますので、 BASP21 か CDO を使って送信されては如何でしょう？ CDOでメール送信 http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_800_080.html 配信リストを使ってメールをいっせいに配信する http://www.atmarkit.co.jp/fwin2k/win2ktips/301mailist/mailist.html テンプレートを元に複数のメールを一括配信する http://www.atmarkit.co.jp/fwin2k/win2ktips/401tmplmail/tmplmail.html
お礼
さっそくありがとうございます。 「CDOでメール送信」というのが役立ちそうです。 すいませんが、ここで指定する、「SMTPサーバー名」はどこで取得できますか？
お礼
ありがとうございました。