Wrox Programmer Forums
|
VBScript For questions and discussions related to VBScript.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the VBScript section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
  #1 (permalink)  
Old May 16th, 2005, 05:58 PM
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@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.
Reply With Quote
  #2 (permalink)  
Old June 30th, 2005, 12:30 PM
Registered User
 
Join Date: May 2005
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Default

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









Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.