「VBSでメール件数カウント」の続きなのですが、
「受信フォルダ」の下にサブフォルダがあった場合の、
件数カウントはどうすればよいでしょうか?
試しに作ってみましたのですが、自信がないので、
よろしければ診ていただけないでしょうか?
------------------------------------------------------------
Private Function Cnt_MailItem
Cnt_MailItem = 0
Set oApp = CreateObject("Outlook.Application")
Set oNs = oApp.GetNameSpace("MAPI")
Set oFol = oNs.GetDefaultFolder(6) '受信アイテイム
Cnt_MailItem = oFol.Items.Count
'サブフォルダカウント
Cnt_MailItem = Cnt_MailItem + Cnt_SubFol(oFol)
msgbox "メール数:" & Cnt_MailItem
End Function
'サブカウント
Private Function Cnt_SubFol(byVal pFol )
'サブがない場合は数えない
If pFol.Folders.Count <= 0 Then
Exit Function
End If
For i = 1 To pFol.Folders.Count
Set oItems = pFol.Folders.Item(i)
Cnt_SubFol = Cnt_SubFol + oItems.Items.Count + Cnt_SubFol(oItems)
next
Set oItems = Nothing
End Function
------------------------------------------------------------
よろしくお願い致します。
No.2ベストアンサー
- 回答日時:
ロジックとしては、あるフォルダ以下にあるファイル数を求めることと同じです。
まずはFileSystemObjectを使って、処理の流れに間違いがないか確認されてはいかがでしょう?
それがクリアされていれば、Outlookオブジェクトに置きえればいいだけです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 配列の勉強をしています。使用する変数の意味、検索条件の書き方が難しいです。 2 2022/09/15 14:06
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:02
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:00
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- Visual Basic(VBA) Dateserialで データ抽出 2 2022/06/26 21:07
- JavaScript 画像の表示位置 3 2022/12/23 08:25
- Visual Basic(VBA) VBA Bookの表示、非表示 1 2022/09/16 20:44
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) 日付の計算方法 2 2022/07/01 23:35
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Nifty Webmailの送信メールをTh...
-
ノーツ
-
IMAPメールのローカル保存方法
-
ノーツの迷惑メール
-
サイボウズ 受信メールのフォ...
-
Google フォト は、なぜ反転で...
-
最近、左利きYouTuberさん多い...
-
LINEの既読数がおかしいです(´...
-
下書きのgmailを一斉送信する方法
-
公文書と事務連絡の違いについて
-
Googleからの以下のメールにつ...
-
あやまって【Ctrl+D】を押して...
-
Thunderbird メール下書き保存...
-
CCのまま返信したい
-
Outlookメールでのbccについて
-
重複しないグループ分けについて
-
下書きメールの添付
-
下書きフォルダのメールが開かない
-
VBA 図形グループ化後オブジェ...
-
Outlookのアドレス帳のグループ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Gmailの迷惑メールから入ったメ...
-
NOTESで受信フォルダを削除して...
-
Lotus Notes メール受信時の通...
-
Notesメールの添付ファイルの削...
-
Lotus Notesの受信確認について
-
【続】VBSでメール件数カウント...
-
Nifty Webmailの送信メールをTh...
-
ノーツ
-
ノーツの迷惑メール
-
IMAPメールのローカル保存方法
-
HOTMAILのバックアップ方法
-
outlook2013,メール項目の英文表示
-
Notesでinbox(受信)で最新の...
-
ノーツR5でメーリングリスト...
-
Lorus Notes R5で受信メールを...
-
ノーツのメール受信通知機能
-
外部からNotesの掲示板にファイ...
-
Googleからの以下のメールにつ...
-
Google フォト は、なぜ反転で...
-
最近、左利きYouTuberさん多い...
おすすめ情報