ExcelとOutlook連携パート5　【Excelの表からタスクへ自動入力】

1 予定表の元となるExcelの表を準備
2 【Excelの表からタスクへ自動入力】サンプルコード
- 2.1 共有:

この記事を書いた人
最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

予定表の元となるExcelの表を準備

前回同様表を簡単に用意してしまいましょう！

今回用意した項目は

タスク名
タスク内容
開始日
終了日
進捗

の５つです。

【Excelの表からタスクへ自動入力】サンプルコード

ではサンプルコードをご紹介します。

コードの説明はコメント欄にて書いてあります！ちなみに動作後はこんな感じです(*_*;

私人使用していないのでこれでいいのか疑問なのですが、もしよろしければ参考までに・・・

参考サイト：MSDN:TaskItem プロパティ (Microsoft)

Sub sample()
Dim i As Long
Dim oApp As Outlook.Application
Dim myNameSpace As Outlook.Namespace
Dim myFolder As Outlook.Folder
Set oApp = CreateObject("Outlook.Application")
Set myNameSpace = oApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(13) '規定のフォルダーの指定：9 は予定表・６は受信トレイなので今回は9を指定
myFolder.Display 'Outlookを表示
oApp.ActiveWindow.WindowState = 2 'ウィンドウサイズの指定
Dim title As String 'タスクのタイトル
Dim Contents As String 'タスクの内容
Dim Start As String 'タスクの開始日
Dim ed As String 'タスクの終了日
Dim proses As String 'タスクの進捗状況
i = 2
Do Until Cells(i, 1).Value = "" '表が終わるまでループ
'Excelの表のデータを取得
title = Cells(i, 1)
Contents = Cells(i, 2)
Start = Cells(i, 3).Text
ed = Cells(i, 4).Text
proses = Cells(i, 5).Text
priority = Cells(i, 6).Text
'予定表の処理
Dim TsItem As Outlook.TaskItem
Set TsItem = oApp.CreateItem(3) 'タスク作成
TsItem.Display '編集画面表示
TsItem.Subject = title
TsItem.Body = place
TsItem.StartDate = Start
TsItem.DueDate = ed
Select Case priority
Case "延期"
TsItem.Status = olTaskDeferred
Case "進捗中"
TsItem.Status = olTaskInProgress
Case "完了"
TsItem.Status = olTaskComplete
Case "待機中"
TsItem.Status = olTaskWaiting
Case "未開始"
TsItem.Status = olTaskNotStarted
End Select
'Subject＝タスクの名前
'Body＝タスクの内容
'StartDate＝タスクの開始の日時
'DueDate＝予定終了の日時
'Status＝進捗状況、進捗状況は以下の定数で指定↓
'olTaskComplete 仕事は完了しています｡
'olTaskDeferred 仕事は延期されています｡
'olTaskInProgress 仕事は作業中です｡
'olTaskNotStarted 仕事はまだ開始していません｡
'olTaskWaiting 仕事は待機中です｡
'----------------------------------------
TsItem.Close 0
i = i + 1
Loop '表の予定がなくなるまで繰り返し
Set myFolder = Nothing  'プロシージャー終了時に開放されるのは知っているよ！でも一応（笑）
Set myNameSpace = Nothing
Set oApp = Nothing
End Sub

Sub sample()

Dim i As Long

Dim oApp As Outlook.Application

Dim myNameSpace As Outlook.Namespace

Dim myFolder As Outlook.Folder

Set oApp = CreateObject("Outlook.Application")

Set myNameSpace = oApp.GetNamespace("MAPI")

Set myFolder = myNameSpace.GetDefaultFolder(13) '規定のフォルダーの指定：9 は予定表・６は受信トレイなので今回は9を指定

myFolder.Display 'Outlookを表示

oApp.ActiveWindow.WindowState = 2 'ウィンドウサイズの指定

Dim title As String 'タスクのタイトル

Dim Contents As String 'タスクの内容

Dim Start As String 'タスクの開始日

Dim ed As String 'タスクの終了日

Dim proses As String 'タスクの進捗状況

i = 2

Do Until Cells(i, 1).Value = "" '表が終わるまでループ

'Excelの表のデータを取得

title = Cells(i, 1)

Contents = Cells(i, 2)

Start = Cells(i, 3).Text

ed = Cells(i, 4).Text

proses = Cells(i, 5).Text

priority = Cells(i, 6).Text

'予定表の処理

Dim TsItem As Outlook.TaskItem

Set TsItem = oApp.CreateItem(3) 'タスク作成

TsItem.Display '編集画面表示

TsItem.Subject = title

TsItem.Body = place

TsItem.StartDate = Start

TsItem.DueDate = ed

Select Case priority

Case "延期"

TsItem.Status = olTaskDeferred

Case "進捗中"

TsItem.Status = olTaskInProgress

Case "完了"

TsItem.Status = olTaskComplete

Case "待機中"

TsItem.Status = olTaskWaiting

Case "未開始"

TsItem.Status = olTaskNotStarted

End Select

'Subject＝タスクの名前

'Body＝タスクの内容

'StartDate＝タスクの開始の日時

'DueDate＝予定終了の日時

'Status＝進捗状況、進捗状況は以下の定数で指定↓

'olTaskComplete 仕事は完了しています｡

'olTaskDeferred 仕事は延期されています｡

'olTaskInProgress 仕事は作業中です｡

'olTaskNotStarted 仕事はまだ開始していません｡

'olTaskWaiting 仕事は待機中です｡

'----------------------------------------

TsItem.Close 0

i = i + 1

Loop '表の予定がなくなるまで繰り返し

Set myFolder = Nothing 'プロシージャー終了時に開放されるのは知っているよ！でも一応（笑）

Set myNameSpace = Nothing

Set oApp = Nothing

End Sub

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

カテゴリーで絞る

月で探す

ExcelとOutlook連携パート5　【Excelの表からタスクへ自動入力】

taka

最新記事 by taka (全て見る)

予定表の元となるExcelの表を準備

【Excelの表からタスクへ自動入力】サンプルコード

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link

コメントを残すコメントをキャンセル

現在のオンライン数

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

カテゴリーで絞る

月で探す

taka

最新記事 by taka (全て見る)

予定表の元となるExcelの表を準備

【Excelの表からタスクへ自動入力】サンプルコード

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link

共有:

コメントを残す コメントをキャンセル

RECOMMENDこちらの記事も人気です。

VBA ユーザーフォームで音楽や動画を再生【WindowsMediaPl…

ExcelVBAで簡単にユーザーフォームのサイズ変更する方法

VBA【先月末/今月末/来月末を取得する方法】

VBAで漢字学習ツールを作成してみた

VBA Excelを非表示にしたシステムの作り方

VBA YahooAPIを使って２つの場所の経路を取得してみた

ExcelとOutlook連携パート4 【Excelの表から予定表へ自動…

VBA 【プログレスバー】進捗状況を可視化する

現在のオンライン数

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

コメントを残すコメントをキャンセル

VBA　ユーザーフォームで音楽や動画を再生【WindowsMediaPl…

VBA　Excelを非表示にしたシステムの作り方

VBA　YahooAPIを使って２つの場所の経路を取得してみた

ExcelとOutlook連携パート4　【Excelの表から予定表へ自動…