Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Outlook Folders pointed to by VFP
Message
From
04/04/2005 12:28:04
 
 
To
04/04/2005 12:16:32
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Environment versions
Visual FoxPro:
VFP 6 SP5
OS:
Windows 2000 SP4
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01001252
Message ID:
01001256
Views:
13
Okay, As I was writting this, I thought of a way. Went back and tried a couple things and got it to work. Here is the solution:
    IF poDemo.donline = .T.
*!*	    point to online calender
      =messagebox("Post to Online Demo Calendar")
      lcCalpath = loData.cOCalpath
      lcCalpath = [loOutlook.SESSION.Folders("Public Folders").Folders("All Public Folders").] + lcCalpath
      loCalendar = &lcCalpath
    ELSE
*!*	    point to normal calendar
      =messagebox("Post to Visit Demo Calendar")
      lcCalpath = loData.cCalpath
      lcCalpath = [loOutlook.SESSION.Folders("Public Folders").Folders("All Public Folders").] + lcCalpath
      loCalendar = &lcCalpath
    ENDIF  && if poDemo.donline = .T.
>Hi, All
>
> I have some code for putting appointments into a public calendar for my clients to share among themselves for getting things scheduled without bumping into each other. The problem I am having is that the path to the calendar is hard-coded at the moment. I need to have it as a variable, because they use two or more calendars for things. I have the paths stored in the config.fpw for which calendar belongs to which event, but I can not get the code to take the varible in to consideration without a syntax error. Can anyone help?
>
>My code now looks like this:
>
>    IF poDemo.donline = .T.
>*!*	    point to online calender
>      =messagebox("Post to Online Demo Calendar")
>      lcCalpath = loData.cOCalpath
>      loCalendar = loOutlook.SESSION.Folders("Public Folders").Folders("All Public Folders").&lcCalpath.
>    ELSE
>*!*	    point to normal calendar
>      =messagebox("Post to Visit Demo Calendar")
>      lcCalpath = loData.cCalpath
>      loCalendar = loOutlook.SESSION.Folders("Public Folders").Folders("All Public Folders").&lcCalpath.
>    ENDIF
>
>loData is an object that holds all my public variables for the application.
>The paths were read-in in a different procedure and the string is correct.
>loOutlook is my outlook application object.
>
>TIA
>Beth
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform