1. Outlook

構文

1. Folder = Outlook.Folders.[_Default]( Index )

引数

Index省略可

戻り値

Folders オブジェクト を返すメソッド・プロパティ

NameSpace.Folders プロパティ

Outlook.Folders

Folders オブジェクトに定義されている検索フォルダを表すFolders オブジェクトを返します。

プログラム実行例

アカウント毎に迷惑メールの件数を集計（Outlook）

結果

CSV

Yahoo!：   42516件
Android：   0件

CopyYahoo!： 42516件 Android： 0件

使用関数

CREATEOLEOBJ関数 (スクリプト関数)(1)

COMオブジェクトを生成します。

Application.GetNamespace メソッド(2)

指定した種類のNameSpace オブジェクトを返します。

NameSpace オブジェクト(2)

Outlookのメールや予定表、連絡先といった様々なデータにアクセスすることができます。

NameSpace.Folders プロパティ(3)

Folders オブジェクト(5)

Folders.Item メソッド(5)

コレクションからFoldersアイテムを返します。

Folder オブジェクト(5)

Folder.Name プロパティ(6)

オブジェクトの表示名を表す文字列型（String）の値を取得または設定します。

すべてのフォルダの項目と件数を取得する

UWSC

DIM Outlook = CREATEOLEOBJ("Outlook.Application")
DIM NameSpace = Outlook.GetNameSpace("MAPI")
DIM Folders = NameSpace.Folders

FOR oFolder IN Folders
	//PRINT "■" + oFolder.Name
	Folder = NameSpace.Folders(oFolder.Name).Folders("迷惑メール")
	PRINT oFolder.Name + "：" + Folder.Items.Count + "件"
NEXT

CopyDIM Outlook = CREATEOLEOBJ("Outlook.Application") DIM NameSpace = Outlook.GetNameSpace("MAPI") DIM Folders = NameSpace.Folders FOR oFolder IN Folders //PRINT "■" + oFolder.Name Folder = NameSpace.Folders(oFolder.Name).Folders("迷惑メール") PRINT oFolder.Name + "：" + Folder.Items.Count + "件" NEXT

結果

プレーンテキスト

■Android_旧
・受信トレイ：7698件
・削除済みアイテム：8件
・送信済みアイテム：0件
・迷惑メール：0件
・送信トレイ：0件
・連絡先候補：0件
・ニュース フィード：0件
・予定表：1件
・連絡先：0件
・履歴：0件
・メモ：0件
・タスク：0件
・下書き：0件
・RSS フィード：0件
・スレッド アクション設定：0件
・クイック操作設定：0件

■Yahoo!_旧
・削除済みアイテム：1件
・受信トレイ：323518件
・送信トレイ：0件
・送信済みアイテム：1件
・予定表：34件
・連絡先：620件
・履歴：0件
・メモ：0件
・タスク：0件
・下書き：1件
・RSS フィード：0件
・スレッド アクション設定：0件
・クイック操作設定：0件
・迷惑メール：44025件
・連絡先候補：0件
・ニュース フィード：0件

■Android_新
・受信トレイ：10902件
・削除済みアイテム：0件
・送信済みアイテム：0件
・迷惑メール：0件

■Yahoo!_新
・削除済みアイテム：1件
・受信トレイ：410292件
・送信トレイ：0件
・送信済みアイテム：1件
・予定表：34件
・連絡先：620件
・履歴：0件
・メモ：0件
・タスク：0件
・下書き：1件
・RSS フィード：0件
・スレッド アクション設定：0件
・クイック操作設定：0件
・迷惑メール：51607件
・連絡先候補：0件
・ニュース フィード：0件

Copy■Android_旧 ・受信トレイ：7698件 ・削除済みアイテム：8件 ・送信済みアイテム：0件 ・迷惑メール：0件 ・送信トレイ：0件 ・連絡先候補：0件 ・ニュース フィード：0件 ・予定表：1件 ・連絡先：0件 ・履歴：0件 ・メモ：0件 ・タスク：0件 ・下書き：0件 ・RSS フィード：0件 ・スレッド アクション設定：0件 ・クイック操作設定：0件 ■Yahoo!_旧 ・削除済みアイテム：1件 ・受信トレイ：323518件 ・送信トレイ：0件 ・送信済みアイテム：1件 ・予定表：34件 ・連絡先：620件 ・履歴：0件 ・メモ：0件 ・タスク：0件 ・下書き：1件 ・RSS フィード：0件 ・スレッド アクション設定：0件 ・クイック操作設定：0件 ・迷惑メール：44025件 ・連絡先候補：0件 ・ニュース フィード：0件 ■Android_新 ・受信トレイ：10902件 ・削除済みアイテム：0件 ・送信済みアイテム：0件 ・迷惑メール：0件 ■Yahoo!_新 ・削除済みアイテム：1件 ・受信トレイ：410292件 ・送信トレイ：0件 ・送信済みアイテム：1件 ・予定表：34件 ・連絡先：620件 ・履歴：0件 ・メモ：0件 ・タスク：0件 ・下書き：1件 ・RSS フィード：0件 ・スレッド アクション設定：0件 ・クイック操作設定：0件 ・迷惑メール：51607件 ・連絡先候補：0件 ・ニュース フィード：0件

使用関数

CREATEOLEOBJ関数 (スクリプト関数)(1)

COMオブジェクトを生成します。

NameSpace.Folders プロパティ(3,7)

Folders オブジェクト(5,8)

Folder.Name プロパティ(6,7,9)

