Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Outlook Folders pointed to by VFP
Message
De
04/04/2005 12:28:04
 
 
À
04/04/2005 12:16:32
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Versions des environnements
Visual FoxPro:
VFP 6 SP5
OS:
Windows 2000 SP4
Database:
Visual FoxPro
Divers
Thread ID:
01001252
Message ID:
01001256
Vues:
12
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform