Marco's .NET Blog

Jetzt habe ich einen Webkalender erstellt und der Ruf nach der Übernahme nach Outlook wird lauter.

Also hier der erste Code-Schnippsel, um in Outlook (per VBA) einen Termin anzulegen:

Sub CreateEvent()
   Set objOUTL = CreateObject(“Outlook.Application”)
   Set appOUTL = objOUTL.CreateItem(1)

   With appOUTL
      .Start = “01.01.2009 10:00″
      .Duration = 30
      .Subject = “Das ist ein Testtermin”
      .AllDayEvent = False
      .Save
   End With

   Set appOUTL = Nothing
   Set objOUTL = Nothing
End Sub