Hi Guys,

I'm working on an Outlook "Vacation Request" Custom Form and I need your help.

I have 3 forms: (Vacation Request), (Approved) & (Declined)

On My Approved form I have 8 option buttons and a calendar appointment click item.

I'm using this code:

Sub Item_CustomPropertyChange(ByVal Name)
    select case name
        case "Member"
            if item.userproperties("Member").value = "Montreal" then
                item.bcc = "email@company.com"
            elseif item.userproperties("Member").value = "Quebec" then
                item.bcc = ""
                item.bcc = "email@company.com"
            elseif item.userproperties("Member").value = "Vancouver" then
                item.bcc = ""
                item.bcc = "email@company.com"
            elseif item.userproperties("Member").value = "White Rock" then
                item.bcc = ""
                item.bcc = "email@company.com"
            elseif item.userproperties("Member").value = "Toronto" then
                item.bcc = ""
                item.bcc = "email@company.com"
            elseif item.userproperties("Member").value = "Ottawa" then
                item.bcc = ""
                item.bcc = "email@company.com"
            elseif item.userproperties("Member").value = "Calgary" then
                item.bcc = ""
                item.bcc = "email@company.com"
            elseif item.userproperties("Member").value = "Halifax" then
                item.bcc = ""
                item.bcc = "email@company.com"
            end if
    end select
End Sub


Sub CreateAppointment_Click()
    Set myApptItem= Application.CreateItem(1)
    myApptItem.Start = item.userproperties("Vacation Start")
    myApptItem.End = item.userproperties("Vacation End")
    myApptItem.Subject = item.userproperties("Employee") & " on vacation"
    myApptItem.Display
End Sub


My question is... I would like to know that if the user clicks on the creatappoint item, that it goes to the corresponding city's calendar in our public folder.

Example:

Public folders
    All Public Folders
     Nationwide Offices(Folder)
         Vancouver City(Folder)
             Vancouver City Calendar(Calendar Object)

Whatever info than can help would be much appreciated.

Does Anyone Have any idea on how I could be helped?