Thread: I need help!
View Single Post
  #1 (permalink)  
Old May 16th, 2005, 05:58 PM
Crazygiant Crazygiant is offline
Registered User
 
Join Date: May 2005
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Default I need help!

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 protected]"
            elseif item.userproperties("Member").value = "Quebec" then
                item.bcc = ""
                item.bcc = "[email protected]"
            elseif item.userproperties("Member").value = "Vancouver" then
                item.bcc = ""
                item.bcc = "[email protected]"
            elseif item.userproperties("Member").value = "White Rock" then
                item.bcc = ""
                item.bcc = "[email protected]"
            elseif item.userproperties("Member").value = "Toronto" then
                item.bcc = ""
                item.bcc = "[email protected]"
            elseif item.userproperties("Member").value = "Ottawa" then
                item.bcc = ""
                item.bcc = "[email protected]"
            elseif item.userproperties("Member").value = "Calgary" then
                item.bcc = ""
                item.bcc = "[email protected]"
            elseif item.userproperties("Member").value = "Halifax" then
                item.bcc = ""
                item.bcc = "[email protected]"
            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.
Reply With Quote