home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
fox
/
workgrp
/
sp_save.prg
< prev
next >
Wrap
Text File
|
1993-09-02
|
2KB
|
74 lines
SET LIBRARY TO foxmapi.fll
hmapisession = 0
hsplussession = 0
retval=mplogon(0, "", "", 3, 0, @hmapisession)
retval=spbegin(hmapisession, 0, 0, 0, @hsplussession)
=mpcursor("SPlusAppt", "")
=mpcursor("SPlusAttd", "")
=mpcursor("SPlusMesg", "")
SELECT splusappt
SET SAFETY OFF
ZAP
SET SAFETY ON
APPEND BLANK
REPLACE reserved WITH 0
REPLACE itemtype WITH "OrganizedMeeting"
REPLACE flags WITH 0
REPLACE assoccount WITH 0
REPLACE orgitemid WITH ""
REPLACE attendcnt WITH 1
REPLACE recurrence WITH ""
REPLACE datestart WITH "1993/08/16 12:30"
REPLACE dateend WITH "1993/08/16 13:30"
REPLACE TEXT WITH "Hello from Foxprow"
retval=mpresolve(0, 0, "Jenny Wing", 9, 0, "MapiAttd")
WAIT WINDOW "The MPResolveName code is " + STR(retval)
SELECT mapiattd
GOTO TOP
REPLACE reserved WITH 0
REPLACE recipclass WITH 1
SELECT splusattd
SET SAFETY OFF
ZAP
SET SAFETY ON
APPEND BLANK
REPLACE reserved WITH 0
REPLACE usertype WITH "Individual"
REPLACE STATUS WITH 1
lpszitemid = ""
retval = spsaveappt(hsplussession, 0, "", "SPlusAppt", "", "SPlusAttd", "MapiAttd", 0, 0, @lpszitemid)
WAIT WINDOW "return from SPSaveAppt = " + STR(retval) + " ItemID = " + lpszitemid
SELECT splusmesg
APPEND BLANK
REPLACE reserved WITH 0
REPLACE subject WITH splusappt.text
REPLACE notetext WITH ""
REPLACE messagtype WITH "IPM.Microsoft Schedule.MtgReq"
REPLACE daterecved WITH "1993/06/15 10:30"
REPLACE convertnid WITH ""
REPLACE flags WITH 65536
REPLACE recipcount WITH splusappt.attendcnt
REPLACE filecount WITH 0
REPLACE sentforcnt WITH 0
retval = spsendmeet(0, 0, "SPlusMesg", "MapiAttd", "", "", "SPlusAppt", "", "SPlusAttd", "MapiAttd", 0, 0)
WAIT WINDOW "return from SPSendMeet = " + STR(retval)
retval=spend(hsplussession, 0, 0, 0)
retval=mplogoff(hmapisession, 0, 0, 0)
SET LIBRARY TO