Creating a new "All Day Event" In Outlook Using Excel 2010

[bloodmilksky]

Hi Guys, I hope you are all well.

I was just wondering if anyone knows how to use VBA/Excel to Create a new all day event In A Specific Calendar in outlook. The name of the calendar would be "UK Customer Services Calendar" and The Date Range would be Defined in Cells A1 And A2. Any Help Or Guidance would be great.

many thanks and all the best

BMS ^_^

 

[Worf]

Hi

' Excel module
Sub CustomCalendar()
Dim outapp As Object, newitem As AppointmentItem, f As Folder
Set outapp = CreateObject("Outlook.Application")
Set f = outapp.Session.GetDefaultFolder(olFolderCalendar).Folders("UK Calendar")
Set newitem = f.Items.Add(olAppointmentItem)
With newitem
    .AllDayEvent = True
    .Start = [a1]
    .End = [a2]
    .Subject = "Excel Seminar3"
    .Save
End With
End Sub

 

[bloodmilksky]

Hi thank you for your help.

I am getting a compile error: user - defined type not defined on the below

, newitem As AppointmentItem

 

[RoryA]

Please follow the forum rules on cross-posting. Thank you.

 

[bloodmilksky]

hi guys,

this has also been posted on VBA Express

Creating a new "All Day Event" In Outlook Using Excel 2010

due to the initial posting time of this question.

many thanks

Jamie

 

[Worf]

· Add this reference:VBE>Tools>References>Microsoft Outlook Object Library
· See if the code below displays the desired folder:

' Outlook module
Sub MyCalendars()
Dim f As Folder, subf As Folder
Set f = Application.Session.GetDefaultFolder(olFolderCalendar)
MsgBox f.Folders.Count & " folder(s) available"
For Each subf In f.Folders
    MsgBox subf.Name
Next
End Sub