Office関連

受信メールに対して自動的に返信するOutlookマクロ

Outlook VBA 自動返信」といったキーワード検索でのアクセスがあったので、ApplicationオブジェクトのNewMailExイベントを使った簡単な処理を考えてみました。

※ 下記コードは「ThisOutlookSession」に記述

Option Explicit

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
  Dim itm As Object
  Dim msg As String
  
  Set itm = Application.Session.GetItemFromID(EntryIDCollection)
  If LCase(TypeName(itm)) = "mailitem" Then
    With itm.ReplyAll
      msg = itm.SenderName & "( " & itm.SenderEmailAddress & " )様" & vbCrLf & vbCrLf & _
            "ご連絡いただきありがとうございました。" & vbCrLf & _
            "受付登録完了いたしました。" & vbCrLf & vbCrLf & _
            "--------------------" & vbCrLf & .Body
      .Body = msg
      .Send
    End With
  End If
End Sub

大抵のサーバーにはVacation(AutoReply)機能がありますし、Outlookでも標準機能で対応できるため、中々マクロを使う機会は無いかもしれませんが、マクロだと自由度は高いので、たとえばメール受信時に添付ファイルを印刷したり、メール内容を自動的にDBに登録したり、といったこともできます。

GetSpellingSuggestionsメソッドで文法上の誤りの修正候補は取得できない?前のページ

Gmail APIを使ってメール送信するVBAマクロ次のページ

関連記事

  1. Office関連

    日本標準時(JST)を取得するVBAマクロ

    先日、もり(@moripro3)さんのツイートに対して下記のような返信…

  2. Office関連

    WordBasicマクロの資料

    Word 97でVBA機能が搭載される以前のWordでは、WordBa…

  3. Office アドイン

    Excel向けPower BI カスタム ビジュアル機能の紹介

    Power BI ブログの記事「Excel announces new…

  4. Office関連

    「最速攻略 Wordマクロ/VBA徹底入門」レビュー

    いつもお世話になっているExcel MVPの伊藤さんに9月20日発売予…

コメント

  1. この記事へのコメントはありません。

  1. 2019年 12月 04日

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

PAGE TOP