Application.CreateItem メソッド

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

Outlook

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

構文

Object = Application.CreateItem( ItemType )

引数

ItemType 省略可: olitemtypeを指定。以下を参照。

戻り値

olAppointmentItem: AppointmentItem オブジェクト
olContactItem: Outlook.CreateItem
olDistributionListItem
olJournalItem: Outlook.CreateItem
olMailItem: MailItem オブジェクト
olMobileItemMMS: Outlook.CreateItem
olMobileItemSMS: Outlook.CreateItem
olNoteItem
olPostItem: Outlook.CreateItem
olTaskItem: TaskItem オブジェクト

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

Application.GetNamespace メソッド

Application.GetNamespace メソッド: Outlookアプリケーションの親を表すApplication オブジェクトを返します。

定数一覧

OlItemType 列挙

名前	値	説明
olMailItem	0	メール
olAppointmentItem	1	予定表
olContactItem	2	連絡先
olTaskItem	3	タスク
olJournalItem	4	履歴
olNoteItem	5	メモ
olPostItem	6	投稿
olDistributionListItem	7	連絡先グループ
olMobileItemSMS	11	SMS
olMobileItemMMS	12	MMS

プログラム実行例

新しいタスクを追加（Outlook）

CONST olTaskItem = 3
CONST olImportanceHigh = 2

DIM Outlook = CREATEOLEOBJ("Outlook.Application")
DIM TaskItem = Outlook.CreateItem(olTaskItem)

WITH TaskItem
	// 件名
	.Subject = "件名"
	// 開始日
	.StartDate = "2019/09/07"
	// 期限
	.DueDate = "2019/09/10"
	// アラーム
	.ReminderSet = TRUE
	// アラーム時間
	.ReminderTime = "2019/09/07 09:00:00 PM"
	// 進捗状況
	.Status = 0
	// 優先率
	.Importance = olImportanceHigh
	// 達成率
	.PercentComplete = 90
	// 本文
	.Body = "本文"
	// 保存
	.Save
ENDWITH

使用関数

予定データをExcelから読み込み追加する(Outlook)

[download "/example/625/予定一覧.xlsx"]

CONST xlUp = -4162
CONST olAppointmentItem = 1

HASHTBL reminders
reminders["なし"] = -1;       reminders["0分"] = 0;       reminders["5分"] = 5
reminders["10分"] = 10;       reminders["15分"] = 15;     reminders["30分"] = 30
reminders["1時間"] = 60;      reminders["2時間"] = 120;   reminders["3時間"] = 180
reminders["4時間"] = 240;     reminders["5時間"] = 300;   reminders["6時間"] = 360
reminders["7時間"] = 420;     reminders["8時間"] = 480;   reminders["9時間"] = 540
reminders["10時間"] = 600;    reminders["11時間"] = 660;  reminders["0.5日"] = 720
reminders["18時間"] = 1080;   reminders["1日"] = 1440;    reminders["2日"] = 2880
reminders["3日"] = 4320;      reminders["4日"] = 5760;    reminders["1週"] = 10080
reminders["2週"] = 20160

DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
DIM Workbook = Excel.Workbooks.Open("D:\Desktop\予定一覧.xlsx")

DIM MaxRow = Excel.Cells(Excel.Rows.Count, 1).End(xlUp).Row

DIM Outlook = CREATEOLEOBJ("Outlook.Application")
DIM AppointmentItem = Outlook.CreateItem(olAppointmentItem)

FOR row = 2 TO MaxRow
	PRINT row
	WITH AppointmentItem
		.Subject = Excel.Cells(row, 2).Value        // 件名
		.Location = Excel.Cells(row, 3).Value       // 場所
		.Start = Excel.Cells(row, 4).Value          // 開始時刻
		.End = Excel.Cells(row, 5).Value            // 終了時刻
		IF Excel.Cells(row, 6).Value = "○" THEN .AllDayEvent = TRUE     // 終日
		IFB reminders[Excel.Cells(row, 7).Value] <> -1 THEN
			.ReminderSet = TRUE
			.ReminderMinutesBeforeStart = reminders[Excel.Cells(row, 7).Value]     // リマインダー
		ELSE
			.ReminderSet = FALSE
		ENDIF
		.BusyStatus = 1                             // 公開方法
		.Body = Excel.Cells(row, 8).Value           // 本文
		.Save
	ENDWITH
NEXT

MSGBOX((MaxRow - 1) + "件の予定を登録しました。")

Outlook.Quit
Excel.Quit

使用関数

HTMLメールを送信（Outlook）

HTMLメールの本文は長くなるので、TEXTBLOCKで定義して代入しています。

CONST olMailItem = 0
CONST olFormatHTML = 2

DIM Outlook = CREATEOLEOBJ("Outlook.Application")
DIM MailItem = Outlook.Application.CreateItem(olMailItem)

WITH MailItem
   .BodyFormat = olFormatHTML
   .Subject = "HTMLメールのテスト"
   .HTMLBody = Body
   .To = "contact@example.com"   // 送信先
   Account = Outlook.Session.Accounts.Item("info@example.com")    // 送信元
   .SendUsingAccount = Account
   .Send
ENDWITH

TEXTBLOCK Body
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional/a/EN" "https://www.w3.org/TR/html4/loose.dtd">
<html>
   <head>
       <meta name="viewport" content="target-densitydpi=device-dpi,width=device-width,maximum-scale=1.0,user-scalable=yes">
       <meta http-equiv="Content-Language" content="ja">
       <meta charset="shift_jis">
       <title></title>
   </head>
   <body>
       <table border="0" cellpadding="0" cellspacing="0" width="600px">
           <tr>
               <td><img alt="画像" src="http://example.com/image.jpg" width="600px" style="width:600px;"></td>
           </tr>
           <tr>
               <table border="1px" cellpadding="0" cellspacing="0" width="600px">
                   <tr>
                       <td width="50%">テキスト1</td>
                       <td width="50%">テキスト2</td>
                   </tr>
               </table>
           </tr>
       </table>
   </body>
</html>
ENDTEXTBLOCK

使用関数

参考文献

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