Page 2 of 2
Re: Outlook OLE
Posted:
Tue Nov 24, 2009 2:35 pm
by 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
Re: Outlook OLE
Posted:
Sun Dec 20, 2009 12:06 am
by 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.
Re: Outlook OLE
Posted:
Fri Apr 16, 2010 3:06 pm
by 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
Re: Outlook OLE
Posted:
Fri Apr 16, 2010 3:24 pm
by MarcoBoschi
Re: Outlook OLE
Posted:
Fri Apr 16, 2010 3:43 pm
by 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.