本文に特定の文面を含む場合に、そのメールとファイルを添付して転送するマクロ


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


Outlook2003を使っているのですが、本文に特定の文面が含まれるメールを受信したら別のメアドに①そのメールを転送する、②特定のファイルと本文を送信する

こういったアクションをするマクロは作成可能なのでしょうか?よろしくお願いします。


下記のようなマクロで可能です。特定の文面については、KEYWORD で指定します。また、転送先のアドレスは SENDTO、メールとともに添付するファイルは ATTACHFILE、転送メールの文面は BODYTEXT で指定します。

' ここをトリプルクリックでマクロ全体を選択できます。
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Const KEYWORD = "転送" ' 転送するメッセージを識別するキーワード
    Const SENDTO = "user@example.com" ' 転送先アドレス
    Const ATTACHFILE = "c:\temp\test.txt" ' 転送メッセージに追加する添付ファイル
    Const BODYTEXT = "転送します。" ' 転送メッセージの本文
    '
    Dim objItem
    Dim mailForward As MailItem
    '
    Set objItem = Session.GetItemFromID(EntryIDCollection)
    If InStr(objItem.Body, KEYWORD) > 0 Then
        Set mailForward = Application.CreateItem(olMailItem)
        mailForward.Subject = "FW: " & objItem.Subject
        mailForward.Recipients.Add SENDTO
        mailForward.Recipients.ResolveAll
        mailForward.Attachments.Add objItem, olEmbeddeditem
        mailForward.Attachments.Add ATTACHFILE, olByValue
        mailForward.Body = BODYTEXT
        mailForward.Send
    End If
End Sub

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

広告

本文に特定の文面を含む場合に、そのメールとファイルを添付して転送するマクロ」への2件のフィードバック

  1. outlook2010のマクロを調べていて、このサイトにたどり着きました超初心者です。
    よろしくお願いします。

    ”本文に特定の文面を含む場合に、そのメールとファイルを添付して転送するマクロ”を参考にしたいのですが、”特定の文面”の条件をエクセルで複数指定して、そのすべての語句がすくまれる場合にそのメールをエクセルに記述したの指定のアドレスに転送するマクロを作りたいのですが、可能なのでしょうか?
    環境:win7 outlook2010 excel2010 メール:exchange
    開始トリガー・・上記VBAのまま新規メール受信時or指定ホルダー振り分け時のどちらか
    条件語句・・単一→複数and指定(8個)
    条件は直接記述→エクセルで指定管理
    転送先アドレス→上記同一シートで条件指定の後ろのセルに指定
    エクセルの記述(複数)
    条件通しno、条件1、条件2、・・・条件8、転送アドレス1、転送アドレス2
    このようなコントロールは可能なのでしょうか?

コメントを残す

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

WordPress.com ロゴ

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

Twitter 画像

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

Facebook の写真

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

Google+ フォト

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

%s と連携中