Занести термИны в календарь

[InTacto]

для 11 версии в хелпе по VBA для аутлука нашел:

Sub DisplayATaskFolder()
Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myTasks As Outlook.MAPIFolder
Dim myFolder As Outlook.MAPIFolder
Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
Set myTasks = myNamespace.GetDefaultFolder(olFolderTasks)
Set myFolder = myTasks.Folders(1)
myFolder.Display
End Sub

Рекомендую сначала все в макросах делать (там есть подсказки по объектной модели, а так же примеры в справке), а потом уже в нав переносить.