1. Outlook
2. メール

構文

1. Date = MailItem.ReceivedTime

引数

戻り値

アイテムを受信した日時を日付型（Date）で返す。

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

NameSpace.GetDefaultFolder メソッド

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

Application.CreateItem メソッド

新しいOutlookのアイテムを表すオブジェクトを作成します。

プログラム実行例

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

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

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

結果

プレーンテキスト

Copy2020/12/05 78 2020/12/06 60 2020/12/07 72 2020/12/08 82 2020/12/09 75 2020/12/10 91 2020/12/11 82 2020/12/12 77 2020/12/13 63 2020/12/14 71 2020/12/15 104 2020/12/16 84 2020/12/17 80 2020/12/18 93 2020/12/19 78 2020/12/20 66 2020/12/21 67 2020/12/22 75 2020/12/23 82 2020/12/24 73 2020/12/25 87 2020/12/26 73 2020/12/27 56 2020/12/28 65 2020/12/29 69 2020/12/30 44 2020/12/31 1

使用関数

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

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

NameSpace オブジェクト(4)

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

NameSpace.GetDefaultFolder メソッド(5)

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

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

Items.Restrict メソッド(8)

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

MailItem オブジェクト(12)

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

MailItem.ReceivedTime プロパティ(13)

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

GETTIME関数(14)

日付、時間を取得します。

LENGTH関数 (スクリプト関数)(19)

文字数もしくは配列サイズを返します。

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

UWSC

CopyDIM Outlook = CREATEOLEOBJ("Outlook.Application") DIM NameSpace = Outlook.GetNameSpace("MAPI") DIM Folders = NameSpace.Folders("Yahoo!_新").Folders("迷惑メール") DIM startDate = dateAdd("d", -7, today()) DIM endDate = dateAdd("d", -1, today()) DIM Items = Folders.Items.Restrict("[ReceivedTime] >= '" + startDate + "' AND [ReceivedTime] < '" + endDate + "'") DIM count = Items.Count Items.Sort("受信日時") FOR Index = 1 TO count WITH Items.Item(Index) PRINT .ReceivedTime + "<#TAB>" + .SenderEmailAddress ENDWITH NEXT ////////////////////////////////////////////////// // 【引数】 // interval : 加算する時間間隔を表す文字列式（yyyy：年、m：月、d：日、ww：週、h：時、n：分、s：秒） // num : dateに加算する値。未来は正、過去は負で指定 // date : 時間間隔を加算する日付 // 【戻り値】 // 日時（date）に、指定した単位（interval）の時間（num）を加算して返します ////////////////////////////////////////////////// FUNCTION dateAdd(interval, num, date) DIM year, month, day, d GETTIME(0, date) DIM time = G_TIME_HH2 + ":" + G_TIME_NN2 + ":" + G_TIME_SS2 SELECT interval CASE "yyyy" d = (G_TIME_YY + num) + "/" + G_TIME_MM2 + "/" + G_TIME_DD2 IF time <> "00:00:00" THEN d = d + " " + time CASE "m" IFB num > 0 THEN year = G_TIME_YY + INT((G_TIME_MM + num) / 12) month = REPLACE(FORMAT(((G_TIME_MM + num) MOD 12), 2), " ", "0") ELSE year = G_TIME_YY + CEIL((G_TIME_MM + num) / 12 - 1) month = REPLACE(FORMAT(G_TIME_MM - (ABS(num) MOD 12), 2), " ", "0") ENDIF IF month = "00" THEN month = 12 day = G_TIME_DD2 d = "" + year + month + day IFB !isDate(d) THEN d = year + "/" + month + "/" + "01" d = getEndOfMonth(d) ELSE d = year + "/" + month + "/" + day ENDIF IF time <> "00:00:00" THEN d = d + " " + time CASE "d" t = GETTIME(num, date) d = G_TIME_YY4 + "/" + G_TIME_MM2 + "/" + G_TIME_DD2 + IIF(t MOD 86400, " " + G_TIME_HH2 + ":" + G_TIME_NN2 + ":" + G_TIME_SS2, "") CASE "ww" t = GETTIME(num * 7, date) d = G_TIME_YY4 + "/" + G_TIME_MM2 + "/" + G_TIME_DD2 + IIF(t MOD 86400, " " + G_TIME_HH2 + ":" + G_TIME_NN2 + ":" + G_TIME_SS2, "") CASE "h" t = GETTIME(num / 24, date) d = G_TIME_YY4 + "/" + G_TIME_MM2 + "/" + G_TIME_DD2 + IIF(t MOD 86400, " " + G_TIME_HH2 + ":" + G_TIME_NN2 + ":" + G_TIME_SS2, "") CASE "n" t = GETTIME(num / 1440, date) d = G_TIME_YY4 + "/" + G_TIME_MM2 + "/" + G_TIME_DD2 + IIF(t MOD 86400, " " + G_TIME_HH2 + ":" + G_TIME_NN2 + ":" + G_TIME_SS2, "") CASE "s" t = GETTIME(num / 86400, date) d = G_TIME_YY4 + "/" + G_TIME_MM2 + "/" + G_TIME_DD2 + IIF(t MOD 86400, " " + G_TIME_HH2 + ":" + G_TIME_NN2 + ":" + G_TIME_SS2, "") SELEND RESULT = d FEND ////////////////////////////////////////////////// // 【引数】 // date : 日付（”YYYYMMDD” or “YYYY/MM/DD” or “YYYY-MM-DD” or “YYYYMMDDHHNNSS” or “YYYY/MM/DD HH:NN:SS”） // m : 第一引数の指定日からプラスマイナスm月とする // 【戻り値】 // dateからm月後の月末の日付 ////////////////////////////////////////////////// FUNCTION getEndOfMonth(date, m = 0) date = dateAdd("m", m + 1, date) GETTIME(0, date) GETTIME(-G_TIME_DD, date) RESULT = G_TIME_YY4 + "/" + G_TIME_MM2 + "/" + G_TIME_DD2 FEND ////////////////////////////////////////////////// // 【引数】 // expr : 評価する式 // truepart : 評価した式がTrueのときに返す値 // falsepart : 評価した式がFalseのときに返す値 // 【戻り値】 // truepart : 評価した式がTrueのとき、falsepart : 評価した式がFalseのとき ////////////////////////////////////////////////// FUNCTION IIF(expr, truepart, falsepart) IFB EVAL(expr) THEN RESULT = truepart ELSE RESULT = falsepart ENDIF FEND ////////////////////////////////////////////////// // 【引数】 // date : 存在するかを調べる日付文字列。YYYYMMDD or YYYY/MM/DD or YYYY-MM-DDのいずれかの形式。 // 【戻り値】 // TRUE : 日付として認識できる、FALSE : 日付として認識できない ////////////////////////////////////////////////// FUNCTION isDate(date) TRY GETTIME(0, date) RESULT = TRUE EXCEPT RESULT = FALSE ENDTRY FEND ////////////////////////////////////////////////// // 【引数】 // 【戻り値】 // 今日の日付 ////////////////////////////////////////////////// FUNCTION today() GETTIME() RESULT = G_TIME_YY4 + "/" + G_TIME_MM2 + "/" + G_TIME_DD2 FEND

