home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 954 / SaveNewsforMacro5.sis (.txt) < prev    next >
EPOC Installation Package  |  2000-10-05  |  29KB  |  791 lines
  1. C:\Sistemp\SaveNews.opo!:\Psion5CD1\SaveNewsforMacro5\SaveNews.opoC:\Sistemp\SaveNews.opl!:\Psion5CD1\SaveNewsforMacro5\SaveNews.oplC:\Sistemp\SaveNews.ico!:\Psion5CD1\SaveNewsforMacro5\SaveNews.icoC:\Sistemp\SaveNews.box!:\Psion5CD1\SaveNewsforMacro5\SaveNews.boxC:\Sistemp\readme!:\Psion5CD1\SaveNewsforMacro5\readmeC:\Sistemp\Bis.txt!:\Psion5CD1\SaveNewsforMacro5\Bis.txtSaveNewsforMacro5 26.8 kB7
  2. )C:\Documents\OPL\Wk SaveNews\SaveNews.oplV
  3. NEWS$
  4. DATA$
  5. NEWSRSC$
  6. DATARSC$
  7.     MULTIBOX%
  8. USERDIALOG%
  9.     MACRONEW%
  10. NUMMSG&
  11. NUMMSG%
  12. DELMSG%
  13. DATE$
  14. FROM$
  15. SUBJECT$
  16. BODY$
  17. MACRO5TEST
  18.     MACRO5VER
  19.     INISETUP%
  20. STARTNEWS%
  21. GETFOCUS
  22. MULTIBOXPROC%
  23. USERDIALOGPROC%
  24.     STARTDATA
  25. COPYFROMNEWS%
  26. ADJUSTDATE
  27. PASTETODATA
  28. REPORT
  29. GETAPP$
  30. NEWS$
  31. SaveNews+
  32.  MacroK+
  33.  v1.00K+%To be launched as a macro with Macro5W8
  34. LIBVERSION%
  35.     MACRONEW%
  36. LIBVERSION%
  37. MULTIBOXPROC%
  38. NEWS$
  39. NEWSRSC$
  40. DATA$
  41. DATARSC$
  42.     MACRONEW%
  43.     MULTIBOX%
  44. USERDIALOG%
  45. SaveNews+
  46.  MacroK+
  47.  v1.00K+
  48. Sorry, I can't find RMRNews.appW8
  49. C:\System\SaveNews.iniW
  50. SaveNews.boxO
  51. Z:\System\Apps\Data\Data.rsc
  52. Z:\System\Apps\Data\Data.ruk
  53. SaveNews+
  54.  MacroK+
  55.  v1.00K+ Sorry, I can't find Data.rsc/rukW8
  56. SaveNews+
  57.  Setup (step 1 of 3) ...K
  58. +(- your RMRNews.app is located on drive "
  59. - your Macro5 version is S
  60. OdT|O
  61. +;- SaveNews is not tested with Macro5 versions prior to 2.37
  62. CancelO
  63. ContinueO
  64. SaveNews+
  65.  Setup aborted...K+
  66. Relaunch the macro to completeW8
  67. SaveNews+
  68.  Setup aborted...K+
  69. Relaunch the macro to completeW8
  70. SaveNews+
  71.  Setup (step 3 of 3)K
  72. +)Each time you launch SaveNews you can ...
  73. +'- have a choice of the target Data file
  74. +.- open a dialog window to automate the process
  75. +)of archiving/deleting a group of articles
  76. CancelO
  77. ContinueO
  78. SaveNews+
  79.  Setup aborted...K+
  80. Relaunch the macro to completeW8
  81. C:\System\SaveNews.ini
  82. DATA$
  83. DATARSC$
  84.     MULTIBOX%
  85. USERDIALOG%
  86. DATA$'
  87. DATARSC$'
  88. +    MULTIBOX%$
  89. USERDIALOG%$
  90. SaveNews+  Setup successfully completed...K+
  91. Now you can relaunch the macroW8
  92. C:\System\SaveNews.ini
  93. DATA$
  94. DATARSC$
  95.     MULTIBOX%
  96. USERDIALOG%
  97. DATA$#
  98. DATARSC$#
  99. +    MULTIBOX% 
  100. USERDIALOG% 
  101. FGAPP%
  102. GETFOCUS
  103.     MACRONEW%
  104. NEWS$
  105. + Opening RMRNews, please wait ...O
  106. ++SaveNews has opened your RMRNews program...+,Now highlight an article header and relaunchW8
  107. Opening RMRNews, please wait...
  108. +&SaveNews is opening RMRNews program...+(Highlight an article header and relaunchW8
  109. FGAPP%
  110. GETFOCUS
  111.     MACRONEW%
  112. DATA$
  113. NEWS$
  114. +$Opening NewsBox file, please wait...
  115.     INISETUP%
  116. MACROS$
  117. DATA$
  118. SaveNews.boxK
  119. SaveNews+
  120.  v1.00K
  121. +-Select the location of your target Data file:
  122. SaveNews+
  123.  Setup (step 2 of 3) ...K
  124. +6Select the location of your default NewsBox Data file:
  125. File,Folder,Disk(
  126. HO HO
  127. +3... or choose New to create a new NewsBox Data file
  128. NewON+
  129. Relaunch SetupOS+
  130. CancelO
  131. ContinueO
  132. NewON+
  133. CancelO
  134. ContinueO
  135. SaveNews.boxO
  136. No taget file selected
  137. SaveNews+
  138.  v1.00K
  139. Relaunch the Setup procedure?
  140. +%(you will loose the current settings)
  141. CancelO
  142. ContinueO
  143. C:\System\SaveNews.ini
  144. On@[d
  145. SaveNews.boxO
  146. SaveNews+
  147.  v1.00K
  148. Create new NewsBox Data file:
  149. File,Folder,DiskO
  150. Set as default
  151. CancelO
  152. ContinueO
  153. C:\System\SaveNews.ini
  154. DATA$
  155. DATARSC$
  156.     MULTIBOX%
  157. USERDIALOG%
  158. DATA$'
  159. SaveNews.boxO
  160. NEW option not available
  161. Target file is 
  162. NUMMSG&
  163. DELMSG%
  164. SaveNews+
  165.  v1.00K
  166. Number of articles to archiveO
  167. +2(starting from the highlighted one and going down)(
  168. +$Delete original article from RMRNews
  169. +1(use with care, no undelete options available...)(
  170. CancelO
  171. ContinueO
  172. Please read carefully:
  173. +-You have chosen the "Auto-Delete" option, so:
  174. - DO NOT touch the keyboard and
  175. +$- DO NOT switch to any other program
  176. +6while the macro is running, as this could also lead to
  177. + the loss of all your articles...(
  178. +5A dialog box will inform you when the task has ended.
  179. DisableOD+
  180. AbortO
  181. ContinueO
  182. Od@[0
  183. "Auto-Delete" option disabled
  184. FGAPP%
  185. SENDKEY
  186. COPY$
  187. GETFOCUS
  188. NEWS$
  189. NUMMSG%
  190. DATA$
  191. FROM$
  192. SUBJECT$
  193. BODY$
  194. EnterO
  195. Ctrl+aO
  196. Fn+Up,Fn+UpO
  197. Ctrl+aO
  198. DownO
  199. Ctrl+aO
  200. DownO
  201. Ctrl+cO
  202. DATE$
  203.  (*)K
  204. FGAPP%
  205. SENDRSCMENU
  206. SENDKEY
  207. PASTE
  208. DATA$
  209. NUMMSG%
  210. DATARSC$
  211. FROM$
  212. DATE$
  213. SUBJECT$
  214. NUMMSG&
  215. Tab,Tab,Tab,Tab,TabO
  216. Ctrl+vO
  217. +    Shift+TabO
  218. +    Shift+TabO
  219. +    Shift+TabO
  220. +    Shift+TabO
  221. +    Shift+TabO
  222. GETFOCUS
  223. SENDKEY
  224. FGAPP%
  225. FROM$
  226. SUBJECT$
  227. NUMMSG&
  228. NUMMSG%
  229. DELMSG%
  230. NEWS$
  231. DATA$
  232. SaveNews+
  233.  warningK
  234. +3Check if the last saved article contains one of the
  235. +4From or Subject fields exceeding the 250 chars limit
  236. ++The archiving procedure has been stopped...
  237. +2The original article won't be deleted from
  238. RMRNews
  239. ContinueO
  240. Article 
  241.  of K    1
  242.  storedK
  243. New article stored
  244. DownO
  245. SaveNews+
  246.  v1.00K
  247. +# article(s) successfully stored to:K
  248. ContinueO
  249. MAIN>
  250. MACRO5TEST
  251.     MACRO5VER
  252.     INISETUP%
  253. STARTNEWS%
  254.     STARTDATAL
  255. MULTIBOXPROC%
  256. USERDIALOGPROC%0
  257. COPYFROMNEWS%
  258. ADJUSTDATE
  259. PASTETODATA
  260. REPORT
  261. REM Macro SaveNews v1.00
  262. REM To be used with Macro5 (from v2.37)
  263. REM and RMRNews News Reader for EPOC (v1.00F English)
  264. REM by S.Alisi - sergioalisi@geocities.com
  265. REM http://www.geocities.com/siliconvalley/bridge/1492
  266. CONST AppName$="SaveNews"
  267. CONST AppVersion$=" v1.00"
  268. CONST DataUID&=&10000086
  269. CONST NewsUID&=&100004A1
  270. CONST IniFile$="C:\System\SaveNews.ini"
  271. CONST SourceBoxName$="SaveNews.box"
  272. CONST YesBtn$="Y"    rem "Yes button" shortcut in RMRNews
  273. PROC Main:
  274.     GLOBAL News$(255),Data$(255)
  275.     GLOBAL NewsRSC$(255),DataRSC$(255)
  276.     GLOBAL MultiBox%,UserDialog%,MacroNew%
  277.     GLOBAL NumMsg&,NumMsg%,DelMsg%
  278.     GLOBAL Date$(30),From$(250),Subject$(250),Body$(250)
  279.     Macro5Test:
  280.     Macro5Ver:
  281.     NumMsg&=1 :NumMsg%=1
  282.     if IniSetup%: :return :endif
  283.     if StartNews%: :return :endif
  284.     GetFocus:
  285.     if MultiBox%
  286.         if MultiBoxProc%:(1) :return :endif
  287.     endif
  288.     if UserDialog%
  289.         if UserDialogProc%: :return :endif
  290.     endif
  291.     StartData:
  292.     while NumMsg%<=NumMsg&
  293.         if CopyFromNews%: :return :endif
  294.         AdjustDate:
  295.         PasteToData:
  296.         Report:
  297.         NumMsg%=NumMsg%+1
  298.     endwh
  299. PROC Macro5Test:
  300.     rem check if SaveNews is launched from Macro5 and as a macro
  301.     onerr No_Macro::
  302.     News$=GetApp$:(NewsUID&)    rem for S5 & Geofox
  303.     goto Yes_Macro::
  304.     No_Macro::
  305.     onerr off
  306.     alert(AppName$+" Macro"+AppVersion$,"To be launched as a macro with Macro5")
  307.     stop
  308.     Yes_Macro::
  309. PROC Macro5Ver:
  310.     rem check which version of Macro5 is currently installed
  311.     onerr Old_Macro::
  312.     if LibVersion%: >=240
  313.         MacroNew%=-1
  314.     endif
  315.     goto Done::
  316.     Old_Macro::
  317.     onerr off
  318.     MacroNew%=0
  319.     stop
  320.     Done::
  321. PROC IniSetup%:
  322.     if News$=""
  323.         alert(AppName$+" Macro"+AppVersion$,"Sorry, I can't find RMRNews.app")
  324.         return -1
  325.     endif
  326.     NewsRSC$=Left$(News$,Len(News$)-3)+"rsc"
  327.     if not exist (IniFile$)
  328.         Data$="*"+Right$(SourceBoxName$,4)
  329.         DataRSC$="Z:\System\Apps\Data\Data.rsc"    rem for Psion S5
  330.         if not exist (DataRSC$)
  331.             DataRSC$="Z:\System\Apps\Data\Data.ruk"    rem for Geofox
  332.             if not exist (DataRSC$)
  333.                 alert(AppName$+" Macro"+AppVersion$,"Sorry, I can't find Data.rsc/ruk")
  334.                 return -1
  335.             endif
  336.         endif
  337.         dinit AppName$+" Setup (step 1 of 3) ..."
  338.         dtext "","- your RMRNews.app is located on drive """+Left$(News$,1)+""""
  339.         if MacroNew%
  340.             dtext "","- your Macro5 version is "+gen$(LibVersion%:/100,2)+"."+right$(gen$(LibVersion%:,4),2)
  341.         else
  342.             dtext "","- SaveNews is not tested with Macro5 versions prior to 2.37"
  343.         endif
  344.         dbuttons "Cancel",27,"Continue",13
  345.         if dialog
  346.         else
  347.             alert(AppName$+" Setup aborted...","Relaunch the macro to complete")
  348.             return -1
  349.         endif
  350.         if MultiBoxProc%:(0)
  351.             alert(AppName$+" Setup aborted...","Relaunch the macro to complete")
  352.             return -1
  353.         endif
  354.         dinit AppName$+" Setup (step 3 of 3)"
  355.         dtext "","Each time you launch SaveNews you can ..."
  356.         dcheckbox MultiBox%,"- have a choice of the target Data file"
  357.         dtext "","- open a dialog window to automate the process"
  358.         dcheckbox UserDialog%,"of archiving/deleting a group of articles"
  359.         dbuttons "Cancel",27,"Continue",13
  360.         if dialog
  361.         else
  362.             alert(AppName$+" Setup aborted...","Relaunch the macro to complete")
  363.             return -1
  364.         endif
  365.         create IniFile$,a,Data$,DataRSC$,MultiBox%,UserDialog%
  366.         a.Data$=Data$
  367.         a.DataRSC$=DataRSC$
  368.         a.MultiBox%=MultiBox%
  369.         a.UserDialog%=UserDialog%
  370.         append
  371.         close
  372.         alert(AppName$+" Setup successfully completed...","Now you can relaunch the macro")
  373.         return -1
  374.     else
  375.         open IniFile$,a,Data$,DataRSC$,MultiBox%,UserDialog%
  376.         Data$=a.Data$
  377.         DataRSC$=a.DataRSC$
  378.         MultiBox%=a.MultiBox%
  379.         UserDialog%=a.UserDialog%
  380.         close
  381.     endif
  382. PROC StartNews%:
  383.     if MacroNew%    rem Macro5 v2.40 or later installed
  384.         busy "Opening RMRNews, please wait ...",3,1
  385.         if (FgApp%:(News$))=1
  386.             busy off
  387.             GetFocus:
  388.             alert("SaveNews has opened your RMRNews program...","Now highlight an article header and relaunch")
  389.             return -1
  390.         endif
  391.         busy off
  392.     else    rem Macro5 v2.37 installed
  393.         if (FgApp%:(News$))=1
  394.             GetFocus:
  395.             giprint "Opening RMRNews, please wait..."
  396.             pause 90
  397.             alert("SaveNews is opening RMRNews program...","Highlight an article header and relaunch")
  398.             return -1
  399.         endif
  400.     endif
  401. PROC StartData:
  402.     if MacroNew%=0    rem Macro5 v2.37 installed
  403.         if (FgApp%:(Data$))=1
  404.             GetFocus:
  405.             giprint "Opening NewsBox file, please wait..."
  406.             pause 150
  407.         endif
  408.         FgApp%:(News$)
  409.     endif
  410. PROC MultiBoxProc%:(Type%)
  411.     LOCAL Button%,SetDefault%,SourceBox$(255)
  412.     Startup::
  413.     SourceBox$=Macros$+SourceBoxName$
  414.     if Type%=1    rem call from Main: procedure
  415.         dinit AppName$+AppVersion$
  416.         dtext "","Select the location of your target Data file:"
  417.     else    rem call from IniSetup%: procedure
  418.         dinit AppName$+" Setup (step 2 of 3) ..."
  419.         dtext "","Select the location of your default NewsBox Data file:"
  420.     endif
  421.     dfile Data$,"File,Folder,Disk",128+8+32,0,0,DataUID&
  422.     dtext "","... or choose New to create a new NewsBox Data file"
  423.     if Type%=1
  424.         dbuttons "New",%N,"Relaunch Setup",%S,"Cancel",27,"Continue",13
  425.     else
  426.         dbuttons "New",%N,"Cancel",27,"Continue",13
  427.     endif
  428.     Button%=dialog
  429.     if Button%=13
  430.         if Data$=""
  431.             Data$="*"+Right$(SourceBoxName$,4)
  432.             giprint "No taget file selected"
  433.             goto Startup::
  434.         endif
  435.     elseif Button%=%s
  436.         dinit AppName$+AppVersion$
  437.         dtext "","Relaunch the Setup procedure?"
  438.         dtext "","(you will loose the current settings)"
  439.         dbuttons "Cancel",27,"Continue",13
  440.         if dialog
  441.             delete IniFile$
  442.             if IniSetup%: :return -1 :endif
  443.         else
  444.             goto Startup::
  445.         endif
  446.     elseif Button%=%n
  447.         if exist (SourceBox$)
  448.             Data$=Right$(SourceBoxName$,4)
  449.             dinit AppName$+AppVersion$
  450.             dtext "","Create new NewsBox Data file:"
  451.             dfile Data$,"File,Folder,Disk",1+8
  452.             if Type%=1
  453.                 dcheckbox SetDefault%,"Set as default"
  454.             endif
  455.             dbuttons "Cancel",27,"Continue",13
  456.             if dialog
  457.                 copy SourceBox$,Data$
  458.                 if SetDefault% and Type%=1
  459.                     open IniFile$,a,Data$,DataRSC$,MultiBox%,UserDialog%
  460.                     a.Data$=Data$
  461.                     update
  462.                     close
  463.                 endif
  464.             else
  465.                 goto Startup::
  466.             endif
  467.         else
  468.             Data$="*"+Right$(SourceBoxName$,4)
  469.             giprint "NEW option not available"
  470.             goto Startup::
  471.         endif
  472.     else
  473.         return -1
  474.     endif
  475.     giprint "Target file is "+Data$
  476.     pause 20
  477. PROC UserDialogProc%:
  478.     LOCAL Button%
  479.     dinit AppName$+AppVersion$
  480.     dlong NumMsg&,"Number of articles to archive",1,100
  481.     dtext "","(starting from the highlighted one and going down)",$200
  482.     dcheckbox DelMsg%,"Delete original article from RMRNews"
  483.     dtext "","(use with care, no undelete options available...)",$200
  484.     dbuttons "Cancel",27,"Continue",13
  485.     if dialog
  486.     else
  487.         return -1
  488.     endif
  489.     if DelMsg%
  490.         dinit "Please read carefully:"
  491.         dtext "","You have chosen the ""Auto-Delete"" option, so:"
  492.         dtext "","- DO NOT touch the keyboard and"
  493.         dtext "","- DO NOT switch to any other program"
  494.         dtext "","while the macro is running, as this could also lead to"
  495.         dtext "","the loss of all your articles...",$200
  496.         dtext "","A dialog box will inform you when the task has ended."
  497.         dbuttons "Disable",%D,"Abort",27,"Continue",13
  498.         Button%=dialog
  499.         if Button%=%d
  500.             DelMsg%=0
  501.             giprint """Auto-Delete"" option disabled"
  502.             pause 20
  503.         elseif Button%<>13
  504.             return -1
  505.         endif
  506.     endif
  507. PROC CopyFromNews%:
  508.     LOCAL Dummy$(255)
  509.     FgApp%:(News$)
  510.     SendKey:("Enter")    rem open the article
  511.     pause 10
  512.     SendKey:("Ctrl+a")    rem select all (from BODY field)
  513.     Dummy$=Copy$:
  514.     if Len(Dummy$)=0    rem article not available off-line
  515.         beep:
  516.         GetFocus:
  517.         giprint "Stop"
  518.         pause 20
  519.         if NumMsg%>1    rem other articles already stored
  520.             FgApp%:(Data$)
  521.             pause 10
  522.             SendKey:("Esc")    rem exit from "new entry mode"
  523.             FgApp%:(News$)
  524.         endif
  525.         return -1
  526.     else
  527.         SendKey:("Fn+Up,Fn+Up")    rem move to NewsGroups field
  528.         SendKey:("Ctrl+a")    rem select all
  529.         Dummy$=Copy$:
  530.         From$=Left$(Dummy$,250)
  531.         SendKey:("Down")    rem move to SUBJECT field
  532.         SendKey:("Ctrl+a")    rem select all
  533.         Dummy$=Copy$:
  534.         Subject$=Left$(Dummy$,250)
  535.         SendKey:("Down")    rem move to BODY field
  536.         pause 20
  537.         Dummy$=Copy$:
  538.         Body$=Left$(Dummy$,250)
  539.         SendKey:("Ctrl+c")    rem this copies more than 255 chars
  540.         SendKey:("Esc")    rem close article
  541.         pause 20
  542.     endif
  543. PROC AdjustDate:
  544.     rem the following code simply puts the time of archiving
  545.     rem to the date field of the target data file
  546.     Date$=gen$(year,4)+"/"+right$("0"+gen$(month,2),2)+"/"+right$("0"+gen$(day,2),2)
  547.     Date$=Date$+" "+right$("0"+gen$(hour,2),2)+":"+right$("0"+gen$(minute,2),2)+" (*)"
  548. PROC PasteToData:
  549.     FgApp%:(Data$)
  550.     pause 20
  551.     if NumMsg%=1    rem first article (or single article) to store
  552.         SendRscMenu:(DataRSC$,4,&D)    rem new entry ("Ctrl+Shift+n" for UK/USA)
  553.     endif
  554.     pause 20
  555.     SendKey:("Tab,Tab,Tab,Tab,Tab")    rem move to BODY field
  556.     SendKey:("Ctrl+v")
  557.     pause 20
  558.     SendKey:("Shift+Tab")    rem move to CC/BCC field
  559.     SendKey:("Shift+Tab")    rem move to TO field
  560.     SendKey:("Shift+Tab")    rem move to FROM field
  561.     Paste:(From$)
  562.     pause 20
  563.     SendKey:("Shift+Tab")    rem move to DATE field
  564.     Paste:(Date$)
  565.     pause 20
  566.     SendKey:("Shift+Tab")    rem move to TITLE field
  567.     if Subject$<>""
  568.         Paste:(Subject$)
  569.     endif
  570.     pause 20
  571.     SendRscMenu:(DataRSC$,4,&16)    rem save article ("Ctrl+s" for UK/USA)
  572.     if NumMsg%=NumMsg&    rem last article (or single article) stored
  573.         SendKey:("Esc")    rem exit from "new entry mode"
  574.     endif
  575. PROC Report:
  576.     GetFocus:
  577.     if Len(From$)=250 or Len(Subject$)=250
  578.         dinit AppName$+" warning"
  579.         dtext "","Check if the last saved article contains one of the"
  580.         dtext "","From or Subject fields exceeding the 250 chars limit"
  581.         if NumMsg&>1
  582.             NumMsg%=NumMsg&
  583.             dtext "","The archiving procedure has been stopped..."
  584.         endif
  585.         if DelMsg%
  586.             dtext "","The original article won't be deleted from
  587. RMRNews"
  588.         endif
  589.         dbuttons "Continue",13
  590.         dialog
  591.         SendKey:("Esc")    rem exit from "new entry mode" (if necessary)
  592.     else
  593.         if NumMsg&>1    rem storing a group of articles
  594.             giprint "Article "+gen$(NumMsg%,3)+" of "+gen$(NumMsg&,3)+" stored"
  595.         else
  596.             giprint "New article stored"
  597.         endif
  598.         pause 20
  599.         FgApp%:(News$)
  600.         pause 20
  601.         if DelMsg%
  602.             Sendkey:("Del")    rem delete current article
  603.             Sendkey:(YesBtn$)    rem confirm deletion with "Yes" button
  604.             pause 20
  605.         else
  606.             SendKey:("Down")    rem move down to the next article
  607.         endif
  608.         if NumMsg%=NumMsg& and (NumMsg&>1 or DelMsg%)    rem last article of a group
  609.             GetFocus:
  610.             dinit AppName$+AppVersion$
  611.             dtext "",gen$(NumMsg&,3)+" article(s) successfully stored to:"
  612.             dtext "",Data$
  613.             dbuttons "Continue",13
  614.             dialog
  615.         endif
  616.     endif
  617. *TextEd.app
  618. "Data.app)@
  619. Table1
  620. Subject
  621. CC/BCC
  622. Arial
  623. Arial
  624. Arial
  625. Table1
  626. ColA9
  627. ColB9
  628. ColA11
  629. ColB11
  630. ColA12
  631. ColB12
  632. ColA13
  633. ColB13
  634. ColA14
  635. ColB14
  636. ColA16
  637. ColB16
  638. Index1
  639. ColA11
  640. ColA9
  641. Table1
  642. Subject
  643. CC/BCC
  644. Arial
  645. Arial
  646. Arial
  647. Times New Roman
  648. &Heading 1L
  649. &Heading 2L
  650. &Heading 3L
  651. .Bullet listO
  652. Swiss
  653. cWelcome to SAVENEWS Macro v1.00
  654. ------------------
  655. To be used with Macro5 (from v2.37) and
  656. RMRNews News Reader for EPOC (v1.00F English)
  657. PLEASE READ CAREFULLY
  658. ------------------
  659. SaveNews is a macro that automates the process of storing your articles
  660. from RMRNews to any number of "preformatted" Data files (e.g. one for
  661. each NewsGroup you have subscribed).
  662. Before proceeding, keep in mind the following:
  663. * especially when you choose to archive multiple articles, SaveNews
  664.   may take some time to accomplish its task: please note that while the
  665.   macro is running, Macro5 is NOT available for other operations and you
  666.   also should NOT switch to other tasks or applications;
  667. * be also advised NOT to touch the keyboard while SaveNews is running,
  668.   because you could interfere with the scheduled sequence of keystrokes,
  669.   thus leading to some misbehavior of the macro itself (including the
  670.   deletion of all your articles in the worst case, only if the "auto-delete"
  671.   option is selected);
  672. * use the "auto-dele" option with care, as there is no way of restoring
  673.   any deleted article from RMRNews. I strongly recommend a good
  674.   BACKUP before starting to play with SaveNews...
  675. * I decline any responsibility for any loss of data that may result from
  676.   the use of this program.
  677. HOW TO INSTALL AND USE
  678. ------------------
  679. 1)  Unzip the savenews.zip file.
  680. 2)  Copy SaveNews.opo, SaveNews.ico and SaveNews.box to the folder
  681.     where you keep all the macros of Macro5. The SaveNews.box file is
  682.     a "preformatted" Data file used to create new target Data files from
  683.     within the macro. DO NOT use this file to store your articles, just
  684.     leave it empty in your macros folder.
  685. 3)  Launch Macro5 and create a new shortcut to SaveNews.opo (remember
  686.     to select "Macro" and not "Program" in the shortcut "Type" definition).
  687. 4)  Call SaveNews macro through the associated Macro5 shortcut: the first
  688.     time you launch it, a Setup process will start, showing your System
  689.     settings: location of your RMRNews program, and Macro5 version
  690.     (remember you need v2.37 at least, as this macro is not tested with
  691.     previous releases); a second dialog will ask you for the location
  692.     of your default Data file (the one that will be used by default to store
  693.     your articles); if you do not have previous .box Data files to use,
  694.     select NEW and a dialog will let you create a new Data file and place
  695.     it wherever you want (the .box extension will be automatically added
  696.     if you forget it); finally a last window will ask if you want to enable
  697.     the choice of different Data files (note that you can create multiple
  698.     Data files also in a second time using the NEW option), and if you
  699.     want to open a dialog window to automate the process of archiving
  700.     (and deleting) a group of articles each time you launch SaveNews.
  701. 5)  All these settings are stored to a SaveNews.ini file located in the
  702.     "C:\System\" folder; if for any reason you need to change these settings,
  703.     simply delete the file, and when you will recall SaveNews, the setup
  704.     process will be launched again.
  705.     Alternatively, you can relaunch the Setup procedure from within the
  706.     macro, in the target data file window (if enabled).
  707. 6)  Once accomplished the setup process, these are the steps to follow:
  708.     - launch your RMRNews program
  709.     - highlight an article without opening it (do not press Enter)
  710.     - call SaveNews macro through the associated Macro5 shortcut
  711. NOTE: if the highlighted article is not available off-line (you just
  712.   downloaded the header), the macro automatically stops and the
  713.   connection window will be displayed, so that you can retrieve the
  714.   whole article from your news server, or abort the connection.
  715. 7)  According to the options you have selected in the setup process, once
  716.     launched, SaveNews may:
  717.     - ask for the location of your target Data file to store your article(s)
  718.     - ask for the number of articles to automatically archive
  719.     - ask if it has to delete the original article(s) from RMRNews
  720. 8)  If everything is OK, once SaveNews has finished its task, you should
  721.     find yourself again in the RMRNews screen, but you should also find
  722.     the article(s) stored in the (selected) target Data file.
  723. NOTES ON THE NEWSBOX DATA FILE
  724. ------------------
  725. The "preformatted" DATA file, where the articles from RMRNews are
  726. stored, has the following labels:
  727. Subject  (type: text length: 250)  second sorting key (ascending)
  728. Date     (type: text length: 30)   first sorting key  (descending)
  729. From     (type: text length: 250)
  730. To       (type: text length: 250)
  731. CC/BCC   (type: memo length: unlimited)
  732. Body     (type: memo length: unlimited)
  733. The format of the Date field is "yyyy/mm/dd" in order to have the articles
  734. correctly sorted by time in the NewsBox file.
  735. Some of the above fields are not used by SaveNews, but are left to
  736. maintain the full compatibility with the Data files used by SaveMail
  737. (a similar macro that works with the Email application), so you can
  738. also use "mixed" target files to store articles or messages both from
  739. RMRNews and the Email application.
  740. TRANSLATING THE OPL CODE
  741. ------------------
  742. Feel free to modify the source code (SaveNews.opl) as you like...
  743. KNOWN ISSUES
  744. ------------------
  745. * If an article has a field (excluded the body of the article) with more
  746.   than 250 characters, only the first 250 will be copied to the Data file;
  747.   if this happens, a dialog is displayed to alert you
  748. * the Date field of the target Data file will show the time of archiving,
  749.   marked with (*) and not the real time of the message; if you want to
  750.   store the real time of the message, then open RMRNews (Article view)
  751.   and select menu - view - "show headers": some additional information
  752.   (including date & time of the article) will be copied to the body field
  753.   of the target Data file
  754. ACKNOWLEDGMENTS
  755. ------------------
  756. A great thank you to:
  757. * Pascal Nicolas for writing Macro5
  758.   Visit his homepage for a huge library of useful macros:
  759.   http://www.geocities.com/SiliconValley/Pines/1215/
  760. * Serge Chestopalov for writing RMRNews,
  761.   available from RMR Software at:
  762.   http://www.rmrsoft.com/
  763. * Roger R. Prokic for suggesting and beta testing this macro
  764. Any comments & suggestions are welcome!
  765. E-mail me at:
  766.   sergioalisi@geocities.com
  767. Visit my homepage at:
  768.   http://www.geocities.com/siliconvalley/bridge/1492
  769. THANKS & ENJOY
  770. Courier
  771. Courier
  772. "word.app
  773. This SIS-file is designed by BISON Software. 
  774. Bison Software doesn't accept any liability 
  775. for the function of the programme to be installed. 
  776. Please pay attention to the comment in the 
  777. README file of the author.
  778. Before installing this software please make 
  779. a B A C K U P  of your Psion.
  780. Have a lot of fun!
  781. Diese SIS-Datei wurde von Bison Software erstellt.
  782. Bison Software 
  783. bernimmt keinerlei Garantie f
  784. r die 
  785. Funktion des zu installierenden Programmes. 
  786. Bitte beachten Sie die Hinweise in der 
  787. README Datei des Autors.
  788. Bevor Sie das Programm installieren machen Sie 
  789. ein B A C K U P  Ihres Psion.
  790. Viel Spa
  791.