NameSpace.GetDefaultFolder メソッド

本ページには広告が含まれています。

Outlook

現在のプロファイルで要求された種類の既定のフォルダーを表すFolder オブジェクトを返します。

構文

Folder = NameSpace.GetDefaultFolder( FolderType )

引数

FolderType 省略可: OlDefaultFolders

戻り値: Folder オブジェクト

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

Application.GetNamespace メソッド: 指定した種類のNameSpace オブジェクトを返します。

定数一覧

OlDefaultFolders 列挙

名前	値	説明
olFolderDeletedItems	3	削除済みアイテムフォルダ
olFolderOutbox	4	送信トレイフォルダ
olFolderSentMail	5	送信済みアイテムフォルダ
olFolderInbox	6	受信トレイフォルダ
olFolderCalendar	9	予定表フォルダ
olFolderContacts	10	連絡先フォルダ
olFolderJournal	11	履歴フォルダ
olFolderNotes	12	メモフォルダ
olFolderTasks	13	仕事フォルダ
olFolderDrafts	16	下書きフォルダ
olPublicFoldersAllPublicFolders	18	Exchangeパブリックフォルダストア内のAll Public Foldersフォルダ。Exchangeアカウントの場合のみ。
olFolderConflicts	19	競合フォルダ
olFolderSyncIssues	20	同期の失敗フォルダ。Exchangeアカウントの場合のみ。
olFolderLocalFailures	21	ローカルの失敗フォルダ。Exchangeアカウントの場合のみ。
olFolderServerFailures	22	サーバーの失敗フォルダ。Exchangeアカウントの場合のみ。
olFolderJunk	23	迷惑メールフォルダ
olFolderRssFeeds	25	RSSフィードフォルダ
olFolderToDo	28	To Doフォルダ
olFolderManagedEmail	29	管理対象のフォルダグループの最上位フォルダ。
olFolderSuggestedContacts	30

プログラム実行例

受信トレイに新しいフォルダを作成（Outlook）

使用関数

指定期間に受信したメールを取得（Outlook）

使用関数

指定期間のメール情報を取得（Outlook）

CONST olFolderInbox = 6
CONST xlTop = -4160
CONST xlLeft = -4131

DIM Excel = ExcelBoot()

DIM Outlook = CREATEOLEOBJ("Outlook.Application")
DIM NameSpace = Outlook.GetNameSpace("MAPI")
DIM Folder = NameSpace.GetDefaultFolder(olFolderInbox)
DIM Items = Folder.Items

DIM start = "2021/01/01"
DIM end = "2021/01/02"

Items = Items.Restrict("[ReceivedTime] >= '" + start + "' AND [ReceivedTime] < '" + end + "'")

DIM array[][1] = "受信日時", "ReceivedTime", + _
					"送信者メールアドレス", "SenderEmailAddress", + _
					"送信者", "SenderName", + _
					"CC", "CC", + _
					"BCC", "BCC", + _
					"件名", "Subject", + _
					"本文", "Body", + _
					"HTML本文", "HTMLBody"

Excel.Application.ScreenUpdating = FALSE

FOR i = 0 TO UBound(array)
	Excel.Cells(1, i + 1).Value = array[i][0]
NEXT

DIM row = 2

FOR MailItem IN Items
	FUKIDASI(row + "/" + Items.Count)
	WITH MailItem
		FOR i = 0 TO UBound(array)
			Excel.Cells(row, i + 1).Value = EVAL("." + array[i][1])
		NEXT
	ENDWITH
	row = row + 1
NEXT

WITH Excel.Range("A1").CurrentRegion
	.ColumnWidth = 20
	.RowHeight = 30
	.VerticalAlignment = xlTop
	.HorizontalAlignment = xlLeft
ENDWITH

Excel.Application.ScreenUpdating = TRUE

//////////////////////////////////////////////////
// 【引数】
//   path : 開くファイルのパス名
// 【戻り値】
//   [createLink url="/com/excel/"]
//////////////////////////////////////////////////
FUNCTION ExcelBoot(path = "")
	DIM Excel = CREATEOLEOBJ("Excel.Application")
	Excel.Visible = TRUE
	IFB path = "" THEN
		Excel.Workbooks.Add
	ELSE
		DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
		IFB FSO.GetParentFolderName(path) = "" THEN
			path = GET_CUR_DIR + "\" + path
		ENDIF
		Excel.Workbooks.Open(path)
	ENDIF
	RESULT = Excel
