Add appointment to public calendar

[avarusbrightfyre]

I have been searching for several days now for code that will add an appointment to a public calendar on our exchange network using vba code. Here is what I've found:

Dim olApp As New Outlook.Application
Dim olNameSpace As Outlook.NameSpace
Dim olPublicFolder As Outlook.MAPIFolder
Dim olAppt As Outlook.AppointmentItem
Set olApp = CreateObject("Outlook.Application")
Set olNameSpace = olApp.GetNamespace("MAPI")
Set olPublicFolder = olNameSpace.Folders("Public Folders/All Public Folders/Sub-folder/Sub-folder/Sub-folder/Sub-folder/Actual Calendar File")
Set olAppt = olApp.CreateItem(olAppointmentItem)
With olAppt
.Subject = "TEST SUBJECT"
.Body = "TEST BODY"
.LOCATION = "TEST LOCATION"
.Move olPublicFolder
End With ' olAppt
olAppt.Save



This appears to be close to working, but gives me an error message saying that it can't find the file. Debugging highlights the "Set olPublicFolder" line. Is there something wrong with the code, or maybe is there a better way to accomplish this? I'm in the military, so I've changed the folder path listed above for security reasons.

[June7]

Probably need pathing, like:

Drive designation:
"C:\PublicFolders..."

Or

UNC (universal naming convention):
"\\network server name here\PublicFolders..."

[avarusbrightfyre]

That makes sense, but sticking the server name in front of my path doesn't seem to work. Is there some sort of special formatting or something that will point to the microsoft exchange server that the calendar is on?

[June7]

Sorry, have no experience with MS Exchange. The pathing methods I suggested always work in my code.

[hellothereu]

If you have a public folder or personal folder that you want to
process in code then the following will show you how to do it. The key to this
is finding out what the folders unique EntryID is. This unique id can be used to
set a reference to a folder without having to go through loads of nested folders
to get there.

Paste the following VBA code into a new module.

Private Sub GetOutlookFolderID() Dim olfolder As Outlook.MAPIFolder Dim olapp As Outlook.Application Set olapp = CreateObject("Outlook.Application") Set olfolder = olapp.GetNamespace("MAPI").PickFolder olfolder.Display Debug.Print olfolder.EntryID Set olfolder = Nothing Set olapp = Nothing End Sub Private Sub GetFolderFromID() Dim olfolder As Outlook.MAPIFolder Dim olapp As Outlook.Application Set olapp = CreateObject("Outlook.Application") Set olfolder = olapp.GetNamespace("Mapi").GetFolderFromID("Insert EntryIDHere") olfolder.Display Set olfolder = Nothing Set olapp = Nothing End Sub

Run the GetOutlookFolderID sub which will
open an outlook session and pop up a choose folder dialog box. Browse to the
folder in question and double click it. This will then display that folder in a
new window (check it's opened the correct one) and send the entry ID to the
debug window.

Go to the debug window and copy the
extremely long EntryID string and replace the text in the second sub where it
says InsertEntryIDHere with the text from the debug window.

Run the second sub which should pop up the same window. Points to note. Some entryID's are changed when folders are moved about. This was taken from http://www.fabalou.com/Outlook/GetOutlookFolder.asp really helped me out when I went through this process