vbc /r:Microsoft.Office.Interop.Outlook.dll OutlookTasks.vb
Imports Microsoft.Office.Interop.Outlook
Module Module1
Sub Main()
' Outlookアプリケーションオブジェクトを作成
Dim outlookApp As New Application()
' OutlookのNamespaceを取得
Dim outlookNamespace As [NameSpace] = outlookApp.GetNamespace("MAPI")
' タスクリストフォルダを取得
Dim tasksFolder As MAPIFolder = outlookNamespace.GetDefaultFolder(OlDefaultFolders.olFolderTasks)
' タスクアイテムを取得
Dim tasks As Items = tasksFolder.Items
' 各タスクをループして表示
For Each task As TaskItem In tasks
Console.WriteLine("タスク: " & task.Subject)
Console.WriteLine("期限: " & task.DueDate)
Console.WriteLine("------------------------")
Next
' コンソールウィンドウを閉じないためにキー入力を待機
Console.WriteLine("タスク一覧の表示が終了しました。Enterキーを押して終了します。")
Console.ReadLine()
End Sub
End Module