home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 952 / SaveMailER3forMacro5.sis (.txt) < prev    next >
EPOC Installation Package  |  2000-10-05  |  48KB  |  1,273 lines
  1. C:\Sistemp\SaveMail.opo!:\Psion5CD1\SaveMailER3forMacro5\SaveMail.opoC:\Sistemp\SaveMail.opl!:\Psion5CD1\SaveMailER3forMacro5\SaveMail.oplC:\Sistemp\SaveMail.ico!:\Psion5CD1\SaveMailER3forMacro5\SaveMail.icoC:\Sistemp\SaveMail.box!:\Psion5CD1\SaveMailER3forMacro5\SaveMail.boxC:\Sistemp\readme!:\Psion5CD1\SaveMailER3forMacro5\readmeC:\Sistemp\history!:\Psion5CD1\SaveMailER3forMacro5\historyC:\Sistemp\Bis.txt!:\Psion5CD1\SaveMailER3forMacro5\Bis.txtSaveMailER3forMacro5 45.6 kB7
  2. $C:\Documents\OPL\Macros\SaveMail.opl
  3. EMAIL$
  4. DATA$
  5.     EMAILRSC$
  6. DATARSC$
  7.     MULTIBOX%
  8. USERDIALOG%
  9. DATEFORMAT&
  10.     MACRONEW%
  11. TOTMSG&
  12. NUMMSG%
  13. NOSUBJ%
  14. DELMSG%
  15. PASTETOWORD%
  16. SKIP%
  17. TOTSKIP%
  18. DATE$
  19. FROM$
  20. SUBJECT$
  21. BODY$
  22. MACRO5TEST
  23.     INISETUP%
  24. STARTEMAIL%
  25. GETFOCUS
  26. MULTIBOXPROC%
  27. USERDIALOGPROC%
  28.     STARTDATA
  29. COPYFROMEMAIL
  30. ADJUSTDATE
  31. ADJUSTFIELDS
  32. PASTETOWORD
  33. PASTETODATA
  34. REPORT
  35. GETAPP$
  36. EMAIL$
  37. SaveMail+
  38.  v2.51 ER3K+%To be launched as a macro with Macro5W8
  39. LIBVERSION%
  40.     MACRONEW%
  41.     MACRO5VER
  42. LIBVERSION%
  43. INIRESULT%
  44. MULTIBOXPROC%
  45. EMAIL$
  46.     EMAILRSC$
  47. DATA$
  48. DATARSC$
  49. DATEFORMAT&
  50.     MACRONEW%
  51.     MULTIBOX%
  52. USERDIALOG%
  53. C:\System\SaveMail.iniW
  54. SaveMail+
  55.  v2.51 ER3K+
  56. Sorry, I can't find Email.appW8
  57. SaveMail.boxO
  58. Z:\System\Apps\Data\Data.rsc
  59. Z:\System\Apps\Data\Data.ruk
  60. SaveMail+
  61.  v2.51 ER3K+ Sorry, I can't find Data.rsc/rukW8
  62. SaveMail+
  63.  Setup (step 1 of 3) ...K
  64. +)- your Email program is located on drive 
  65. + - your System Date format is "mm
  66. yyyy"K
  67. + - your System Date format is "dd
  68. yyyy"K
  69. +"- your System Date format is "yyyy
  70. - your Macro5 version is S
  71. OdT|O
  72. +;- SaveMail is not tested with Macro5 versions prior to 2.37
  73. CancelO
  74. ContinueO
  75. SaveMail+
  76.  Setup (step 3 of 3)K
  77. +)Each time you launch SaveMail you can ...
  78. +(1) have a choice of the target Data file
  79. +/2) open a dialog window to automate the process
  80. +'of storing/deleting a group of messages
  81. CancelO
  82. ContinueO
  83. C:\System\SaveMail.ini
  84. EMAIL$
  85.     EMAILRSC$
  86. DATA$
  87. DATARSC$
  88.     MULTIBOX%
  89. USERDIALOG%
  90. DATEFORMAT&
  91.     MACRONEW%
  92. EMAIL$'
  93. +    EMAILRSC$'
  94. DATA$'
  95. DATARSC$'
  96. +    MULTIBOX%$
  97. USERDIALOG%$
  98. DATEFORMAT&%
  99. +    MACRONEW%$
  100. C:\System\SaveMail.ini
  101. EMAIL$
  102.     EMAILRSC$
  103. DATA$
  104. DATARSC$
  105.     MULTIBOX%
  106. USERDIALOG%
  107. DATEFORMAT&
  108.     MACRONEW%
  109. EMAIL$#
  110. +    EMAILRSC$#
  111. DATA$#
  112. DATARSC$#
  113. +    MULTIBOX% 
  114. USERDIALOG% 
  115. DATEFORMAT&!
  116. +    MACRONEW% 
  117. SaveMail+
  118.  v2.51 ER3K
  119. +'Problem reading your SaveMail.ini file!
  120. Relaunch the Setup procedure?
  121. +"(you will loose your old settings)
  122. CancelO
  123. ContinueO
  124. C:\System\SaveMail.ini
  125. SaveMail+
  126.  v2.51 ER3K
  127. Setup aborted...
  128. Relaunch the macro to complete
  129. Setup successfully completed...
  130. Now you can relaunch the macro
  131. ContinueO
  132. FGAPP%
  133. SENDRSCMENU
  134. GETFOCUS
  135.     MACRONEW%
  136. EMAIL$
  137.     EMAILRSC$
  138. Opening Email, please wait ...O
  139. +)SaveMail has opened your Email program...+0Now highlight an Inbox/Sent message and relaunchW8
  140. Opening Email, please wait...
  141. +$SaveMail is opening Email program...+,Highlight an Inbox/Sent message and relaunchW8
  142. FGAPP%
  143. GETFOCUS
  144.     MACRONEW%
  145. DATA$
  146. EMAIL$
  147. +$Opening MailBox file, please wait...
  148.     INISETUP%
  149. NEWDATA%
  150. USEWORD%
  151. DATA$
  152. C:\System\SaveMail.ini
  153. EMAIL$
  154.     EMAILRSC$
  155. DATA$
  156. DATARSC$
  157.     MULTIBOX%
  158. USERDIALOG%
  159. DATEFORMAT&
  160.     MACRONEW%
  161. DATA$#
  162. SaveMail+
  163.  v2.51 ER3KO
  164. +-Select the location of your target Data file:
  165. SaveMail+
  166.  Setup (step 2 of 3) ...K
  167. +6Select the location of your default Mailbox Data file:
  168. File,Folder,Disk(
  169. HO HO
  170. or choose ...+''New' to create a new Mailbox Data file
  171. ...+$'Word' to store to a Psion Word file
  172. ...+''Setup' to relaunch the Setup procedure
  173. NewON+
  174. WordOW+
  175. SetupOS+
  176. CancelO
  177. ContinueO
  178. NewON+
  179. CancelO
  180. ContinueO
  181. No target file selected
  182. SaveMail+
  183.  v2.51 ER3K
  184. Relaunch the Setup procedure?
  185. +%(you will loose the current settings)
  186. CancelO
  187. ContinueO
  188. C:\System\SaveMail.ini
  189. SaveMail.boxO
  190. Target file is 
  191. MACROS$
  192. DATA$
  193. SaveMail.boxK
  194. SaveMail.boxO
  195. SaveMail+
  196.  v2.51 ER3K
  197. Create new MailBox Data file:
  198. File,Folder,DiskO
  199. Set as default
  200. CancelO
  201. ContinueO
  202. C:\System\SaveMail.ini
  203. EMAIL$
  204.     EMAILRSC$
  205. DATA$
  206. DATARSC$
  207.     MULTIBOX%
  208. USERDIALOG%
  209. DATEFORMAT&
  210.     MACRONEW%
  211. DATA$'
  212. NEW option not available
  213. SaveMail.boxO
  214. USEDOC%
  215. FGAPP%
  216. GETFOCUS
  217. DATA$
  218. PASTETOWORD%
  219. EMAIL$
  220. SaveMail+
  221.  v2.51 ER3K
  222. Select an existing Word file:
  223. File,Folder,Disk(
  224. HO HO
  225. or choose ...+
  226. 'New' to create a new empty one
  227. NewON+
  228. CancelO
  229. ContinueO
  230. No target file selected
  231. WordO
  232. SaveMail+
  233.  v2.51 ER3K
  234. Create a new Word file:
  235. File,Folder,DiskO
  236. CancelO
  237. ContinueO
  238. WordO
  239. TOTMSG&
  240. NOSUBJ%
  241. DELMSG%
  242. SaveMail+
  243.  v2.51 ER3K
  244. Number of messages to storeO
  245. +2(starting from the highlighted one and going down)(
  246. +"Highlighted message has no subject
  247. +/(this option forces one single message storing)(
  248. +"Delete original message from Email
  249. +4(use with care, don't forget to save attachments...)(
  250. CancelO
  251. ContinueO
  252. Please read carefully:
  253. +-You have chosen the "Auto-Delete" option, so:
  254. - DO NOT touch the keyboard and
  255. +$- DO NOT switch to any other program
  256. +6while the macro is running, as this could also lead to
  257. + the loss of all your messages...(
  258. +5A dialog box will inform you when the task has ended.
  259. DisableOD+
  260. AbortO
  261. ContinueO
  262. Od@[0
  263. "Auto-Delete" option disabled
  264. FGAPP%
  265. SENDKEY
  266. SENDRSCMENU
  267. COPY$
  268. EMAIL$
  269.     EMAILRSC$
  270. DATE$
  271. SKIP%
  272. TOTSKIP%
  273. FROM$
  274. SUBJECT$
  275. BODY$
  276. EnterO
  277. Fn+UpO
  278. Right,DownO
  279. Right,DownO
  280. Right,DownO
  281. Right,DownO
  282. Right,DownO
  283. Right,Fn+Down,Fn+DownO
  284. Ctrl+cO
  285. SKIP%
  286. DATEFORMAT&
  287. DATE$
  288. SKIP%
  289. NOSUBJ%
  290. SUBJECT$
  291. BODY$
  292. < no subject >
  293. FGAPP%
  294. SENDRSCMENU
  295. SENDKEY
  296. PASTE
  297. DATA$
  298. NUMMSG%
  299. DATARSC$
  300. SKIP%
  301. FROM$
  302. DATE$
  303. SUBJECT$
  304. TOTMSG&
  305. Tab,Tab,Tab,Tab,TabO
  306. Ctrl+vO
  307. +    Shift+TabO
  308. +    Shift+TabO
  309. +    Shift+TabO
  310. +    Shift+TabO
  311. +    Shift+TabO
  312. FGAPP%
  313. SENDRSCMENU
  314. SENDKEY
  315. PASTE
  316. SKIP%
  317. DATA$
  318. DATARSC$
  319. SUBJECT$
  320. DATE$
  321. FROM$
  322. Left,EnterO
  323. Ctrl+vO
  324. EnterO
  325. +(************ end of message ************O
  326. EnterO
  327. Left,EnterO
  328. EnterO
  329. * Subject: 
  330. EnterO
  331. * Date: 
  332. EnterO
  333. * From: 
  334. EnterO
  335. * To: 
  336. EnterO
  337. +    * CC/BCC:
  338. EnterO
  339. * Body:O
  340. LeftO
  341. GETFOCUS
  342. SENDKEY
  343. FGAPP%
  344. SENDRSCBUTTON
  345. TOTMSG&
  346. NUMMSG%
  347. DELMSG%
  348. SKIP%
  349. EMAIL$
  350. TOTSKIP%
  351. DATA$
  352. SaveMail+
  353.  warningK
  354. +/Check if the last saved message contains one of
  355. +2the To/CC/BCC fields exceeding the 250 chars limit
  356. +1The message storing procedure has been stopped...
  357. +0The original message won't be deleted from
  358. Email
  359. ContinueO
  360. Message NOT stored
  361. Message 
  362.  of K    B
  363.  storedK
  364. New message stored
  365. hD\[=
  366. z:\System\Data\Eikon.rscO
  367. DownO
  368. SaveMail+
  369.  v2.51 ER3K
  370. Unable to store 
  371.  message(s)K(
  372. +# message(s) successfully stored to:K
  373. ContinueO
  374. MAIN9
  375. MACRO5TESTw
  376.     MACRO5VER
  377.     INISETUP%<
  378. INIRESULT%
  379. STARTEMAIL%
  380.     STARTDATA
  381. MULTIBOXPROC%0
  382. NEWDATA% 
  383. USEWORD%
  384. USERDIALOGPROC%
  385. COPYFROMEMAILy
  386. ADJUSTDATE
  387. ADJUSTFIELDS
  388. PASTETODATAp
  389. PASTETOWORD,
  390. REPORT
  391. SYSTINFO
  392. REM Macro SaveMail (for Epoc Release 3)
  393. REM To be used with Macro5 (from v2.37)
  394. REM and a Psion S5 or Geofox + MsgSuite Email (v1.52)
  395. REM by S.Alisi - sergioalisi@geocities.com
  396. REM http://www.geocities.com/siliconvalley/bridge/1492
  397. INCLUDE "Systinfo.oxh"
  398. CONST AppName$="SaveMail"
  399. CONST AppVersion$=" v2.51 ER3"
  400. CONST DataUID&=&10000086
  401. CONST WordUID&=&1000007F
  402. CONST EmailUID&=&10000162
  403. CONST IniFile$="C:\System\SaveMail.ini"
  404. CONST SourceBoxName$="SaveMail.box"
  405. PROC Main:
  406.     GLOBAL Email$(255),Data$(255)
  407.     GLOBAL EmailRSC$(255),DataRSC$(255)
  408.     GLOBAL MultiBox%,UserDialog%,DateFormat&,MacroNew%
  409.     GLOBAL TotMsg&,NumMsg%,NoSubj%,DelMsg%,PasteToWord%,Skip%,TotSkip%
  410.     GLOBAL Date$(30),From$(250),To$(250)
  411.     GLOBAL CC$(250),BCC$(250),Subject$(250),Body$(250)
  412.     Macro5Test:
  413.     TotMsg&=1 :NumMsg%=1
  414.     if IniSetup%: :return :endif
  415.     if StartEmail%: :return :endif
  416.     GetFocus:
  417.     if MultiBox%
  418.         if MultiBoxProc%:(1) :return :endif
  419.     endif
  420.     if UserDialog%
  421.         if UserDialogProc%: :return :endif
  422.     endif
  423.     StartData:
  424.     while NumMsg%<=TotMsg&
  425.         CopyFromEmail:
  426.         AdjustDate:
  427.         AdjustFields:
  428.         if PasteToWord%
  429.             PasteToWord:
  430.         else
  431.             PasteToData:
  432.         endif
  433.         Report:
  434.     endwh
  435. PROC Macro5Test:
  436.     rem check if SaveMail is launched from Macro5 and as a macro
  437.     onerr No_Macro::
  438.     Email$=GetApp$:(EmailUID&)
  439.     return
  440.     No_Macro::
  441.     onerr off
  442.     alert(AppName$+AppVersion$,"To be launched as a macro with Macro5")
  443.     stop
  444. PROC Macro5Ver:
  445.     rem check which version of Macro5 is currently installed
  446.     onerr Old_Macro::
  447.     if LibVersion%: >=240
  448.         MacroNew%=-1
  449.         return
  450.     endif
  451.     Old_Macro::
  452.     onerr off
  453.     MacroNew%=0
  454. PROC IniSetup%:
  455.     LOCAL s0%,s1%,s2%,s3%
  456.     Start::
  457.     if not exist (IniFile$)
  458.         if Email$=""
  459.             alert(AppName$+AppVersion$,"Sorry, I can't find Email.app")
  460.             return -1
  461.         endif
  462.         EmailRSC$=Left$(Email$,Len(Email$)-3)+"rsc"
  463.         Data$="*"+Right$(SourceBoxName$,4)
  464.         DataRSC$="Z:\System\Apps\Data\Data.rsc"    rem for Psion S5
  465.         if not exist (DataRSC$)
  466.             DataRSC$="Z:\System\Apps\Data\Data.ruk"    rem for Geofox
  467.             if not exist (DataRSC$)
  468.                 alert(AppName$+AppVersion$,"Sorry, I can't find Data.rsc/ruk")
  469.                 return -1
  470.             endif
  471.         endif
  472.         rem the following line finds the Date Format of your machine
  473.         SIDateFormat:(DateFormat&, s0%, s1%, s2%, s3%)
  474.         dinit AppName$+" Setup (step 1 of 3) ..."
  475.         dtext "","- your Email program is located on drive "+Left$(Email$,1)
  476.         if DateFormat&=0
  477.             dtext "","- your System Date format is ""mm"+chr$(s1%)+"dd"+chr$(s2%)+"yyyy"""
  478.         elseif DateFormat&=1
  479.             dtext "","- your System Date format is ""dd"+chr$(s1%)+"mm"+chr$(s2%)+"yyyy"""
  480.         elseif DateFormat&=2
  481.             dtext "","- your System Date format is ""yyyy"+chr$(s1%)+"mm"+chr$(s2%)+"dd"""
  482.         endif
  483.         Macro5Ver:
  484.         if MacroNew%
  485.             dtext "","- your Macro5 version is "+gen$(LibVersion%:/100,2)+"."+right$(gen$(LibVersion%:,4),2)
  486.         else
  487.             dtext "","- SaveMail is not tested with Macro5 versions prior to 2.37"
  488.         endif
  489.         dbuttons "Cancel",27,"Continue",13
  490.         if dialog
  491.         else
  492.             IniResult%:(-1)
  493.             return -1
  494.         endif
  495.         if MultiBoxProc%:(0)
  496.             IniResult%:(-1)
  497.             return -1
  498.         endif
  499.         dinit AppName$+" Setup (step 3 of 3)"
  500.         dtext "","Each time you launch SaveMail you can ..."
  501.         dcheckbox MultiBox%,"1) have a choice of the target Data file"
  502.         dtext "","2) open a dialog window to automate the process"
  503.         dcheckbox UserDialog%,"of storing/deleting a group of messages"
  504.         dbuttons "Cancel",27,"Continue",13
  505.         if dialog
  506.         else
  507.             IniResult%:(-1)
  508.             return -1
  509.         endif
  510.         create IniFile$,a,Email$,EmailRSC$,Data$,DataRSC$,MultiBox%,UserDialog%,DateFormat&,MacroNew%
  511.         a.Email$=Email$
  512.         a.EmailRSC$=EmailRSC$
  513.         a.Data$=Data$
  514.         a.DataRSC$=DataRSC$
  515.         a.MultiBox%=MultiBox%
  516.         a.UserDialog%=UserDialog%
  517.         a.DateFormat&=DateFormat&
  518.         a.MacroNew%=MacroNew%
  519.         append
  520.         close
  521.         IniResult%:(0)
  522.         return -1
  523.     else
  524.         onerr Wrong_ini::
  525.         open IniFile$,a,Email$,EmailRSC$,Data$,DataRSC$,MultiBox%,UserDialog%,DateFormat&,MacroNew%
  526.         Email$=a.Email$
  527.         EmailRSC$=a.EmailRSC$
  528.         Data$=a.Data$
  529.         DataRSC$=a.DataRSC$
  530.         MultiBox%=a.MultiBox%
  531.         UserDialog%=a.UserDialog%
  532.         DateFormat&=a.DateFormat&
  533.         MacroNew%=a.MacroNew%
  534.         onerr off
  535.         close
  536.     endif
  537.     return
  538.     Wrong_ini::
  539.     dinit AppName$+AppVersion$
  540.     dtext "","Problem reading your SaveMail.ini file!"
  541.     dtext "","Relaunch the Setup procedure?"
  542.     dtext "","(you will loose your old settings)"
  543.     dbuttons "Cancel",27,"Continue",13
  544.     if dialog
  545.         delete IniFile$
  546.         goto Start::
  547.     else
  548.         return -1
  549.     endif
  550. PROC IniResult%:(Type%)
  551.     dinit AppName$+AppVersion$
  552.     if Type%=-1    rem Setup aborted
  553.         dtext "","Setup aborted..."
  554.         dtext "","Relaunch the macro to complete"
  555.     else    rem Setup completed
  556.         dtext "","Setup successfully completed..."
  557.         dtext "","Now you can relaunch the macro"
  558.     endif
  559.     dbuttons "Continue",13
  560.     dialog
  561. PROC StartEmail%:
  562.     if MacroNew%    rem Macro5 v2.40 or later installed
  563.         busy "Opening Email, please wait ...",3,1
  564.         if (FgApp%:(Email$))=1
  565.             SendRscMenu:(EmailRSC$,4,&1008)    rem switch to inbox ("Shift+Ctrl+i" for UK/USA)
  566.             busy off
  567.             GetFocus:
  568.             alert("SaveMail has opened your Email program...","Now highlight an Inbox/Sent message and relaunch")
  569.             return -1
  570.         endif
  571.         busy off
  572.     else    rem Macro5 v2.37 installed
  573.         if (FgApp%:(Email$))=1
  574.             GetFocus:
  575.             giprint "Opening Email, please wait..."
  576.             pause 90
  577.             SendRscMenu:(EmailRSC$,4,&1008)    rem switch to inbox ("Shift+Ctrl+i" for UK/USA)
  578.             alert("SaveMail is opening Email program...","Highlight an Inbox/Sent message and relaunch")
  579.             return -1
  580.         endif
  581.     endif
  582. PROC StartData:
  583.     if MacroNew%=0    rem Macro5 v2.37 installed
  584.         if (FgApp%:(Data$))=1
  585.             GetFocus:
  586.             giprint "Opening MailBox file, please wait..."
  587.             pause 150
  588.         endif
  589.         FgApp%:(Email$)
  590.     endif
  591. PROC MultiBoxProc%:(Type%)
  592.     LOCAL Button%
  593.     Start::
  594.     if Type%=1    rem call from Main: procedure
  595.         open IniFile$,a,Email$,EmailRSC$,Data$,DataRSC$,MultiBox%,UserDialog%,DateFormat&,MacroNew%
  596.         Data$=a.Data$
  597.         close
  598.         dinit AppName$+AppVersion$,16
  599.         dtext "","Select the location of your target Data file:"
  600.     else    rem call from IniSetup%: procedure
  601.         dinit AppName$+" Setup (step 2 of 3) ..."
  602.         dtext "","Select the location of your default Mailbox Data file:"
  603.     endif
  604.     dfile Data$,"File,Folder,Disk",128+8+32,0,0,DataUID&
  605.     dtext "or choose ...","'New' to create a new Mailbox Data file"
  606.     if Type%=1
  607.         dtext "...","'Word' to store to a Psion Word file"
  608.         dtext "...","'Setup' to relaunch the Setup procedure"
  609.         dbuttons "New",%N,"Word",%W,"Setup",%S,"Cancel",27,"Continue",13
  610.     else
  611.         dbuttons "New",%N,"Cancel",27,"Continue",13
  612.     endif
  613.     Button%=dialog
  614.     if Button%=13
  615.         if Data$=""
  616.             giprint "No target file selected"
  617.             goto Start::
  618.         endif
  619.     elseif Button%=%s
  620.         dinit AppName$+AppVersion$
  621.         dtext "","Relaunch the Setup procedure?"
  622.         dtext "","(you will loose the current settings)"
  623.         dbuttons "Cancel",27,"Continue",13
  624.         if dialog
  625.             delete IniFile$
  626.             if IniSetup%: :return -1 :endif
  627.         else
  628.             Data$=Right$(SourceBoxName$,4)
  629.             goto Start::
  630.         endif
  631.     elseif Button%=%n
  632.         if NewData%:(Type%) :goto Start:: :endif
  633.     elseif Button%=%w
  634.         if UseWord%: :goto Start:: :endif
  635.     else
  636.         return -1
  637.     endif
  638.     giprint "Target file is "+Data$
  639.     pause 20
  640. PROC NewData%:(Type%)
  641.     LOCAL SetDefault%,SourceBox$(255)
  642.     SourceBox$=Macros$+SourceBoxName$
  643.     if exist (SourceBox$)
  644.         Data$=Right$(SourceBoxName$,4)
  645.         dinit AppName$+AppVersion$
  646.         dtext "","Create new MailBox Data file:"
  647.         dfile Data$,"File,Folder,Disk",1+8
  648.         if Type%=1
  649.             dcheckbox SetDefault%,"Set as default"
  650.         endif
  651.         dbuttons "Cancel",27,"Continue",13
  652.         if dialog
  653.             copy SourceBox$,Data$
  654.             if SetDefault% and Type%=1
  655.                 open IniFile$,a,Email$,EmailRSC$,Data$,DataRSC$,MultiBox%,UserDialog%,DateFormat&,MacroNew%
  656.                 a.Data$=Data$
  657.                 update
  658.                 close
  659.             endif
  660.         else
  661.             return -1
  662.         endif
  663.     else
  664.         giprint "NEW option not available"
  665.         Data$=Right$(SourceBoxName$,4)
  666.         return -1
  667.     endif
  668. PROC UseWord%:
  669.     LOCAL Button%
  670.     Start::
  671.     Data$=""
  672.     dinit AppName$+AppVersion$
  673.     dtext "","Select an existing Word file:"
  674.     dfile Data$,"File,Folder,Disk",128+8+32,0,0,WordUID&
  675.     dtext "or choose ...","'New' to create a new empty one"
  676.     dbuttons "New",%N,"Cancel",27,"Continue",13
  677.     Button%=dialog
  678.     if Button%=13
  679.         if Data$=""
  680.             giprint "No target file selected"
  681.             goto Start::
  682.         else
  683.             UseDoc%:("Word",Data$,3)    rem open in background
  684.             pause 20
  685.             PasteToWord%=-1
  686.             FgApp%:(Email$)
  687.             GetFocus:
  688.         endif
  689.     elseif Button%=%n
  690.         Data$=""
  691.         dinit AppName$+AppVersion$
  692.         dtext "","Create a new Word file:"
  693.         dfile Data$,"File,Folder,Disk",1+8
  694.         dbuttons "Cancel",27,"Continue",13
  695.         if dialog
  696.             UseDoc%:("Word",Data$,1)    rem create new word file
  697.             pause 20
  698.             PasteToWord%=-1
  699.             FgApp%:(Email$)
  700.             GetFocus:
  701.         else
  702.             goto Start::
  703.         endif
  704.     else
  705.         return -1
  706.     endif
  707. PROC UserDialogProc%:
  708.     LOCAL Button%
  709.     dinit AppName$+AppVersion$
  710.     dlong TotMsg&,"Number of messages to store",1,100
  711.     dtext "","(starting from the highlighted one and going down)",$200
  712.     dcheckbox NoSubj%,"Highlighted message has no subject"
  713.     dtext "","(this option forces one single message storing)",$200
  714.     dcheckbox DelMsg%,"Delete original message from Email"
  715.     dtext "","(use with care, don't forget to save attachments...)",$200
  716.     dbuttons "Cancel",27,"Continue",13
  717.     if dialog
  718.         if NoSubj%=-1 :TotMsg&=1 :endif
  719.     else
  720.         return -1
  721.     endif
  722.     if DelMsg%
  723.         dinit "Please read carefully:"
  724.         dtext "","You have chosen the ""Auto-Delete"" option, so:"
  725.         dtext "","- DO NOT touch the keyboard and"
  726.         dtext "","- DO NOT switch to any other program"
  727.         dtext "","while the macro is running, as this could also lead to"
  728.         dtext "","the loss of all your messages...",$200
  729.         dtext "","A dialog box will inform you when the task has ended."
  730.         dbuttons "Disable",%D,"Abort",27,"Continue",13
  731.         Button%=dialog
  732.         if Button%=%d
  733.             DelMsg%=0
  734.             giprint """Auto-Delete"" option disabled"
  735.             pause 20
  736.         elseif Button%<>13
  737.             return -1
  738.         endif
  739.     endif
  740. PROC CopyFromEmail:
  741.     LOCAL Dummy$(255)
  742.     FgApp%:(Email$)
  743.     SendKey:("Enter")    rem open the message
  744.     pause 50
  745.     SendKey:("Fn+Up")    rem move to DATE field
  746.     SendRscMenu:(EmailRSC$,4,&125)    rem select all ("Ctrl+a" for UK/USA)
  747.     Date$=Copy$:
  748.     if Date$=""    rem message is a fax
  749.         Skip%=-1
  750.         TotSkip%=TotSkip%+1
  751.     else
  752.         SendKey:("Right,Down")    rem move to FROM field
  753.         SendRscMenu:(EmailRSC$,4,&125)    rem select all
  754.         Dummy$=Copy$:
  755.         From$=Left$(Dummy$,250)
  756.         SendKey:("Right,Down")    rem move to TO field
  757.         SendRscMenu:(EmailRSC$,4,&125)    rem select all
  758.         Dummy$=Copy$:
  759.         To$=Left$(Dummy$,250)
  760.         SendKey:("Right,Down")    rem move to CC field
  761.         SendRscMenu:(EmailRSC$,4,&125)    rem select all
  762.         Dummy$=Copy$:
  763.         CC$=Left$(Dummy$,250)
  764.         SendKey:("Right,Down")    rem move to BCC field
  765.         SendRscMenu:(EmailRSC$,4,&125)    rem select all
  766.         Dummy$=Copy$:
  767.         BCC$=Left$(Dummy$,250)
  768.         SendKey:("Right,Down")    rem move to SUBJECT field
  769.         SendRscMenu:(EmailRSC$,4,&125)    rem select all
  770.         Dummy$=Copy$:
  771.         Subject$=Left$(Dummy$,250)
  772.         SendKey:("Right,Fn+Down,Fn+Down")    rem move to BODY field
  773.         SendRscMenu:(EmailRSC$,4,&125)    rem select all
  774.         pause 20
  775.         Dummy$=Copy$:
  776.         Body$=Left$(Dummy$,250)
  777.         SendKey:("Ctrl+c")    rem this copies more than 255 chars
  778.     endif
  779.     SendKey:("Esc")    rem close message
  780.     pause 20
  781. PROC AdjustDate:
  782.     rem the following code simply changes the
  783.     rem DATE format used in Email (it depends on
  784.     rem the System settings) to "yyyy/mm/dd hh:mm:ss"
  785.     rem to have messages properly sorted by date
  786.     LOCAL D$(4),M$(4),Y$(4)
  787.     if Skip% :return :endif
  788.     if DateFormat&=0    rem mm/dd/yyyy
  789.         D$=Mid$(Date$,3,3)
  790.         M$=Mid$(Date$,3,1)+Left$(Date$,2)
  791.         Y$=Mid$(Date$,7,4)
  792.         Date$=Right$(Date$,Len(Date$)-10)
  793.         Date$=Y$+M$+D$+Date$
  794.     elseif DateFormat&=1    rem dd/mm/yyyy
  795.         D$=Left$(Date$,2)
  796.         M$=Mid$(Date$,3,4)
  797.         Y$=Mid$(Date$,7,4)
  798.         Date$=Right$(Date$,Len(Date$)-10)
  799.         Date$=Y$+M$+D$+Date$
  800.     endif
  801. PROC AdjustFields:
  802.     rem the following code rearranges the copied fields
  803.     if Skip% :return :endif
  804.     if NoSubj%
  805.         Subject$="< no subject >"
  806.     elseif Subject$="" or Subject$=Body$
  807.         if BCC$="" or BCC$=Body$
  808.             Subject$=CC$ :CC$="" :BCC$=""
  809.         else
  810.             Subject$=BCC$ :BCC$=""
  811.         endif
  812.     endif
  813. PROC PasteToData:
  814.     FgApp%:(Data$)
  815.     pause 20
  816.     if NumMsg%=1    rem first message (or single message) to store
  817.         SendRscMenu:(DataRSC$,4,&D)    rem new entry ("Ctrl+Shift+n" for UK/USA)
  818.     endif
  819.     pause 20
  820.     if Skip%<>-1
  821.         SendKey:("Tab,Tab,Tab,Tab,Tab")    rem move to BODY field
  822.         SendKey:("Ctrl+v")
  823.         pause 20
  824.         SendKey:("Shift+Tab")    rem move to CC/BCC field
  825.         Paste:(CC$+Chr$(013)+BCC$)    rem Chr$(013)=carriage return
  826.         pause 20
  827.         SendKey:("Shift+Tab")    rem move to TO field
  828.         if To$<>""
  829.             Paste:(To$)
  830.         endif
  831.         pause 20
  832.         SendKey:("Shift+Tab")    rem move to FROM field
  833.         Paste:(From$)
  834.         pause 20
  835.         SendKey:("Shift+Tab")    rem move to DATE field
  836.         Paste:(Date$)
  837.         pause 20
  838.         SendKey:("Shift+Tab")    rem move to TITLE field
  839.         if Subject$<>""
  840.             Paste:(Subject$)
  841.         endif
  842.         pause 20
  843.         SendRscMenu:(DataRSC$,4,&16)    rem save message ("Ctrl+s" for UK/USA)
  844.     endif
  845.     if NumMsg%=TotMsg&    rem last message (or single message) stored
  846.         SendKey:("Esc")    rem exit from "new entry mode"
  847.     endif
  848. PROC PasteToWord:
  849.     if Skip% :return :endif
  850.     FgApp%:(Data$)
  851.     pause 20
  852.     SendRscMenu:(DataRSC$,4,&125)    rem select all ("Ctrl+a" for UK/USA)
  853.     SendKey:("Left,Enter")
  854.     pause 20
  855.     SendKey:("Ctrl+v")
  856.     SendKey:("Enter")
  857.     Paste:("************ end of message ************")
  858.     SendKey:("Enter")
  859.     SendRscMenu:(DataRSC$,4,&125)    rem select all ("Ctrl+a" for UK/USA)
  860.     SendKey:("Left,Enter")
  861.     pause 20
  862.     if Subject$<>""
  863.         SendKey:("Enter")
  864.         Paste:("* Subject: "+Subject$)
  865.         pause 20
  866.     endif
  867.     SendKey:("Enter")
  868.     Paste:("* Date: "+Date$)
  869.     pause 20
  870.     if Subject$<>""
  871.         SendKey:("Enter")
  872.         Paste:("* From: "+From$)
  873.         pause 20
  874.     endif
  875.     if To$<>""
  876.         SendKey:("Enter")
  877.         Paste:("* To: "+To$)
  878.     endif
  879.     pause 20
  880.     if CC$<>"" or BCC$<>""
  881.         SendKey:("Enter")
  882.         Paste:("* CC/BCC:"+CC$+Chr$(013)+BCC$)    rem Chr$(013)=carriage return
  883.     endif
  884.     SendKey:("Enter")
  885.     Paste:("* Body:")
  886.     pause 20
  887.     SendRscMenu:(DataRSC$,4,&125)    rem select all ("Ctrl+a" for UK/USA)
  888.     pause 10
  889.     SendKey:("Left")
  890. PROC Report:
  891.     GetFocus:
  892.     if Len(To$)=250 or Len(CC$)=250 or Len(BCC$)=250
  893.         dinit AppName$+" warning"
  894.         dtext "","Check if the last saved message contains one of"
  895.         dtext "","the To/CC/BCC fields exceeding the 250 chars limit"
  896.         if TotMsg&>1
  897.             NumMsg%=TotMsg&
  898.             dtext "","The message storing procedure has been stopped..."
  899.         endif
  900.         if DelMsg%
  901.             dtext "","The original message won't be deleted from
  902. Email"
  903.         endif
  904.         dbuttons "Continue",13
  905.         dialog
  906.         SendKey:("Esc")    rem exit from "new entry mode" (if necessary)
  907.     else
  908.         if Skip%
  909.             giprint "Message NOT stored"
  910.         elseif TotMsg&>1    rem storing a group of messages
  911.             giprint "Message "+gen$(NumMsg%,3)+" of "+gen$(TotMsg&,3)+" stored"
  912.         else
  913.             giprint "New message stored"
  914.         endif
  915.         pause 20
  916.         FgApp%:(Email$)
  917.         pause 20
  918.         if DelMsg% and Skip%<>-1
  919.             Sendkey:("Del")    rem delete current message
  920.             SendRscButton:("z:\System\Data\Eikon.rsc",308,2)    rem confirm deletion with "Yes" button
  921.             pause 20
  922.         else
  923.             SendKey:("Down")    rem move down to the next message
  924.         endif
  925.         if NumMsg%=TotMsg& and (TotMsg&>1 or DelMsg% or Skip%)    rem last message of a group
  926.             GetFocus:
  927.             dinit AppName$+AppVersion$
  928.             if TotSkip%>0
  929.                 dtext "","Unable to store "+gen$(TotSkip%,3)+" message(s)",$200
  930.             endif
  931.             dtext "",gen$(TotMsg&-TotSkip%,3)+" message(s) successfully stored to:"
  932.             dtext "",Data$
  933.             dbuttons "Continue",13
  934.             dialog
  935.         endif
  936.     endif
  937.     NumMsg%=NumMsg%+1
  938.     Skip%=0
  939. *TextEd.app
  940. "Data.app)@
  941. Table1
  942. Subject
  943. CC/BCC
  944. Arial
  945. Arial
  946. Arial
  947. Table1
  948. ColA9
  949. ColB9
  950. ColA11
  951. ColB11
  952. ColA12
  953. ColB12
  954. ColA13
  955. ColB13
  956. ColA14
  957. ColB14
  958. ColA16
  959. ColB16
  960. Index1
  961. ColA11
  962. ColA9
  963. Table1
  964. Subject
  965. CC/BCC
  966. Arial
  967. Arial
  968. Arial
  969. Times New Roman
  970. &Heading 1L
  971. &Heading 2L
  972. &Heading 3L
  973. .Bullet listO
  974. Swiss
  975. Welcome to SAVEMAIL Macro v2.51 for Epoc Release 3
  976. ------------------
  977. To be used with Macro5 (from v2.37) and a
  978. Psion S5 or Geofox + MsgSuite Email (v1.52)
  979. WHAT'S NEW
  980. ------------------
  981. v 2.51 * improved the handling of messages stored to a Psion Word file: the
  982.          wbox extension has been eliminated, so any Word file can be selected
  983.          as a target file; now the cursor is always left at the beginning of the
  984.          file when the storing procedure ends; if you select an existing Word
  985.          file, now the macro opens it in background (faster)
  986.        * changed the structure of SaveMail.ini file: the first time the macro is
  987.          run, a dialog box will ask to relaunch the Setup procedure and upgrade
  988.          the .ini file
  989. PLEASE READ CAREFULLY
  990. ------------------
  991. SaveMail is a macro that automates the process of copying your messages
  992. from Psion MsgSuite Email to any number of  "preformatted" Psion Data
  993. files (e.g. one for Work and another for Home), or to a "plain" Psion Word
  994. documents, where they can be easily edited, sorted, printed, searched or
  995. simply stored.
  996. Before proceeding, keep in mind the following:
  997. * especially when you choose to store multiple messages, SaveMail
  998.   may take some time to accomplish its task: please note that while the
  999.   macro is running, Macro5 is NOT available for other operations and you
  1000.   also should NOT switch to other tasks or applications;
  1001. * be also advised NOT to touch the keyboard while SaveMail is running,
  1002.   because you could interfere with the scheduled sequence of keystrokes,
  1003.   thus leading to some misbehavior of the macro itself (including the
  1004.   deletion of all your messages in the worst case, only if the "auto-delete"
  1005.   option is selected);
  1006. * if a message contains one or more ATTACHMENTS, the macro simply
  1007.   ignores them, so be careful to manually save them before deleting the
  1008.   original message from MsgSuite;
  1009. * use the "auto-delete" option with care, as there is no way of restoring
  1010.   any deleted message from Psion Email. I strongly recommend a good
  1011.   BACKUP before starting to play with SaveMail...
  1012. * I decline responsibility for any loss of data that may result from the
  1013.   use of this program.
  1014. HOW TO INSTALL AND USE
  1015. ------------------
  1016. 1)  Unzip the savem_r3.zip file.
  1017. 2)  Copy SaveMail.opo, SaveMail.ico  and SaveMail.box to the folder
  1018.     where you keep all the macros of Macro5. The SaveMail.box file is
  1019.     the "preformatted" Data file used to create new MailBox Data files
  1020.     from within the macro. DO NOT use this file to store your messages,
  1021.     just leave it empty in your macros folder.
  1022. 3)  Launch Macro5 and create a new shortcut to SaveMail.opo (remember
  1023.     to select "Macro" and not "Program" in the shortcut "Type" definition).
  1024. 4)  Call SaveMail macro through the associated Macro5 shortcut: the first
  1025.     time you launch it, a Setup process will start, showing your System
  1026.     settings: location of your Email program, Date format and Macro5
  1027.     version (remember you need v2.37 at least, as this macro is not tested
  1028.     with previous releases; also note that if you upgrade from v2.37 to 2.40
  1029.     or later in a second time, you will have to relaunch this setup): simply
  1030.     check if these settings are correct; once passed the first window, a
  1031.     second one will ask you for the location of your default Data file (the
  1032.     one that will be used by default to store your messages); if you do not
  1033.     have previous .box Data files to use, select NEW and a dialog will let
  1034.     you create a new Data file and place it wherever you want (the .box
  1035.     extension will be automatically added if you forget it); finally a last
  1036.     window will ask if you want to enable the choice of different Data files
  1037.     (note that you can create multiple Data files also in a second time using
  1038.     the NEW option), and  if you want to open a dialog window to automate
  1039.     the process of storing (and deleting) a group of messages each time you
  1040.     launch SaveMail.
  1041. 5)  All these settings are stored in a SaveMail.ini file located in the
  1042.     "C:\System\" folder; if for any reason you need to change these settings
  1043.     (e.g. you changed the date format in the System settings, or upgraded
  1044.     Macro5 from v2.37 to v2.40), simply delete the file, and when you will
  1045.     recall SaveMail, the setup process will be launched again.
  1046.     Alternatively, you can relaunch the Setup procedure from within the
  1047.     macro, in the target data file window (if enabled).
  1048. 6)  Once accomplished the setup process, these are the steps to follow:
  1049.     - launch your Email program
  1050.     - select the Inbox or the Sent folder
  1051.     - highlight a message without opening it (do not press Enter)
  1052.     - call SaveMail macro through the associated Macro5 shortcut
  1053. 7)  According to the options you have selected in the setup process, once
  1054.     launched, SaveMail may:
  1055.     - ask for the location of your target Data file to store your message(s)
  1056.     - ask for the number of messages to automatically store
  1057.     - ask if it has to delete the original message(s) from Email
  1058.     - ask if the highlighted message has no subject (see known issues)
  1059. 8)  If everything is OK, once SaveMail has finished its task, you should
  1060.     find yourself again in the Email screen, but you should also find the
  1061.     message(s) stored in the (selected) target Data file.
  1062. UPGRADING
  1063. ------------------
  1064. * If you have v2.10 or later, simply replace SaveMail.opo and SaveMail.box
  1065.   with the new ones (all your settings won't be lost).
  1066. * If you already have a MailBox Data file from v2.00, simply rename it,
  1067.   in order to add the ".box" extension.
  1068. * If you need to upgrade from v1.xx just follow the instructions in the
  1069.   history.txt file.
  1070. NOTES ON THE "PREFORMATTED" MAILBOX DATA FILES
  1071. ------------------
  1072. The "preformatted" DATA files, where the messages from Email are
  1073. stored, have the following labels:
  1074. Subject  (type: text length: 250)  second sorting key (ascending)
  1075. Date     (type: text length: 30)   first sorting key  (descending)
  1076. From     (type: text length: 250)
  1077. To       (type: text length: 250)
  1078. CC/BCC   (type: memo length: unlimited)
  1079. Body     (type: memo length: unlimited)
  1080. NOTES ON THE  "PLAIN" WORD FILE
  1081. ------------------
  1082. You can save your message(s) to a "plain" Psion Word file; the macro
  1083. can create a new Word target file for you, or can use an existing one;
  1084. each field of the original message(s) is copied as text, with an appropriate
  1085. description (e.g. subject, date etc.); if the target file already contains other
  1086. text, the new message will not overwrite it, but will be placed at the
  1087. beginning of the document.
  1088. NOTES ON THE DATE FORMAT OF THE  MESSAGES
  1089. ------------------
  1090. This macro copies the DATE string of the original message (no matter
  1091. which format is selected in your System settings) and changes it to
  1092. "yyyy/mm/dd hh:mm:ss" in order to have them correctly sorted by date
  1093. in the MailBox file (it works both with 12h and 24h TIME format).
  1094. TRANSLATING THE OPL CODE
  1095. ------------------
  1096. Feel free to modify the source code (SaveMail.opl) as you like...
  1097. If the translation fails with a "not found" message and the cursor at the
  1098. line INCLUDE "Systinfo.oxh", it means that you have to install that file
  1099. to your "System\OPL\" folder; feel free to email me at the address below
  1100. and I will send you a copy.
  1101. KNOWN ISSUES
  1102. ------------------
  1103. * If a message has the TO, CC or BCC fields particularly long (e.g. sent
  1104.   to a list of people) only the first 250 characters will be copied to the Data
  1105.   file; if this happens, a dialog is displayed to alert you
  1106. * The macro can't deal with FAXES: such messages are simply ignored
  1107.   and never deleted (even if you selected the "auto-delete" option); a final
  1108.   report window will let you know the number of messages not stored
  1109. * If a message has NO SUBJECT, you have to tell this to SaveMail, using
  1110.   the apposite DIALOG WINDOW (if enabled), otherwise the macro will put
  1111.   the content of the first field it finds above the empty subject into the
  1112.   subject of the MailBox file and you have to manually rearrange the fields
  1113.   once the macro has ended its task...
  1114. ACKNOWLEDGMENTS
  1115. ------------------
  1116. A great thank you to:
  1117. * Pascal Nicolas for writing Macro5 and helping me in making this macro
  1118.   work... Visit his homepage for a huge library of useful macros:
  1119.   http://pnicolas.epocboulevard.com/
  1120. * Mario Collado (author of Assistant) for all his suggestions!
  1121.   Visit his homepage at http://www.psionwelt.net/MarioCollado/
  1122. Any comments & suggestions are welcome!
  1123. E-mail me at:
  1124.   sergioalisi@geocities.com
  1125. Visit my homepage at:
  1126.   http://www.geocities.com/siliconvalley/bridge/1492
  1127. THANKS & ENJOY
  1128. Courier
  1129. Courier
  1130. "word.app
  1131. Times New Roman
  1132. &Heading 1L
  1133. &Heading 2L
  1134. &Heading 3L
  1135. .Bullet listO
  1136. Swiss
  1137. ApSAVEMAIL HISTORY & UPGRADING INSTRUCTIONS
  1138. ------------------
  1139. v 1.00 * first public release
  1140. v 1.10 * "internationalized" version, should work with any language
  1141.          of the Psion S5 and MsgSuite 1.52
  1142. v 1.11 * fixed a bug when the date format was 12 hours am/pm
  1143. v 1.12 * fixed a bug that caused the date string to be copied into the
  1144.          title when the subject was particularly long
  1145. v 1.13 * fixed a bug that sometimes prevented the "from" field from
  1146.          being copied; no more "display switching" between Email and
  1147.          the Data file during the copy & paste procedures (saves time and
  1148.          batteries...)
  1149. v 1.20 * all the message fields are now copied in one single step, then
  1150.          pasted all together to the Data file (saves time);
  1151.        * rewritten the date format procedure (now much faster);
  1152.        * to prevent a "compressing file to save memory" routine from
  1153.          interfering with the correct timing of the macro, the Data file is
  1154.          now always opened at the beginning of SaveMail
  1155. v 1.21 * CC and BCC fields, if present in the original MsgSuite message,
  1156.          are simply ignored and no more pasted to the wrong place (the title
  1157.          field) of the MailBox Data file
  1158. v 2.00 * CC and BCC fields, if present, are now correctly stored to a new
  1159.          field (CC/BCC) in the Mailbox Data file; see UPGRADING below
  1160.        * fixed a bug that made the macro crash when trying to copy a field
  1161.          (other than body) with more than 250 characters; see KNOWN ISSUES
  1162. v 2.10 * no more headaches while struggling with the opl code to adapt it
  1163.          to your folders, CF cards etc. and re-translating the whole! Now the
  1164.          macro is supplied in a ready-to-go SaveMail.opo file and a complete
  1165.          setup process will guide you the first time you launch SaveMail;
  1166.        * added the option of using multiple Data files to store different kinds
  1167.          of messages (see UPGRADING below);
  1168.        * added the option of automatically archiving a group of messages
  1169.          and deleting them from Email, if necessary;
  1170.        * now SaveMail detects your DATE FORMAT from the System settings
  1171.          and works correctly according to them (no more problems for the
  1172.          American MM/DD/YYYY format!).
  1173. v 2.11 * added the option to create a NEW Data file from within the macro;
  1174.        * the SaveMail.ini file (which contains your setup details) is now
  1175.          stored to the "C:\System\" folder to prevent a "Syntax error" if any
  1176.          "illegal" character (e.g. space) is contained in the path of the macros
  1177.          folder (if you want to keep the .ini file saved with v2.10, simply
  1178.          move it from your macros folder to the new location, otherwise
  1179.          delete it);
  1180.        * now fully compatible with Geofox machines (no need to modify the
  1181.          code and retranslate, just use the supplied SaveMail.opo file);
  1182.        * added a report window after a successful archiving of more messages;
  1183.        * now SaveMail, if run as a standalone app, doesn't crash but informs
  1184.          the user that it has to be launched through Macro5.
  1185. v 2.12 * due to an oversight on my side, all the "preformatted" Data
  1186.          files shipped with the previous releases of SaveMail had the FIND
  1187.          facility disabled; the new SaveMail.box of this release fixes the
  1188.          problem, but if you have previous Data files, simply open them,
  1189.          choose Menu/Tools/Find by label... and tick all the labels you want
  1190.          to include in your search (the more labels you select, the slower
  1191.          will be the search, especially with big Data files);
  1192.        * added a progress report after each message of a group is successfully
  1193.          stored (e.g. "Message 2 of 8 stored");
  1194.        * minor changes to some dialog windows.
  1195. v 2.20 * fixed a bug that made the macro crash when archiving messages
  1196.          with an empty "TO" field (e.g. the Psion.life mailing list from Psion)
  1197.        * now the SaveMail Setup may be relaunched from within the macro,
  1198.          in the target data file window (if enabled).
  1199. v 2.30 * easier setup: now SaveMail automatically detects the version of
  1200.          Macro5 you have installed on your machine;
  1201.        * rewritten the procedure to test if SaveMail is launched as a macro;
  1202.        * added a warning window when the "auto-delete" option is selected;
  1203.        * now works on the 5mx, with some limitations;
  1204. v 2.40 * added the option of storing the messages to a "plain" Word file;
  1205.        * added an icon (SaveMail.ico) for the graphic panels of Macro5 v2.40;
  1206.        * in the setup procedure, added the option of changing the "Yes button
  1207.          keystroke" of the Email app if SaveMail fails to detect the right one
  1208.          (may happen if the language of your S5 differs from the one of Email)
  1209. v 2.41 * for 5mx users only: solved a problem due to the Email program
  1210.          which deletes the From field from any stored "Sent" message (moved
  1211.          from the "Sent" folder to any other user-defined folder)
  1212.        * should work with any language of the 5mx and 5mx-pro (feedback is
  1213.          welcome, as I can only work on the Epoc R5 PC Emulator...)
  1214. v 2.42 * for 5mx users only: now the macro lets you specify a Date and Time
  1215.          which will be put in the Time field of any stored message
  1216.        * for 5mx users only: the "auto-delete" option has been re-enabled, as
  1217.          the above option allows you a better handling of each message
  1218. v 2.50 * from this version onwards there are two different macros for Epoc
  1219.          Release 3 (Psion S5 and Geofox) and Release 5 (Psion S5mx etc.)
  1220.        * no more crashes when the macro finds a FAX: now such messages
  1221.          are simply ignored (SaveMail can't deal with them) and never deleted
  1222.        * found a better way to get the "Yes button keystroke": no more need
  1223.          to ask for it in the Setup procedure
  1224. v 2.51 * improved the handling of messages stored to a Psion Word file: the
  1225.          wbox extension has been eliminated, so any Word file can be selected
  1226.          as a target file; now the cursor is always left at the beginning of the
  1227.          file when the storing procedure ends; if you select an existing Word
  1228.          file, now the macro opens it in background (faster)
  1229. UPGRADING from v2.00 to v2.10
  1230. ------------------
  1231. If you already have a MailBox Data file from v2.00, simply RENAME it
  1232. in order to add the ".box" EXTENSION (e.g. in system screen highlight the
  1233. MailBox file, select Menu/File/Rename and change the name to Mail.box)
  1234. UPGRADING from v1.xx to v2.00
  1235. ------------------
  1236. The new Mail.box Data file you find in the savemail.zip file has been
  1237. modified to make place for the CC/BCC field; if you already have a
  1238. MailBox Data file from previous versions of SaveMail, you have to
  1239. modify it in order to create this new field:
  1240. * open your old MailBox Data file
  1241. * select Menu/Tools/Change labels...
  1242. * select ADD...
  1243. * in the "label" field write: CC/BCC
  1244. * in the "data type" select: MEMO
  1245. * choose OK two times
  1246. * select Menu/Tools/Label preferences...
  1247. * with the down arrow highlight CC/BCC
  1248. * choose the "Move Up" button
  1249. * now you should have the CC/BCC label positioned between TO and Body
  1250. * choose OK
  1251. * now your Data file is upgraded to SaveMail v2.xx
  1252. Courier
  1253. Courier
  1254. "word.app
  1255. This SIS-file is designed by BISON Software. 
  1256. Bison Software doesn't accept any liability 
  1257. for the function of the programme to be installed. 
  1258. Please pay attention to the comment in the 
  1259. README file of the author.
  1260. Before installing this software please make 
  1261. a B A C K U P  of your Psion.
  1262. Have a lot of fun!
  1263. Diese SIS-Datei wurde von Bison Software erstellt.
  1264. Bison Software 
  1265. bernimmt keinerlei Garantie f
  1266. r die 
  1267. Funktion des zu installierenden Programmes. 
  1268. Bitte beachten Sie die Hinweise in der 
  1269. README Datei des Autors.
  1270. Bevor Sie das Programm installieren machen Sie 
  1271. ein B A C K U P  Ihres Psion.
  1272. Viel Spa
  1273.