Creating a new Calendar appointment in Visual Basic

  • Thread starter Thread starter hoan
  • Start date Start date
H

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.
 
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
 
Back
Top