005 Outlook VBA タスクアイテムの生成(CreateItem(olTaskItem))

こんにちは、くのへ@MasazaneKunoheです。

今日はタスクアイテムを生成する基本コードを纏めました。

タスクを追加するコード

次のコードを実行すると、「test」というタスクが生成されます。
そして、開始日が2021年3月30日、終了日が2021年3月31日、リマインダー設定は無し、でセットされます。

↓コピペで動くと思います。

Sub AddTaskItem()
'タスクをセットするマクロ
Dim objTaskItem As TaskItem
Set objTaskItem = CreateItem(olTaskItem)

With objTaskItem
    .Subject = "test"
    .StartDate = "2021/3/30"
    .DueDate = "2021/3/31"
    .ReminderSet = False
    If .ReminderSet = True Then
        .ReminderTime = "2021/3/30"
    End If
    .Body = "testだよ"
    
    .Save
End With


End Sub

objTaksItemというオブジェクトに、色々書きこんで、最後に.Saveメソッドで保存すれば出来上がり!!

蛇足

チョットだけマニアなお話。
上のコードのIf文のところですが、.ReminderSet自体の中身がTrueかFalseなので、別に↓こう書いてもいいんですが、私は.ReminderSet=Trueまで書く派です。
(ノンプログラマーとしては↑こう書いた方が分かりやすいと思う)

If .ReminderSet Then

次の記事でまた会いましょう~
🦅バサバサ~

感想等はツイッターにお願いします。こちら。
くのへスタジオはこちら。
Outlook-VBAコーナーはこちら。

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です