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. Windows 10

    【2017年1月版】Microsoft Edgeを操作するVBAマクロ(DOM編)(2)

    昨日の記事で、Microsoft Edgeを操作するVBAコードを改め…

  2. Office アドイン

    [Office用アプリ]Seller Dashboardの販売者アカウントを作成する。

    Office用アプリをOfficeストアで公開するためにはMicros…

  3. Office関連

    Office 2016のコントロールIDリストが公開されました。

    昨年の秋にリリースされたOffice 2016。そのコントロールI…

  4. Office関連

    Visio Onlineの機能をJavaScriptで拡張する方法

    @mokudaiさんからのバトンを引き継ぎまして、「Office 36…

  5. アイコン一覧

    Office 365アイコン(imageMso)一覧(NUM)

    Office 365のデスクトップ版Officeアプリケーション(Wo…

  6. Office関連

    「2014年12月のWindows Update以降コマンドボタンが使えなくなった」トラブルへのFi…

    当ブログでも「KB2553154の更新プログラムをアンインストールする…

コメント

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

  1. 2019年 12月 04日

Time limit is exhausted. Please reload CAPTCHA.

Translate

Chinese (Simplified)Chinese (Traditional)EnglishFrenchGermanJapaneseKoreanRussianSpanish

最近の記事

アーカイブ

PAGE TOP