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関連

    名前付きセル(範囲)にコメントを付けるVBAマクロ

    Excelでマニュアルを作成する際、名前付きセル範囲を明記する必要があ…

  2. Office関連

    Excel REST APIをVBAから呼び出す方法

    「Microsoft GraphをVBAから呼び出してOneNoteの…

  3. Office関連

    文字列を横方向に移動するWordマクロ(WordBasic編)

    いつもお世話になっているWord MVPの新田さんが、まるでカニの動き…

  4. アイコン一覧

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

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

  5. Office関連

    「ExcelVBAを実務で使い倒す技術」レビュー

    @ateitexeさんの下記ツイートで、高橋宣成氏が執筆された「Exc…

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP