home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / fox / workgrp / sp_save.prg < prev    next >
Text File  |  1993-09-02  |  2KB  |  74 lines
  1. SET LIBRARY TO foxmapi.fll
  2.  
  3. hmapisession = 0
  4. hsplussession = 0
  5.  
  6. retval=mplogon(0, "", "", 3, 0, @hmapisession)
  7. retval=spbegin(hmapisession, 0, 0, 0, @hsplussession)
  8.  
  9. =mpcursor("SPlusAppt", "")
  10. =mpcursor("SPlusAttd", "")
  11. =mpcursor("SPlusMesg", "")
  12.  
  13. SELECT splusappt
  14. SET SAFETY OFF
  15. ZAP
  16. SET SAFETY ON
  17. APPEND BLANK
  18.  
  19. REPLACE reserved WITH 0
  20. REPLACE itemtype WITH "OrganizedMeeting"
  21. REPLACE flags WITH 0
  22. REPLACE assoccount WITH 0
  23. REPLACE orgitemid WITH ""
  24. REPLACE attendcnt WITH 1
  25. REPLACE recurrence WITH ""
  26. REPLACE datestart WITH "1993/08/16 12:30"
  27. REPLACE dateend WITH "1993/08/16 13:30"
  28. REPLACE TEXT WITH "Hello from Foxprow"
  29.  
  30. retval=mpresolve(0, 0, "Jenny Wing", 9, 0, "MapiAttd")
  31. WAIT WINDOW "The MPResolveName  code is " + STR(retval)
  32.  
  33. SELECT mapiattd
  34. GOTO TOP
  35. REPLACE reserved WITH 0
  36. REPLACE recipclass WITH 1
  37.  
  38. SELECT splusattd
  39. SET SAFETY OFF
  40. ZAP
  41. SET SAFETY ON
  42. APPEND BLANK
  43. REPLACE reserved WITH 0
  44. REPLACE usertype WITH "Individual"
  45. REPLACE STATUS WITH 1
  46.  
  47. lpszitemid = ""
  48.  
  49. retval = spsaveappt(hsplussession, 0, "", "SPlusAppt", "", "SPlusAttd", "MapiAttd", 0, 0, @lpszitemid)
  50. WAIT WINDOW "return from SPSaveAppt = " + STR(retval) + " ItemID = " + lpszitemid
  51.  
  52. SELECT splusmesg
  53. APPEND BLANK
  54.  
  55. REPLACE reserved WITH 0
  56. REPLACE subject WITH splusappt.text
  57. REPLACE notetext WITH ""
  58. REPLACE messagtype WITH "IPM.Microsoft Schedule.MtgReq"
  59. REPLACE daterecved WITH "1993/06/15 10:30"
  60. REPLACE convertnid WITH ""
  61. REPLACE flags WITH 65536
  62. REPLACE recipcount WITH splusappt.attendcnt
  63. REPLACE filecount WITH 0
  64. REPLACE sentforcnt WITH 0
  65.  
  66. retval = spsendmeet(0, 0, "SPlusMesg", "MapiAttd", "", "", "SPlusAppt", "", "SPlusAttd", "MapiAttd", 0, 0)
  67. WAIT WINDOW "return from SPSendMeet = " + STR(retval)
  68.  
  69. retval=spend(hsplussession, 0, 0, 0)
  70. retval=mplogoff(hmapisession, 0, 0, 0)
  71.  
  72. SET LIBRARY TO
  73.  
  74.