home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
fox
/
workgrp
/
splusall.prg
< prev
next >
Wrap
Text File
|
1993-09-02
|
3KB
|
130 lines
SET LIBRARY TO foxmapi.fll
#DEFINE sp_no_request_sent 0
#DEFINE sp_no_response 1
#DEFINE sp_positive_response 2
#DEFINE sp_negative_response 3
#DEFINE sp_ambiguous_response 4
#DEFINE sp_response_requested 65536
#DEFINE sp_private 1
#DEFINE sp_tentative 4
#DEFINE sp_prv_project 2
#DEFINE sp_boss_wants_copy 1
#DEFINE sp_default_alarm 4096
#DEFINE sp_mod_flags 65536
#DEFINE sp_mod_assoc 131072
#DEFINE sp_mod_attendees 262144
#DEFINE sp_mod_text 524288
#DEFINE sp_mod_times 4194304
#DEFINE sp_mod_project_name 8388608
#DEFINE sp_mod_priority 16777216
#DEFINE sp_mod_all 33488896
#DEFINE sp_suppress_recipients 4096
#DEFINE sp_e_inv_sent_for 10000
#DEFINE sp_e_not_installed 10005
#DEFINE sp_e_no_items 10010
#DEFINE sp_e_no_schedule 10015
#DEFINE sp_e_no_privilege 10020
#DEFINE sp_e_address_format 10025
#DEFINE sp_e_user 10030
#DEFINE sp_e_item 10035
#DEFINE sp_e_itype 10040
#DEFINE sp_e_flags 10045
#DEFINE sp_e_assoc 10050
#DEFINE sp_e_organizer 10055
#DEFINE sp_e_org_id 10060
#DEFINE sp_e_attendees 10065
#DEFINE sp_e_time 10070
#DEFINE sp_e_priority 10075
#DEFINE sp_e_month 10080
#DEFINE sp_e_restriction 10085
#DEFINE sp_e_alarm_ring_in_past 10090
#DEFINE sp_e_not_online 10095
#DEFINE success_no_schedule 10100
hmapisession = 0
retval=mplogon(0, "", "", 3, 0, @hmapisession)
=mpcursor("MapiRecip", "")
=mpcursor("SPlusRest", "SPlusRest")
SELECT mapirecip
SET SAFETY OFF
ZAP
SET SAFETY ON
APPEND BLANK
REPLACE reserved WITH 0
REPLACE recipclass WITH 0
REPLACE name WITH ""
REPLACE address WITH ""
REPLACE eidsize WITH 0
REPLACE entryid WITH ""
SELECT splusrest
SET SAFETY OFF
ZAP
SET SAFETY ON
APPEND BLANK
REPLACE reserved WITH 0
REPLACE itemtype WITH "Appt"
REPLACE resttype WITH "Day"
REPLACE restdata WITH ""
hsession = 0
retval=spbegin(0, 0, 0, 0, @hsession)
lpszitemid=SPACE(1)
retval=spuserinfo(hsession, 0, "MapiRecip", 0, 0, "SPlusUser")
WAIT WINDOW "return from SPUserInfo = " + STR(retval)
SELECT splususer
LIST
retval=spfindnext(hsession, 0, "MapiRecip", "SPlusRest", "", 0, 0, @lpszitemid)
WAIT WINDOW "return from SPFindNext = " + STR(retval)
retval=spreadappt(hsession, 0, "MapiRecip", lpszitemid, 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
SELECT splusappt
GOTO TOP
REPLACE TEXT WITH "Hello from foxprow"
retval=spsaveappt(hsession, 0, "MapiRecip", "SPlusAppt", "SPlusAssoc", "SPlusAttd", "MapiAttd", 0, 0, @lpszitemid)
WAIT WINDOW "return from SPSaveAppt = " + STR(retval)
*retVal=SPDelete(hSession, 0, "MapiRecip", ItemId, 0, 0)
*wait window "return from SPDelete = " + str(retVal)
retval=spend(hsession, 0, 0, 0)
retval=mplogoff(hmapisession, 0, 0, 0)
SET LIBRARY TO