オブジェクトの表示名を表す文字列型（String）の値を取得または設定します。

Folder.Items プロパティ(9)

指定したフォルダ内のコレクションを取得します。

指定したコレクション内のオブジェクトの数を示す長整数型（Log）の値を取得します。

過去7日間に受信した迷惑メールの受信日時とメールアドレスを取得

UWSC

DIM Outlook = CREATEOLEOBJ("Outlook.Application")
DIM NameSpace = Outlook.GetNameSpace("MAPI")
DIM Folders = NameSpace.Folders

FOR Folder IN Folders
	PRINT "■" + Folder.Name
	Folders2 = NameSpace.Folders(Folder.Name).Folders
	FOR Folder2 IN Folders2
		PRINT "・" + Folder2.Name + "：" + Folder2.Items.Count + "件"
	NEXT
	PRINT
NEXT

CopyDIM Outlook = CREATEOLEOBJ("Outlook.Application") DIM NameSpace = Outlook.GetNameSpace("MAPI") DIM Folders = NameSpace.Folders FOR Folder IN Folders PRINT "■" + Folder.Name Folders2 = NameSpace.Folders(Folder.Name).Folders FOR Folder2 IN Folders2 PRINT "・" + Folder2.Name + "：" + Folder2.Items.Count + "件" NEXT PRINT NEXT

使用関数

CREATEOLEOBJ関数 (スクリプト関数)(1)

COMオブジェクトを生成します。

Application.GetNamespace メソッド(2)

指定した種類のNameSpace オブジェクトを返します。

NameSpace.Folders プロパティ(3)

Folders オブジェクト(3)

dateAdd (自作関数)(4,5)

日時に、指定した単位の時間を加算して返します。

Items オブジェクト(6)

Items.Restrict メソッド(6)

Items コレクションにフィルタを適用し、フィルタに一致する元のすべてのアイテムを含む新しいItems コレクションを返します。

指定したコレクション内のオブジェクトの数を示す長整数型（Log）の値を取得します。

Items.Sort メソッド(9)

指定されたプロパティのコレクションを並べ替えます。

Items.Item メソッド(12)

Items オブジェクトからItemオブジェクトを返します。

MailItem.ReceivedTime プロパティ(13)

アイテムを受信した日付と時刻を示す日付型（Date）の値を取得します。

MailItem.SenderEmailAddress プロパティ(13)

Outlookアイテムの送信者の電子メールアドレスを表す文字列（String）を返します。

解説

1. 1行目

   UWSC

   DIM Outlook = CREATEOLEOBJ("Outlook.Application")

   CopyDIM Outlook = CREATEOLEOBJ("Outlook.Application")

   Outlook オブジェクトを生成し、Outlookに代入します。

2. 2行目

   UWSC

   DIM NameSpace = Outlook.GetNameSpace("MAPI")

   CopyDIM NameSpace = Outlook.GetNameSpace("MAPI")

   Outlookで設定されているアカウントのメール、予定表、連絡先などのデータが格納されているフォルダにアクセスします。

3. 3行目

   UWSC

   DIM Folders = NameSpace.Folders("Yahoo!_新").Folders("迷惑メール")

   CopyDIM Folders = NameSpace.Folders("Yahoo!_新").Folders("迷惑メール")

4. 4行目

   UWSC

   DIM startDate = dateAdd("d", -7, today())

   CopyDIM startDate = dateAdd("d", -7, today())

5. 5行目

   UWSC

   DIM endDate = dateAdd("d", -1, today())

   CopyDIM endDate = dateAdd("d", -1, today())

6. 6行目

   UWSC

   Copy

   DIM Items = Folders.Items.Restrict("[ReceivedTime] >= '" + startDate + "' AND [ReceivedTime]

7. 7行目

   UWSC

   DIM count = Items.Count

   CopyDIM count = Items.Count

8. 9行目

   UWSC

   Items.Sort("受信日時")

   CopyItems.Sort("受信日時")

9. 11-15行目

   UWSC

   FOR Index = 1 TO count
   	WITH Items.Item(Index)
   		PRINT .ReceivedTime + "<#TAB>" + .SenderEmailAddress
   	ENDWITH
   NEXT

   CopyFOR Index = 1 TO count WITH Items.Item(Index) PRINT .ReceivedTime + "<#TAB>" + .SenderEmailAddress ENDWITH NEXT

メソッド

<表示切り替え>

Add

新しいフォルダを表すFolderオブジェクトを返します。

GetFirst

GetLast

GetNext

GetPrevious

Item

コレクションからFoldersアイテムを返します。

Remove

プロパティ

<表示切り替え>

Application

Class

Count

Parent

Session

この記事は役に立ちましたか？

はい

いいえ

Submit Cancel

ご協力ありがとうございます。

参考文献

1. Folders オブジェクト (Outlook) | Microsoft Learn

関連記事

Account オブジェクト

Accountオブジェクトは、現在のプロファイルに定義されているアカウントを表します。

Accounts オブジェクト

現在のプロファイルで利用できるアカウントを表すAccountオブジェクトのセットが含まれています。

Application オブジェクト

Outlookアプリケーション全体を表します。

AppointmentItem オブジェクト

新しい予定を表すAppointmentItemオブジェクトを作成します。

Folder オブジェクト

Items オブジェクト

MailItem オブジェクト

メールメッセージを表します。

NameSpace オブジェクト

Outlookのメールや予定表、連絡先といった様々なデータにアクセスすることができます。

Recipient オブジェクト

TaskItem オブジェクト