メッセージの受信を通知するマクロ


コメントにて以下のようなご要望をいただきました。


マクロ初心者の為、下記の内容をマクロで実現出来るものなのかの判断が付かず、
実現可否と実現可能であればマクロをご教示頂けますと幸いです。

「内容」
Aさん(A-san@keitai.jp)から社内のアドレス(kaisya@hoge.jp)に空メール
(または、任意の本文が記載されてたメール)を送信されると、上記”kaisya”
アカウントのOutlookにて、
”送信元:send-addr@hoge.jp” もしくはOutlookの「返信先の指定」機能と同様に返信時の宛先がこれに変わる
”宛先:rcvd-addr@hoge.jp”
”件名:test”
”本文:hogehoge”
といった内容のメールを自動的で作成・送信するようなマクロを作成し、
上記のマクロを自動仕訳のスクリプト実行を行うことで実現したいと
思っております。

上記の内容は実現できますでしょうか?
ご教示のほど、よろしくお願いいたします。



返信先の指定を行うには、ReplyRecipients の Add メソッドを使用します。
マクロは以下のようになります。

' ここをトリプルクリックでマクロ全体を選択できます。
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim objItem
    Set objItem = Session.GetItemFromID(EntryIDCollection)
    If objItem.MessageClass = "IPM.Note" Then
         NotifyMail objItem
    End If
End Sub
'
Private Sub NotifyMail(ByVal objMail As MailItem)
    Const REPLY_TO = "send-addr@hoge.jp" ' 返信先アドレス
    Const SEND_TO = "rcvd-addr@hoge.jp" ' 通知先アドレス
    Const NOTIF_SUBJECT = "test" ' 件名
    Const NOTIF_BODY = "hogehoge" ' 本文
    Dim objNotif As MailItem
    '
    Set objNotif = Application.CreateItem(olMailItem)
    objNotif.ReplyRecipients.Add REPLY_TO
    objNotif.Recipients.Add SEND_TO
    objNotif.Subject = NOTIF_SUBJECT
    objNotif.Body = NOTIF_BODY & vbCrLf & "差出人:" & objMail.SenderEmailAddress
    objNotif.Send
End Sub

マクロの登録方法やメニューへの追加について

広告

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中