Sub Добавить_в_Календарь()
    Dim NS As Object, Oapp As Object
    Dim Item As Object
    Set Oapp = CreateObject("Outlook.Application")
    Set NS = Oapp.GetNamespace("MAPI")
    Set Item = Oapp.CreateItem(1)
    Item.Body = "Текст"
    Item.Subject = "Тема"
    Item.Start = Now + 1
    Item.End = Now + 2
    Item.Categories = "Очень важная"
    Item.Location = "Привоз"
    Item.Duration = 10000
    Item.ReminderSet = False
    Item.ReminderMinutesBeforeStart = 1
    Item.Save
    Set NS = Nothing
End Sub