FEND

//////////////////////////////////////////////////
// 【引数】
//   inputs : 繰り返す文字列
//   multiplier : inputsを繰り返す回数
// 【戻り値】
//   inputsをmultiplier回を繰り返した文字列を返します
//////////////////////////////////////////////////
FUNCTION strRepeat(inputs, multiplier)
	DIM res = ""
	FOR n = 1 TO multiplier
		res = res + inputs
	NEXT
	RESULT = res
FEND

//////////////////////////////////////////////////
// 【引数】
//   arrayname : 上限値を求める配列の名前
//   dimension : 返す次元を示す整数
// 【戻り値】
//   配列の上限値
//////////////////////////////////////////////////
FUNCTION UBound(arrayname[], dimension = 1)
	RESULT = EVAL("RESIZE(arrayname" + strRepeat("[0]", dimension - 1) + ")")
FEND

使用関数

ExcelBoot関数 (自作関数)(5): Excelを起動します。引数を指定した場合、そのファイルを開きます。
CREATEOLEOBJ関数 (スクリプト関数)(7): COMオブジェクトを生成します。
Application.GetNamespace メソッド(8): 指定した種類のNameSpace オブジェクトを返します。
NameSpace.GetDefaultFolder メソッド(9): 現在のプロファイルで要求された種類の既定のフォルダを表すFolder オブジェクトを返します。
Folder オブジェクト(9)
: 指定したフォルダ内のコレクションを取得します。
Items.Restrict メソッド(15): Items コレクションにフィルタを適用し、フィルタに一致する元のすべてのアイテムを含む新しいItems コレクションを返します。
UBound関数 (自作関数)(33,41): 配列の上限値（最大インデックス）を求めます。arraynameに配列の名前、dimensionに上限値を求める配列の次元を指定します。
Application.Cells プロパティ(34): 作業中のワークシートのすべてのセルを表すRange オブジェクトを返します。
Range オブジェクト(34): セル、行、列、連続した1つ以上のセル範囲を表します。
Range.Value プロパティ(34)
MailItem オブジェクト(39): メールメッセージを表します。
EVAL関数(42): 文字列を評価し値を返します。式や文を文字列として受け取り、実行するための関数です。
MailItem.ReceivedTime プロパティ(42): アイテムを受信した日付と時刻を示す日付型（Date）の値を取得します。
: Outlookアイテムの送信者の電子メールアドレスを表す文字列（String）を返します。
: Outlook アイテムの送信者の表示名を示す文字列型（String）の値を取得します。
: メールのカーボンコピー（CC）名の一覧表示を表す文字列を返します。
: メールのブラインドカーボンコピー（BCC）の名前の一覧の表示を表す文字列を返します。
MailItem.To プロパティ(42): Outlook アイテムの宛先の受信者の表示名一覧を表す、セミコロン（;）で区切られた文字列型（String）の一覧を設定します。
: Outlook アイテムの件名を示す文字列を返すか、設定します。
: メールの本文を表す文字列型の値を返すか設定をします。
MailItem.HTMLBody プロパティ(42): メールのHTML形式の本文を表す文字列型の値を取得または設定します。

指定期間に受信したメールからURLを抽出（Outlook）

HASHTBL url = HASH_SORT

CONST olFolderInbox = 6

DIM Outlook = CREATEOLEOBJ("Outlook.Application")
DIM NameSpace = Outlook.GetNameSpace("MAPI")
DIM Folder = NameSpace.GetDefaultFolder(olFolderInbox)
DIM Items = Folder.Items

DIM start = "2021/01/01"
DIM end = "2021/01/07"

Items = Items.Restrict("[ReceivedTime] >= '" + start + "' AND [ReceivedTime] <= '" + end + "'")

DIM row = 1

FOR MailItem IN Items
	FUKIDASI(row + "/" + Items.Count)
	DIM Matches = reExecute(MailItem.Body, "https?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?")
	FOR Match IN Matches
		url[Match.Value] = url[Match.Value] + 1
	NEXT
	row = row + 1
NEXT

FOR i = 0 TO LENGTH(url) - 1
	FUKIDASI(i + "/" + (LENGTH(url) - 1))
	PRINT url[i, HASH_KEY]
