Create appointment in outlook

[cdmmaui]

Hello,

Can you someone provide an example of how to create an appointment in outlook.

Thank you,

[James Bott]

I copied this from another message. I have never tried it and you probably don't need the SET DATE TO GERMAN unless you are Germany.

James

Code: Select all  Expand view

FUNCTION AddOLappointment( cDate, cTime, nLenInMin, cSubject, cNotiz )

   LOCAL hOutlook
   LOCAL hApptItem
   LOCAL dDate
   LOCAL lSave := .F.
   TRY
      hOutlook  := CreateOLEObject( "Outlook.Application" )
      hAppItem  := OLEInvoke( hOutlook, "CreateItem", 1 )

      SET CENTURY ON
      dDate := CToD( cDate )
      OLESetProperty( hAppItem, "Start", cDate + " " + cTime )
      OLESetProperty( hAppItem, "StartTime", cTime + ":00" )
      SET CENTURY ON
      SET Date TO GERMAN
      OLESetProperty( hAppItem, "Duration", nLenInMin * 60 )
      OLESetProperty( hAppItem, "Subject", cSubject )
      OLESetProperty( hAppItem, "Body", cNotiz )
      OLESetProperty( hAppItem, "Mileage", 225 )
      OLEInvoke( hAppItem, "Save" )
      hAppItem := NIL
      hOutlook := NIL
      lSave := .t.
   CATCH
      lSave := .f.
   END
RETURN (lSave)

[cdmmaui]

Hi James,

Thanks for your help!

Regards,

[Enrico Maria Giordano]

James, why do you use OLEInvoke() and OLESetProperty() instead of the common object oriented syntax? As an example:

hAppItem := hOutlook:CreateItem( 1 )

And, by the way, I would name hOutlook and hAppItem as oOutlook and oAppItem.

EMG

[James Bott]

Enrico,

>James, why do you...

I didn't write it.

James

[Enrico Maria Giordano]

Ops! Sorry.

EMG