Creating a new Calendar appointment in Visual Basic

[hoan]

Hi there,

I am new to Visual Basic and I am trying to
programmtically create a new Calendar appointment in a
folder called "testCalendar" in the "Public Folders/All
Public Folders".

Can someone show me how.



Thank you.

 

[Ken Slovak - [MVP - Outlook]]

Dim oFolder As Outlook.MAPIFolder
Dim oAppt As Outlook.AppointmentItem
Dim oOL As Outlook.Application

Set oOL = CreateObject("Outlook.Application")
Set oFolder = oOL.Session.Folders("Public Folders"). _
Folders("All Public Folders").Folders("testCalendar")
Set oAppt = oFolder.Items.Add
'whatever