使用関数

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

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

Application.GetNamespace メソッド(2)

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

Folders オブジェクト(3)

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

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

Items オブジェクト(6)

Items.Restrict メソッド(6)

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

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

Items.Sort メソッド(9)

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

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

MailItem.ReceivedTime プロパティ(13)

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

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

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

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

UWSC

CopyCONST olFolderInbox = 6 DIM Outlook = CREATEOLEOBJ("Outlook.Application") DIM NameSpace = Outlook.GetNameSpace("MAPI") DIM Folder = NameSpace.GetDefaultFolder(olFolderInbox) DIM Items = Folder.Items Items.Sort("[ReceivedTime]", FALSE) DIM MailItem = Items.GetLast WITH MailItem PRINT "差出人名," + .SenderName PRINT "件名," + .Subject PRINT "受信日時," + .ReceivedTime ENDWITH

使用関数

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

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

Application.GetNamespace メソッド(4)

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

NameSpace.GetDefaultFolder メソッド(5)

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

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

Items.Sort メソッド(8)

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

Items.GetLast メソッド(9)

Itemsコレクションから最後の要素を取得します。

MailItem オブジェクト(9,11)

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

Outlook アイテムの送信者の表示名を示す文字列型（String）の値を取得します。

Outlook アイテムの件名を示す文字列を返すか、設定します。

MailItem.ReceivedTime プロパティ(14)

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

関連記事

MailItem オブジェクト

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

Items.Restrict メソッド (Outlook)

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

MailItem.Attachments プロパティ (Outlook)

メールに添付されているすべての添付ファイルを表すOutlook.HTMLBodyを返します。

MailItem.BodyFormat プロパティ (Outlook)

メール本文の形式を表すOlBodyFormatクラスの定数を取得または設定します。

MailItem.To プロパティ (Outlook)

Outlook アイテムの宛先の受信者の表示名一覧を表す、セミコロン（;）で区切られた文字列型（String） の一覧を設定します。

MailItem.HTMLBody プロパティ (Outlook)

メールのHTML形式の本文を表す文字列型の値を取得または設定します。

MailItem.Parent プロパティ (Outlook)

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

CDO.From プロパティ

メッセージの差出人（From）を指定します。

AppointmentItem オブジェクト

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

Folder オブジェクト