home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
fox
/
workgrp
/
sp_appt.prg
< prev
next >
Wrap
Text File
|
1993-09-02
|
2KB
|
71 lines
SET LIBRARY TO foxmapi.fll
hmapisession = 0
retval=mplogon(0, "", "", 3, 0, @hmapisession)
=mpcursor("MapiRecip", "")
=mpcursor("SPlusRest", "SPlusRestr")
SELECT mapirecip
SET SAFETY OFF
ZAP
SET SAFETY ON
APPEND BLANK
REPLACE mapirecip.reserved WITH 0
REPLACE mapirecip.recipclass WITH 0
REPLACE mapirecip.name WITH ""
REPLACE mapirecip.address WITH ""
REPLACE mapirecip.eidsize WITH 0
REPLACE mapirecip.entryid WITH ""
SELECT splusrestr
SET SAFETY OFF
ZAP
SET SAFETY ON
APPEND BLANK
REPLACE splusrestr.reserved WITH 0
REPLACE splusrestr.itemtype WITH "Appt"
REPLACE splusrestr.resttype WITH "Day"
REPLACE splusrestr.restdata WITH ""
hsession = 0
retval=spbegin(0, 0, 0, 0, @hsession)
itemid=SPACE(1)
retval=spfindnext(hsession, 0, "MapiRecip", "SPlusRestr", "", 0, 0, @itemid)
WAIT WINDOW "return from SPFindNext = " + STR(retval)
retval=spreadappt(hsession, 0, "MapiRecip", itemid, 0, 0, "SPlusAppt", "SPlusAssoc", "SPlusAttd", "MapiAttd")
WAIT WINDOW "return from SPReadAppt = " + STR(retval)
SELECT mapirecip
LIST
SELECT splusappt
LIST
SELECT splusassoc
LIST
*select SPlusAttd
*list
*select MapiAttd
*list
IF retval = 0
SELECT splusappt
GOTO TOP
REPLACE splusappt.text WITH "Hello from foxprow"
retval=spsaveappt(hsession, 0, "MapiRecip", "SPlusAppt", "SPlusAssoc", "SPlusAttd", "MapiAttd", 0, 0, @itemid)
WAIT WINDOW "return from SPSaveAppt = " + STR(retval)
ENDIF
retval=spend(hsession, 0, 0, 0)
retval=mplogoff(hmapisession, 0, 0, 0)
SET LIBRARY TO