Changing Outlook calendar using VB
I have written a program using VB6 that puts items into the default Outlook calendar. One of my colleagues has now suggested that it would be better if it put them into a seperate Outlook calendar (within the same Outlook account) so that we can keep them seperate from the main departmental events. Having searched lots of forums, I am still no nearer a solution. Can anybody help please?
Re: Changing Outlook calendar using VB
Welcome to the Forums :)
I have tons of code on these forums for Outlook. Try a search by my username and outlook. :)
You will want to use the Folders collection of the calendar MAPI Folder object and check if the sub calendar exists or not. If it doesnt then create it.
VB Code:
Option Explicit
'Add a reference to MS Outlook xx.0 Object Library
Private Sub Form_Load()
Dim oApp As Outlook.Application
Dim oCalendar As Outlook.MAPIFolder
Dim oSubCalendar As Outlook.MAPIFolder
Set oApp = New Outlook.Application
Set oCalendar = oApp.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar)
If TypeName(oCalendar.Folders.Item("Sub Calendar")) = "Nothing" Then
Set oSubCalendar = oCalendar.Folders.Add("Sub Calendar", olFolderCalendar)
Else
Set oSubCalendar = oCalendar.Folders.Item("Sub Calendar")
End If
'...
'...
End Sub