olOutlook "BusyStatus"

I'm sending an appointment to Outlook from Visual Foxpro and I'm having a problem sending the 'BusyStatus' command.
(it really doesn't matter that this is Foxpro, its an Outlook Property.  .BusyStatus is the property that indicates "Show time as: Tentative". etc

The basic code is:

   #define olAppointmentItem 1
     loOutlook=createobject("outlook.application")
     loAppointmentItem=loOutlook.createitem(olAppointmentItem)

     with loAppointmentItem
        .start       = STARTDATETIME
        .end          = ENDDATETIME
        .AllDayEvent  = .T.
        .subject      = "Test Subject"
        .body         = "Test Body"
*        .BusyStatus   = ".olFree"     && Doesn't work
*        .BusyStatus.olTentative            && Doesn't work
         If m.DisplayMsg = .T.
            .Display
         Else
            .Save
         Endif
      endwith

My problem is that I can't get the .BusyStatus to work and I'm wondering what the correct usage is.  Subject is defined as a Read/write String so its a string enclosed in quotes.  .BusyStatus is defined as Read/write Long
LVL 10
HDWILKINSAsked:
Who is Participating?
 
HDWILKINSAuthor Commented:
0
 
HDWILKINSAuthor Commented:
Thanks  .busyStatus=3 works

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.