FiveTech Support Forums

#include "fivewin.ch"
#include "common.ch"

#define olFolderDeletedItems               3
#define olFolderOutbox                     4
#define olFolderSentMail                   5
#define olFolderInbox                      6
#define olFolderCalendar                   9
#define olFolderContacts                  10
#define olFolderJournal                   11
#define olFolderNotes                     12
#define olFolderTasks                     13
#define olFolderDrafts                    16
#define olPublicFoldersAllPublicFolders   18

#define olMailItem                         0 
#define olAppointmentItem                  1
#define olContactItem                      2
#define olTaskItem                         3
#define olJournalItem                      4
#define olNoteItem                         5
#define olPostItem                         6

function Main()
   LOCAL objOutlook
   LOCAL recipient, message, subject

   SysSettings()

   // Create Outlook object reference
   objOutlook := OpenOleServer( "Outlook.Application" )
   IF objOutlook <> NIL

      // Create a new Appointment
      objAppointment := objOutlook:CreateItem(olAppointmentItem)

      // Create a new Appointment
      objAppointment:Start := date() + 10
      objAppointment:AllDayEvent := .T.

      // insert the Appointment
      objAppointment:Subject  := "Anual Inventory"
      objAppointment:Body     := "Anual Inventory of 2009."
      objAppointment:Location := "5volution.COM"

      objAppointment:ReminderMinutesBeforeStart := 15
      objAppointment:ReminderSet := .T.

      // Save the data 
      objAppointment:Save()

      MsgStop( "Appoint included." )
   ENDIF
   RETURN

FUNCTION OpenOleServer( cServer )
   LOCAL oServer
   IF ISCHARACTER( cServer )
      IF IsActivex( cServer )
         oServer := TOleAuto():New( cServer )
         IF oServer == NIL
            //? "ERROR! " + cServer + " not available. [" + OLEERRORTEXT()+ "]"
            RETURN NIL
         ENDIF
      ENDIF
   ENDIF
   RETURN oServer

PROCEDURE SysSettings()
   SET SCOREBOARD OFF
   SET CENTURY     ON
   SET DATE   ITALIAN
   SET BELL       OFF
   SET DELETED     ON
   SET EXACT      OFF
   SET CONFIRM     ON
   SET ESCAPE      ON
   SET WRAP        ON
   SET EPOCH TO  2000
   RETURN .t.