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

締切り済みの質問

Outlook VBAで「返信先の指定」を行いたい

当方、Exchange 2003 (Win 2003) + Outlook 2003 or 2010 (Win XP or Win7)を利用しています。

特定のメールアドレス(例:sample@hoge.com)宛てにメールを受信した際に自動で、「返信先の指定」(例:reply@hoge.com)を行ったメールを作成、送信したいのですが実現方法が分からず難儀しており、
有識者の方のお知恵を拝借したくお願いいたします。

Outlook VBA にて件名や本文を自動で入力するマクロは作成できましたが、「返信先の指定」の実現方法が分からないです。

また、上記が実現できた後、自動送信は仕訳ルールにて、「スクリプトの実行」か「アプリケーションの開始」にてマクロを動かせば良いのではないかと考えていますが、その後の方針としてはこれで実現できますでしょうか?

投稿日時 - 2012-07-30 19:46:23

QNo.7618754

困ってます

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

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

回答(1)

ANo.1

標準モジュールに例えば次のように登録しておきます
#返信内容等(本文等)は適宜修正の事


sub customreplyrule(objItem as mailitem)
 dim objMail as mailitem

’スクリプトをトリガしたメールアイテム(objItemに格納)に対するアクションを記述する
 set objmail = objitem.reply

’返信先を登録し直す
 with objmail
 do while .replyrecipients.count > 0
  .replyrecipients.remove 1
 loop
 .replyrecipients.add "DAMMY_REPLY_ADDRESS@hoge.jp"

 .send
 end with
end sub


自動仕分けのスクリプトとして設定します。

投稿日時 - 2012-07-31 01:43:43

補足

keithin 様

早速のご回答ありがとうございます。
ご教示頂きました内容を実行してみましたが、小生の技量不足・質問内容が悪かった為、思い通りの結果にならず"DAMMY_REPLY_ADDRESS@hoge.jp"宛てのメールが作成・送信されてしまう結果になりました。
お手数ですが、再度、ご教示頂けますと幸いです。


実施したい内容をもう少し具体的に記載させていただきます。

Aさんの携帯電話(A-san@keitai.jp)から特定の会社アドレス(kaisya@hoge.jp)に空メールを送信すると、「件名:テストメール」・「本文:hogehoge」・「送信元:from-addr@hoge.jp」・「送信先:to-addr@hoge.jp」の内容のメールを作成・送信したいと考えています。
送信元の変更が出来ない場合、送信元はAさんの携帯電話(A-san@keitai.jp)のままにしておき、Outlookの「返信先の指定」のようなそのメールに返信する際に返信先を自動で変更するようにしたいとも考えています。

-----
背景としては、大規模災害発生時に社員の安否確認を行うための仕組みを作成したいと考えている次第で、安否確認者(上述のAさん)が安否確認用のアドレス(上述のkaisya@hoge.jp)にメールを送信すると、登録者全員に安否確認のメールが送信され、登録者が返信専用アドレス(上述のfrom-addr@hoge.jp)に安否状況を返信する事で、安否情報の管理者(Bさん)に安否情報が送信されるような仕組みを実現したいと考えています。

災害時を想定して、極力、確認者も登録者も簡単に(少ない作業で)実現できるようにしたいと考えています。


このような仕組みをExchange+Outlookで実現するのは難しいでしょうか?
お手数ですが、再度、ご教示頂けますと幸いです。

投稿日時 - 2012-07-31 11:53:23

あなたにオススメの質問