Office関連

未読アイテムの件数を取得するOutlookマクロ

Outlook 未読 件数 マクロ」といったキーワード検索でのアクセスがありました。Outlookのマクロで、未読アイテムの件数を調べたい方からのアクセスだと思います。

下記記事でも書いていますが、OutlookのFolderオブジェクトには、そのものずばりなUnReadItemCountプロパティが用意されているので、こちらを使えば一発で未読アイテムの件数を取得することができます(下記コードでは受信トレイフォルダー(olFolderInbox)を指定しています)。

Public Sub Sample001()
  MsgBox "未読アイテム数:" & Application.GetNamespace("MAPI") _
                              .GetDefaultFolder(olFolderInbox) _
                              .UnReadItemCount, vbInformation + vbSystemModal
End Sub

もし、個々の未読アイテムに対して何らかの処理を実行したい場合は、UnReadプロパティを使うことで、未読か既読かを判別することができます。

例えば未読メールに対してのみ処理を行う場合は、下記のようなコードになります。

Public Sub Sample002()
  Dim itm As Object
  
  With Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    For Each itm In .Items
      Select Case LCase(TypeName(itm))
        Case "mailitem" 'MailItemのみ処理
          '未読メールのみ処理
          If itm.UnRead = True Then
            Debug.Print itm.Subject
          End If
      End Select
    Next
  End With
End Sub

関連記事

  1. Office関連

    [リボン・カスタマイズ]dropDown要素の初期項目を指定する。

    MSDN フォーラムに「リボン:ドロップダウンリストにlabel初期値…

  2. Office アドイン

    [Office用アプリ]第一回 Apps for Office 勉強会で登壇しました。

    19日(金)に第一回 Apps for Office 勉強会が東京で開…

  3. Office関連

    未読メッセージ数を取得するOutlookマクロ

    Outlook 2007で追加されたFolderオブジェクトのUnRe…

  4. Excel

    VBAから扱えるDLLをC#で書いてみる。

    以前書いた記事でSharpDevelopを使ってExcel用のCOMア…

  5. Excel

    Microsoft Edgeを操作するVBAマクロ(WebDriver編)

    Microsoft Edge Dev Blogに「Bringing a…

  6. アイコン一覧

    Office 2013 アイコン一覧(R)

    ・Office 2013 アイコン一覧 NUM…

コメント

  • コメント (0)

  • トラックバックは利用できません。

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

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP