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
> 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.