こんにちは、くのへ@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コーナーはこちら。