Outlook OLE

[James Bott]

Michel,

I tried Googling "outlook calendar item creation time" and there are a number of references to this topic which may help.

James

[Rochinha]

James,

This may help you:

Code: Select all  Expand view

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

[MarcoBoschi]

Michel,
did you resolve this problem?
valtype of these properties is always "D" ?


oCalendar:Item:SentOn

oCalendar:Item:CreationTime

oCalendar:Item:ReceivedTime

Thanks a lot
marco

[MarcoBoschi]

I found this
http://groups.google.com/group/comp.lan ... 45c125e167
Thanks

[nageswaragunupudi]

>>
valtype of these properties is always "D" ?
>>
In xHarbour ValType() returns 'D' for both simple Dates and DateTime values. HB_IsDateTime( d ) can be used to ascertain if the variable has Time part also.

We can use TTOC( <d> ) to show both date and timeparts formatted.