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

【感想】僕と君の大切な話4巻前のページ

ユーザー設定フォームに基づいてメールを作成するOutlookマクロ次のページ

関連記事

  1. Excel

    「Excel VBAでラクラク Win64 APIプログラミング」(大村あつし著)レビュー

    当ブログでも以前書評を書いた「Excel VBAの神様 ボクの人生を変…

  2. Office関連

    パスワードが設定されたファイルを開くPowerPointマクロ

    WordやExcelと違って、PowerPointの場合はOpenメソ…

  3. Office関連

    CDOを使ってGmail送信を行うVBAマクロ

    「VBA Gmail 送信」といったキーワード検索で、「Gmail A…

  4. Office関連

    VBAでインターネット上のファイルをダウンロードする方法をまとめてみました。

    「VBA ファイル ダウンロード」といったキーワード検索でのアクセスが…

  5. Office関連

    Office 2013で追加・変更されたコントロールID

    2013/03/25 追記:Office 2013のコントロールI…

  6. Office関連

    [Excel Services ECMAScript]選択範囲が変更されたときのイベントを利用する。…

    埋め込んだExcelワークブックの、選択範囲が変更されたときのイベント…

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP