Imports Microsoft.Office.Interop

Private Sub einfuegen()
    Dim oOutlook As Outlook.Application = New Outlook.Application
    Dim NS As Outlook.NameSpace = oOutlook.GetNamespace("MAPI")
    Dim oCal As Outlook.MAPIFolder = NS.GetDefaultFolder( _
      Outlook.OlDefaultFolders.olFolderCalendar)
    Dim olCalendarItems As Outlook.Items = oCal.Items
 
    Dim oEintrag As Outlook.AppointmentItem = CType(olCalendarItems.Add, _
      Outlook.AppointmentItem)
    oEintrag.Start = DateTime.Now
    oEintrag.Subject = "Mal sehen"
    oEintrag.Categories = "Testkategorie"
    oEintrag.Save()
End Sub