もくじ
The following two tabs change content below.
taka
あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪
最新記事 by taka (全て見る)
- Excel関数【LENB関数】文字列のバイト数を求める - 2018年9月20日
- Excel関数【Mod関数】割り算の余りを取得する - 2018年9月19日
- Excel関数【LEN関数】文字数をカウントする - 2018年9月18日
- VBA YahooAPIを使って２つの場所の経路を取得してみた - 2018年9月17日
- VBA Mod演算子を使って特定の倍数であるかを調べる - 2018年9月16日
どうも、takaです(^^♪
今回は「ExcelとOutlookの連携」のパート5です！
前回ご紹介してきたのは「予定表」のお話でしたが、今回は「タスク」のお話です！
タスク管理というのは仕事の作業の進捗表というようなもののようです(*_*;
私のような中小企業の一般事務の平社員では使わないもの？かもしれません・・・単に私が必要ないだけ？
というわけで、前回に引き続きExcelの表からタスクに登録するプログラムをご紹介していきます！
前回の記事：ExcelとOutlook連携パート4 【Excelの表から予定表へ自動入力】
予定表の元となるExcelの表を準備
前回同様表を簡単に用意してしまいましょう！
今回用意した項目は
- タスク名
- タスク内容
- 開始日
- 終了日
- 進捗
の５つです。
【Excelの表からタスクへ自動入力】サンプルコード
ではサンプルコードをご紹介します。
コードの説明はコメント欄にて書いてあります！ちなみに動作後はこんな感じです(*_*;
私人使用していないのでこれでいいのか疑問なのですが、もしよろしければ参考までに・・・
参考サイト：MSDN:TaskItem プロパティ (Microsoft)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 | 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サイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Twitterフォロー
Twitterもやってます(^^♪ Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪
Follow @takabou63
使用OS：
コメントを残す