NEXT

//////////////////////////////////////////////////
// 【引数】
//   str : 正規表現による検索の対象となる文字列
//   Pattern : 正規表現で使用するパターンを設定
//   IgnoreCase : 大文字・小文字を区別しない場合はTrue、区別する場合はFalse
//   Global : 文字列全体を検索する場合はTrue、しない場合はFalse
// 【戻り値】
//   正規表現で検索した結果をMatchesコレクションとして返します。
//////////////////////////////////////////////////
FUNCTION reExecute(str, Pattern, IgnoreCase = TRUE, Global = TRUE)
	DIM re = CREATEOLEOBJ("VBScript.RegExp")
	re.Pattern = Pattern
	re.IgnoreCase = IgnoreCase
	re.Global = Global
	RESULT = re.Execute(str)
FEND

使用関数

指定期間に受信したメールの添付ファイルをすべて保存（Outlook）

CONST olFolderInbox = 6

DIM Outlook = CREATEOLEOBJ("Outlook.Application")
DIM NameSpace = Outlook.GetNameSpace("MAPI")
DIM Folder = NameSpace.GetDefaultFolder(olFolderInbox)
DIM Items = Folder.Items

DIM start = "2021/01/01"
DIM end = "2021/01/31"

Items = Items.Restrict("[ReceivedTime] >= '" + start + "' AND [ReceivedTime] <= '" + end + "'")

DIM folderspec = "D:\Desktop\Outlook\"
CreateFolders(folderspec)

DIM row = 1

FOR MailItem IN Items
	FUKIDASI(row + "/" + Items.Count)
	FOR i = 1 TO MailItem.Attachments.Count
		DIM Attachment = MailItem.Attachments.Item(i)
		DIM path = folderspec + Attachment
		path = uniqueFilename(path)
		Attachment.SaveAsFile(path)
		PRINT path
	NEXT
	row = row + 1
NEXT

//////////////////////////////////////////////////
// 【引数】
//   folderspec : 作成するフォルダのパス
// 【戻り値】
//////////////////////////////////////////////////
PROCEDURE CreateFolders(folderspec)
	WITH CREATEOLEOBJ("Scripting.FileSystemObject")
		folderspec = .GetAbsolutePathName(folderspec)
		IF !.DriveExists(.GetDriveName(folderspec)) THEN EXIT
		DIM parentPath = .GetParentFolderName(folderspec)
		IF !.FolderExists(parentPath) THEN CreateFolders(parentPath)
		IF !.FolderExists(folderspec) THEN .CreateFolder(folderspec)
	ENDWITH
FEND

//////////////////////////////////////////////////
// 【引数】
//   path : ファイルのパス
// 【戻り値】
//   重複しないファイル名
//////////////////////////////////////////////////
FUNCTION uniqueFilename(path)
	DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
	IFB FSO.FileExists(path) THEN
		DIM fol = FSO.GetParentFolderName(path)
		DIM filename = FSO.GetBaseName(path)
		DIM extension = FSO.GetExtensionName(path)
		DIM i = 2
		WHILE FSO.FileExists(FSO.BuildPath(fol, filename + " (" + i + ")." + extension))
			i = i + 1
		WEND
		RESULT = FSO.BuildPath(fol, filename + " (" + i + ")." + extension)
	ELSE
		RESULT = path
	ENDIF
FEND

使用関数

指定期間のメールを日毎に集計（Outlook）

結果

使用関数

既定フォルダの最新のメールを取得

既定フォルダで受信した最新のメールを取得し、差出人名、件名、受信日時を出力します。

使用関数

参考文献

Account オブジェクト: Accountオブジェクトは、現在のプロファイルに定義されているアカウントを表します。
Accounts オブジェクト: 現在のプロファイルで利用できるアカウントを表すAccountオブジェクトのセットが含まれています。
Application オブジェクト: Outlookアプリケーション全体を表します。
AppointmentItem オブジェクト: 新しい予定を表すAppointmentItemオブジェクトを作成します。
Folder オブジェクト
Folders オブジェクト
Items オブジェクト
MailItem オブジェクト: メールメッセージを表します。
NameSpace オブジェクト: Outlookのメールや予定表、連絡先といった様々なデータにアクセスすることができます。
Recipient オブジェクト