home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS028.DSK / QK_MAIL.SMM < prev    next >
INI File  |  1994-08-04  |  152KB  |  7,660 lines

  1. [ver]
  2.     4
  3. [sty]
  4.     _DEFAULT.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP LaserJet 4P/4MP PostScript
  13. [port]
  14.     LPT2:
  15. [lang]
  16.     1
  17. [fldnames]
  18.     Field1
  19.     Field2
  20.     Field3
  21.     Field4
  22.     Field5
  23.     Field6
  24.     Field7
  25.     Field8
  26. [desc]
  27.     Add Send Mail to the File menu.
  28.     
  29.     
  30.     
  31.     
  32.     776049545
  33.     65
  34.     775153800
  35.     1307
  36.     40
  37.     5791
  38.     51251
  39.     135
  40.     139
  41.     
  42.     
  43.     
  44.     
  45.     
  46.     
  47.     1
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53.     
  54.     
  55. [lnopts]
  56.     2
  57.     Body Text
  58.     1
  59. [docopts]
  60.     5
  61.     2
  62. [GramStyle]
  63.     
  64. [ParaNum]
  65.     1
  66. [tag]
  67.     Body Text
  68.     2
  69.     [fnt]
  70.         Times New Roman
  71.         200
  72.         0
  73.         49152
  74.     [algn]
  75.         1
  76.         1
  77.         0
  78.         0
  79.         720
  80.     [spc]
  81.         33
  82.         273
  83.         1
  84.         0
  85.         0
  86.         1
  87.         100
  88.     [brk]
  89.         4
  90.     [line]
  91.         8
  92.         0
  93.         1
  94.         0
  95.         1
  96.         1
  97.         1
  98.         10
  99.         10
  100.         1
  101.     [spec]
  102.         0
  103.         0
  104.         
  105.         0
  106.         1
  107.         1
  108.         0
  109.         0
  110.         0
  111.         0
  112.     [nfmt]
  113.         280
  114.         1
  115.         2
  116.         .
  117.         ,
  118.         $
  119.     Body Text
  120.     0
  121.     0
  122. [tag]
  123.     Subhead
  124.     7
  125.     [fnt]
  126.         Times New Roman
  127.         200
  128.         0
  129.         49152
  130.     [algn]
  131.         1
  132.         1
  133.         0
  134.         0
  135.         0
  136.     [spc]
  137.         33
  138.         230
  139.         1
  140.         0
  141.         0
  142.         1
  143.         100
  144.     [brk]
  145.         4
  146.     [line]
  147.         8
  148.         0
  149.         1
  150.         0
  151.         1
  152.         1
  153.         1
  154.         10
  155.         10
  156.         1
  157.     [spec]
  158.         0
  159.         2
  160.         
  161.         0
  162.         1
  163.         1
  164.         0
  165.         0
  166.         0
  167.         0
  168.     [nfmt]
  169.         272
  170.         1
  171.         2
  172.         .
  173.         ,
  174.         $
  175.     Subhead
  176.     0
  177.     0
  178. [tag]
  179.     Title
  180.     8
  181.     [fnt]
  182.         Times New Roman
  183.         280
  184.         0
  185.         49153
  186.     [algn]
  187.         4
  188.         1
  189.         0
  190.         0
  191.         0
  192.     [spc]
  193.         33
  194.         345
  195.         1
  196.         0
  197.         0
  198.         1
  199.         100
  200.     [brk]
  201.         80
  202.     [line]
  203.         8
  204.         0
  205.         1
  206.         0
  207.         1
  208.         1
  209.         1
  210.         10
  211.         10
  212.         1
  213.     [spec]
  214.         0
  215.         1
  216.         
  217.         0
  218.         1
  219.         1
  220.         0
  221.         0
  222.         0
  223.         0
  224.     [nfmt]
  225.         272
  226.         1
  227.         2
  228.         .
  229.         ,
  230.         $
  231.     Subhead
  232.     0
  233.     0
  234. [tag]
  235.     Outline3
  236.     12
  237.     [fnt]
  238.         Times New Roman
  239.         200
  240.         0
  241.         49152
  242.     [algn]
  243.         1
  244.         1
  245.         0
  246.         0
  247.         720
  248.     [spc]
  249.         33
  250.         273
  251.         1
  252.         0
  253.         0
  254.         1
  255.         100
  256.     [brk]
  257.         4
  258.     [line]
  259.         8
  260.         0
  261.         1
  262.         0
  263.         1
  264.         1
  265.         1
  266.         10
  267.         10
  268.         1
  269.     [spec]
  270.         0
  271.         3
  272.         
  273.         0
  274.         1
  275.         1
  276.         0
  277.         0
  278.         0
  279.         0
  280.     [nfmt]
  281.         280
  282.         1
  283.         2
  284.         .
  285.         ,
  286.         $
  287.     Outline3
  288.     0
  289.     0
  290. [tag]
  291.     Outline4
  292.     0
  293.     [fnt]
  294.         Times New Roman
  295.         200
  296.         0
  297.         49152
  298.     [algn]
  299.         1
  300.         1
  301.         0
  302.         0
  303.         720
  304.     [spc]
  305.         33
  306.         273
  307.         1
  308.         0
  309.         0
  310.         1
  311.         100
  312.     [brk]
  313.         4
  314.     [line]
  315.         8
  316.         0
  317.         1
  318.         0
  319.         1
  320.         1
  321.         1
  322.         10
  323.         10
  324.         1
  325.     [spec]
  326.         0
  327.         4
  328.         
  329.         0
  330.         1
  331.         1
  332.         0
  333.         0
  334.         0
  335.         0
  336.     [nfmt]
  337.         280
  338.         1
  339.         2
  340.         .
  341.         ,
  342.         $
  343.     Outline4
  344.     0
  345.     0
  346. [lay]
  347.     Standard
  348.     513
  349.     [rght]
  350.         15840
  351.         12240
  352.         1
  353.         720
  354.         1440
  355.         1
  356.         1440
  357.         720
  358.         0
  359.         1
  360.         0
  361.         1
  362.         0
  363.         2
  364.         1
  365.         720
  366.         11520
  367.         12
  368.         1
  369.         720
  370.         1
  371.         1440
  372.         1
  373.         2160
  374.         1
  375.         2880
  376.         1
  377.         3600
  378.         1
  379.         4320
  380.         1
  381.         5040
  382.         1
  383.         5760
  384.         1
  385.         6480
  386.         1
  387.         7200
  388.         1
  389.         7920
  390.         1
  391.         8640
  392.     [hrght]
  393.     [lyfrm]
  394.         1
  395.         11200
  396.         0
  397.         0
  398.         12240
  399.         1440
  400.         0
  401.         1
  402.         3
  403.         1 0 0 0 0 0 0
  404.         0
  405.         0
  406.         1
  407.     [frmlay]
  408.         1440
  409.         12240
  410.         1
  411.         1440
  412.         72
  413.         1
  414.         720
  415.         1440
  416.         0
  417.         1
  418.         0
  419.         1
  420.         1
  421.         0
  422.         1
  423.         1440
  424.         10800
  425.         2
  426.         2
  427.         4680
  428.         3
  429.         9360
  430.     [txt]
  431. >
  432.     [frght]
  433.     [lyfrm]
  434.         1
  435.         13248
  436.         0
  437.         14400
  438.         12240
  439.         15840
  440.         0
  441.         1
  442.         3
  443.         1 0 0 0 0 0 0
  444.         0
  445.         0
  446.         2
  447.     [frmlay]
  448.         15840
  449.         12240
  450.         1
  451.         1440
  452.         504
  453.         1
  454.         14472
  455.         1440
  456.         0
  457.         1
  458.         0
  459.         1
  460.         1
  461.         0
  462.         1
  463.         1440
  464.         10800
  465.         2
  466.         2
  467.         4680
  468.         3
  469.         9360
  470.     [txt]
  471.  
  472. <+B><:db<*"><* >>\<:db<*!><* >>
  473.  
  474. <+B>Page <:P10,0,>
  475.  
  476. >
  477. [elay]
  478. [l1]
  479.     0
  480. [pg]
  481.     40
  482.     52 0 22 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  483.     104 0 14 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  484.     152 0 26 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  485.     206 0 21 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  486.     260 0 60 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  487.     313 0 101 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  488.     357 73 24 96 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  489.     405 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  490.     458 0 17 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  491.     512 0 27 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  492.     566 0 16 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  493.     620 0 12 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  494.     674 0 47 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  495.     727 0 5 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  496.     780 0 62 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  497.     833 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  498.     887 0 72 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  499.     941 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  500.     993 0 55 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  501.     1046 0 53 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  502.     1100 0 32 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  503.     1153 0 10 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  504.     1207 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  505.     1260 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  506.     1314 0 59 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  507.     1367 0 17 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  508.     1419 0 25 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  509.     1473 0 12 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  510.     1526 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  511.     1578 0 84 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  512.     1631 0 5 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  513.     1684 0 2 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  514.     1738 0 7 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  515.     1791 0 30 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  516.     1844 0 4 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  517.     1896 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  518.     1949 0 8 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  519.     2001 0 67 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  520.     2050 0 53 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  521.     2051 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  522. [edoc]
  523. @Title@<:#332,10800>'Quick Mail
  524.  
  525. @Subhead@<:#240,10800>'go into outline mode for this layout to make sense.
  526.  
  527. @Subhead@<:#240,10800>'Macro to enable someone to use Ami Pro as the rich text editor for e-mail
  528.  
  529. @Subhead@<:#240,10800>'note for the future********* bookmarks in qkmail.sty cannot end in 1*************
  530.  
  531. @Subhead@<:#240,10800>' ***** do not change bookmark names *******************************
  532.  
  533. @Subhead@<:#240,10800>
  534.  
  535. @Subhead@<:#240,10800>'Angela Moorman
  536.  
  537. @Subhead@<:#240,10800>'Lotus WPD
  538.  
  539. @Subhead@<:#240,10800>'April 18, 1994
  540.  
  541. @Subhead@<:#240,10800>' Revised and modified by Karen Emerson 7/13/94
  542.  
  543. @Subhead@<:#240,10800>'Revised and modified by David Zoller on 7/26/94
  544.  
  545. @Title@<:#332,10800>'stuff to localize
  546.  
  547. @Subhead@<:#240,10800>'note stuff
  548.  
  549. @Outline3@<:#240,10800>define    MSGDIVIDERBAR    "- - - - - - - - - - - - - - - - - - - - - - - {replyType} History - - - - - - - - - - - - - - - - - - - - - - -"
  550.  
  551. @Outline3@<:#240,10800>define    NOTETXT_MSGATTACHED    "(Note: This message is attached.)"
  552.  
  553. @Outline3@<:#240,10800>define    STYLENAME_TABLETEXT    "Table Text"
  554.  
  555. @Outline3@<:#240,10800>define    STYLESHEET_QKMAIL    "qkmail9.sty"
  556.  
  557. @Outline3@<:#240,10800>define    SUBJECTPREFIX_REPLY    "Re: "
  558.  
  559. @Outline3@<:#240,10800>define    SubjectStr    "Subject:"
  560.  
  561. @Outline3@<:#240,10800>define    DateStr    "Date:"
  562.  
  563. @Outline3@<:#240,10800>define    DateStr1    "Date:1"
  564.  
  565. @Outline3@<:#240,10800>define    DATE_FORMAT    "d"
  566.  
  567. @Outline3@<:#240,10800>define    bccStr    "bcc:"
  568.  
  569. @Outline3@<:#240,10800>define    ccStr    "cc:"
  570.  
  571. @Outline3@<:#240,10800>define    FromStr    "From:"
  572.  
  573. @Outline3@<:#240,10800>define    ToStr    "To:"
  574.  
  575. @Outline3@<:#240,10800>define    ReceiptStr    "Receipt"
  576.  
  577. @Outline3@<:#240,10800>define    ReplyStr "Reply"
  578.  
  579. @Outline3@<:#240,10800>define    ForwardStr "Forward"
  580.  
  581. @Subhead@<:#240,10800>'messages
  582.  
  583. @Outline3@<:#240,10800>define    AddressError "Your cursor must be in the To:, cc:, or bcc: fields to access the Address book."
  584.  
  585. @Outline3@<:#240,10800>define    ADDRESS_TXT    "Address"
  586.  
  587. @Outline3@<:#240,10800>define    AttachError "Attach file(s) is checked, but no formats are selected. Select formats or uncheck Attach file(s)."
  588.  
  589. @Outline3@<:#240,10800>define    AttachmentError "Attachment list too long.  Reduce the length of attachment names to less than 255 characters."
  590.  
  591. @Outline3@<:#240,10800>define    BccError "Recipient (bcc:) List has been truncated. Reduce the length of names to less than 255 characters."
  592.  
  593. @Outline3@<:#240,10800>define    CcError "Recipient (cc:) List has been truncated. Reduce the length of names to less than 255 characters."
  594.  
  595. @Outline3@<:#240,10800>define    CopyError "Unable to attach document containing mail message. Cancel Message?"
  596.  
  597. @Outline3@<:#240,10800>define    MessageTitle    "Ami Pro Mail"
  598.  
  599. @Outline3@<:#240,10800>define    OtherFormatError "Unable to save file in format {type}. Cancel Message?"
  600.  
  601. @Outline3@<:#240,10800>define    QuestionText "This document may contain a table, frame or a footnote. Do you want to attach this file to the message?"
  602.  
  603. @Outline3@<:#240,10800>define    ToError "Recipient (To:) List has been truncated. Reduce the length of names to less than 255 characters."
  604.  
  605. @Outline3@<:#240,10800>define    ToRequired    "'To:' is a required field."
  606.  
  607. @Outline3@<:#240,10800>' message box (should be same text as the one in the amipro.exe)
  608.  
  609. @Outline3@<:#480,10800>define     PromptRevMarkMode  "This document was saved while in revision marking mode. Would you like to enter revision marking mode?"
  610.  
  611. @Subhead@<:#240,10800>'file handling stuff
  612.  
  613. @Outline3@<:#240,10800>define    DOCDESC_MAILMEMO    "Mail Memo"
  614.  
  615. @Outline3@<:#240,10800>define    DOCDESC_ROBUST    "Mail Message saved in {msgtype} format"
  616.  
  617. @Outline3@<:#240,10800>define    FILE_ATTACHNOEXT    " ; message."
  618.  
  619. @Outline3@<:#240,10800>define    FILENAME_NOEXT    "message."
  620.  
  621. @Outline3@<:#240,10800>define    MailFile    "~ltsmail.sam"
  622.  
  623. @Outline3@<:#240,10800>define     MailBackupFile "~mailbk.sam"
  624.  
  625. @Outline3@<:#240,10800>define    MAILFILE_LEN    12
  626.  
  627. @Outline3@<:#240,10800>define    MESSAGEFILE    "; mailmemo.sam");
  628.  
  629. @Outline3@<:#240,10800>define    MSGTYPE_AMIPRO    "Ami Pro"
  630.  
  631. @Outline3@<:#240,10800>define    TEMPFILENAME_PREFIX    "msg"
  632.  
  633. @Outline3@<:#240,10800>define    TEMPFILENAME_RICHTEXT    "note.rtf"
  634.  
  635. @Outline3@<:#240,10800>define    TEMPFILENAME_LEN_RICHTEXT    8
  636.  
  637. @Subhead@<:#240,10800>'m<*7>enus
  638.  
  639. @Outline3@<:#240,10800>define    MENU_FILE    "&File"
  640.  
  641. @Outline3@<:#240,10800>define    MENUITEM_SENDMAIL    "Send &Mail..."
  642.  
  643. @Outline3@<:#240,10800>define    CASCMENU_SENDMAIL    "Send &Mail"
  644.  
  645. @Outline3@<:#240,10800>define    CASCMENUITEM_ADDRESS    "&Address..."
  646.  
  647. @Outline3@<:#240,10800>define    CASCMENUITEM_ATTACHFILES    "Attach &Files..."
  648.  
  649. @Outline3@<:#240,10800>define    CASCMENUITEM_COMPOSE    "&Compose Mail Message"
  650.  
  651. @Outline3@<:#240,10800>define    CASCMENUITEM_FORWARD    "For&ward"
  652.  
  653. @Outline3@<:#240,10800>define    CASCMENUITEM_REPLY    "&Reply"
  654.  
  655. @Outline3@<:#240,10800>define    CASCMENUITEM_REPLYTOALL    "Re&ply to All"
  656.  
  657. @Outline3@<:#240,10800>define    CASCMENUITEM_REPLYTOALLWHIST    "Reply to All with &History"
  658.  
  659. @Outline3@<:#240,10800>define    CASCMENUITEM_REPLYWHIST    "Reply with H&istory"
  660.  
  661. @Outline3@<:#240,10800>define    CASCMENUITEM_SENDASATTACH    "Send as an A&ttachment..."
  662.  
  663. @Outline3@<:#240,10800>define    CASCMENUITEM_VIMMAIL    "&Send..."
  664.  
  665. @Outline3@<:#240,10800>define    CASCMENUITEM_HELP_ADDRESS    "Use the Address Book to choose recipients."
  666.  
  667. @Outline3@<:#240,10800>define    CASCMENUITEM_HELP_ATTACHFILES    "Attach file(s) to the current message."
  668.  
  669. @Outline3@<:#240,10800>define    CASCMENUITEM_HELP_COMPOSE    "Compose an e-mail message with Ami Pro."
  670.  
  671. @Outline3@<:#240,10800>define    CASCMENUITEM_HELP_FORWARD    "Forward this message to others."
  672.  
  673. @Outline3@<:#240,10800>define    CASCMENUITEM_HELP_REPLY    "Reply to a message."
  674.  
  675. @Outline3@<:#240,10800>define    CASCMENUITEM_HELP_REPLYTOALL    "Reply to a message, and copy all other recipients."
  676.  
  677. @Outline3@<:#480,10800>define    CASCMENUITEM_HELP_REPLYTOALLWHIST    "Reply to a message, copy all other recipients, and forward the original message."
  678.  
  679. @Outline3@<:#240,10800>define    CASCMENUITEM_HELP_REPLYWHIST    "Reply to a message, and forward the original message."
  680.  
  681. @Outline3@<:#480,10800>define    CASCMENUITEM_HELP_SENDASATTACH    "Send an electronic message, and optionally attach the current document."
  682.  
  683. @Outline3@<:#240,10800>define    CASCMENUITEM_HELP_VIMMAIL    "Send the mail message."
  684.  
  685. @Subhead@<:#240,10800>'dialog box text
  686.  
  687. @Outline3@<:#240,10800>'file types
  688.  
  689. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_ADVWRITE    "AdvanceWrite"
  690.  
  691. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_ASCII    "ASCII"
  692.  
  693. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_FFT    "DCA/FFT"
  694.  
  695. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_RFT    "DCA/RFT"
  696.  
  697. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_DW4    "DisplayWrite"
  698.  
  699. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_EMAIL    "E-Mail"
  700.  
  701. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_ENABLE    "Enable 4.x"
  702.  
  703. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_EMM    "Exec MemoMaker"
  704.  
  705. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_MSWORD    "Microsoft Word"
  706.  
  707. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_OW    "Office Writer"
  708.  
  709. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_PEACH    "PeachText"
  710.  
  711. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_PROWRITE    "Professional Write"
  712.  
  713. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_RTF    "Rich Text Format"
  714.  
  715. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_SAMNA    "Samna Word"
  716.  
  717. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_WANG    "Wang (IWP)"
  718.  
  719. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_WRITE    "Windows Write"
  720.  
  721. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_WORD20    "Word for Windows 2.0"
  722.  
  723. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_WP42    "WordPerfect ver 4.2"
  724.  
  725. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_WP5X    "WordPerfect 5.x"
  726.  
  727. @Outline4@<:#240,10800>define    ARRAYITEM_FORMATNAME_WORDSTAR    "WordStar"
  728.  
  729. @Outline3@<:#240,10800>'help messages
  730.  
  731. @Outline4@<:#480,10800>define    HelpforAmiProAttach    "In choosing this option, your memo is attached as an Ami Pro document into the Lotus Notes or cc:Mail E-Mail message."
  732.  
  733. @Outline4@<:#480,10800>define    HelpforLogMessage    "In choosing this option, a copy of your memo will be saved in your Lotus Notes or cc:Mail mailbox."
  734.  
  735. @Outline4@<:#480,10800>define    HelpforMemoText    "In choosing this option, the contents of your memo will be copied into the memo area of the Lotus Notes or cc:Mail E-Mail message."
  736.  
  737. @Outline4@<:#480,10800>define    HelpforOtherFormats "In choosing this option, your memo is converted to the selected file format(s) and attached into the Lotus Notes or cc:Mail E-Mail message."
  738.  
  739. @Outline4@<:#240,10800>define    HelpforPriority    "In choosing this option, you will set the delivery priority for your E-Mail message."
  740.  
  741. @Outline4@<:#240,10800>define    HelpforReceipt    "In choosing this option, you will receive mail notification when your message is opened."
  742.  
  743. @Outline4@<:#480,10800>define    HelpforRevMarking    "In choosing this option, you will suggest that the receiver use Revision Marking when editing an Ami Pro attachment."
  744.  
  745. @Outline3@<:#240,10800>define    LogStr    "Log"
  746.  
  747. @Outline3@<:#240,10800>define    OptionsTitle "Send Mail Options"
  748.  
  749. @Outline3@<:#240,10800>define    LowStr    "Low"
  750.  
  751. @Outline3@<:#240,10800>define    PriorityStr    "Priority"
  752.  
  753. @Outline3@<:#240,10800>define    UrgentStr    "Urgent"
  754.  
  755. @Title@<:#332,10800>'stuff to not localize
  756.  
  757. @Subhead@<:#240,10800>'Array labels for dialog
  758.  
  759. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_ADVWRITE    "ADV"
  760.  
  761. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_ASCII    "ASC"
  762.  
  763. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_DW4    "DW4"
  764.  
  765. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_EMAIL    "TXT"
  766.  
  767. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_EMM    "EMM"
  768.  
  769. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_ENABLE    "WPF"
  770.  
  771. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_FFT    "FFT"
  772.  
  773. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_MSWORD    "MSW"
  774.  
  775. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_OW    "OFF"
  776.  
  777. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_PEACH    "PEA"
  778.  
  779. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_PROWRITE    "PW"
  780.  
  781. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_RFT    "RFT"
  782.  
  783. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_RTF    "RTF"
  784.  
  785. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_SAMNA    "SMN"
  786.  
  787. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_WANG    "WNG"
  788.  
  789. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_WORD20    "DOC"
  790.  
  791. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_WORDSTAR    "WS5"
  792.  
  793. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_WP42    "WP4"
  794.  
  795. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_WP5X    "WP5"
  796.  
  797. @Outline3@<:#240,10800>define    ARRAYITEM_FORMATTYPE_WRITE    "WRI"
  798.  
  799. @Subhead@<:#240,10800>'chars, etc.
  800.  
  801. @Outline3@<:#240,10800>define    COMMACHAR    ","
  802.  
  803. @Outline3@<:#240,10800>define    COMMASPACE    ", "
  804.  
  805. @Outline3@<:#240,10800>define    CommaStr    ","
  806.  
  807. @Outline3@<:#240,10800>define    NULL    ""
  808.  
  809. @Outline3@<:#240,10800>define    PERIODCHAR    "."
  810.  
  811. @Outline3@<:#240,10800>define    RBRACKETCHAR    "]"
  812.  
  813. @Outline3@<:#240,10800>define    RETCHAR    "</v>"
  814.  
  815. @Outline3@<:#240,10800>define    SLASHCHAR    "\"
  816.  
  817. @Outline3@<:#240,10800>define    SPACECHAR    " "
  818.  
  819. @Outline3@<:#240,10800>define    SPACECOMMA    " ,"
  820.  
  821. @Outline3@<:#240,10800>define    SpacerStr    " "
  822.  
  823. @Outline3@<:#240,10800>define    SPACESPACE    "  "
  824.  
  825. @Outline3@<:#240,10800>define    SPACETABCOLON    "     :"
  826.  
  827. @Outline3@<:#240,10800>define    TABCHAR    "    "
  828.  
  829. @Subhead@<:#240,10800>'bookmarks & other labels
  830.  
  831. @Outline3@<:#240,10800>define    BKMK_CURPOS    "curPos"
  832.  
  833. @Outline3@<:#240,10800>define    BKMK_SUBJECTTEXT    "subjecttxt"
  834.  
  835. @Outline3@<:#240,10800>define    DarkModeStr    "DarkMode"
  836.  
  837. @Subhead@<:#240,10800>'frame names
  838.  
  839. @Outline3@<:#240,10800>define    FRAMEARRAY_ADDRESS    "Address"
  840.  
  841. @Outline3@<:#240,10800>define    FRAMEARRAY_ATTACH    "Attach"
  842.  
  843. @Outline3@<:#240,10800>define    FRAMEARRAY_COMPOSE    "Compose"
  844.  
  845. @Outline3@<:#240,10800>define    FRAMEARRAY_FORWARD    "Forward"
  846.  
  847. @Outline3@<:#240,10800>define    FRAMEARRAY_HIDE2    "Hide2"
  848.  
  849. @Outline3@<:#240,10800>define    FRAMEARRAY_REPLY    "Reply"
  850.  
  851. @Outline3@<:#240,10800>define    FRAMEARRAY_REPLYALL    "ReplyAll"
  852.  
  853. @Outline3@<:#240,10800>define    FRAMEARRAY_REPLYALLHIST    "ReplyAllHistory"
  854.  
  855. @Outline3@<:#240,10800>define    FRAMEARRAY_REPLYHIST    "ReplyHistory"
  856.  
  857. @Outline3@<:#240,10800>define    FRAMEARRAY_SEND    "Send"
  858.  
  859. @Outline3@<:#240,10800>define    FRAMENAME_MEMO    "Memo"
  860.  
  861. @Outline3@<:#240,10800>define    FRAMENAME_REPLYGRP    "ReplyGrp"
  862.  
  863. @Outline3@<:#240,10800>define    FRAMENAME_SENDGRP    "SendGrp"
  864.  
  865. @Subhead@<:#240,10800>'global vars
  866.  
  867. @Outline3@<:#240,10800>define    GVAccess    "Access"
  868.  
  869. @Outline3@<:#240,10800>define    GVAttachAmi    "AttachAmi"
  870.  
  871. @Outline3@<:#240,10800>define    GVAttachOtherFormat    "AttachOtherFormat"
  872.  
  873. @Outline3@<:#240,10800>define    GVCopyMessage    "CopyMessage"
  874.  
  875. @Outline3@<:#240,10800>define    GVFiles    "Files"
  876.  
  877. @Outline3@<:#240,10800>define    GVFilesList    "FilesList"
  878.  
  879. @Outline3@<:#240,10800>define    GVFormatList    "FormatList"
  880.  
  881. @Outline3@<:#240,10800>define    GVQkmail    "qkmail"
  882.  
  883. @Outline3@<:#240,10800>define    GVRevMarking    "RevMarking" 
  884.  
  885. @Subhead@<:#240,10800>' Profile Strings
  886.  
  887. @Outline3@<:#240,10800>define    PSAmiproIni    "amipro2.ini"
  888.  
  889. @Outline3@<:#240,10800>define    PSAttachAmiPro    "AttachAmiPro"
  890.  
  891. @Outline3@<:#240,10800>define    PSAttachOther    "AttachOther"
  892.  
  893. @Outline3@<:#240,10800>define    PSCopyMessage    "CopyMessage"
  894.  
  895. @Outline3@<:#240,10800>define    PSMail    "Mail"
  896.  
  897. @Outline3@<:#240,10800>define    PSRevisionMarking    "RevisionMarking" 
  898.  
  899. @Outline3@<:#240,10800>
  900.  
  901. @Subhead@<:#240,10800>'misc
  902.  
  903. @Outline3@<:#240,10800>define    DOCINFO_REVMARKON    "RevOn"
  904.  
  905. @Outline3@<:#240,10800>define    FILEEXT_PEACH    "doc"
  906.  
  907. @Outline3@<:#240,10800>define    DOCVAR_USABLEFILE    "DocVarQKMail"
  908.  
  909. @Outline3@<:#240,10800>define    MENUSET_SEND    "sendmenus"
  910.  
  911. @Outline3@<:#240,10800>define    MENUSET_REPLY    "replymenus"
  912.  
  913. @Subhead@<:#240,10800>' Other strings
  914.  
  915. @Outline3@<:#240,10800>Define AmiProHelpFile        "amipro.hlp"
  916.  
  917. @Outline3@<:#240,10800>Define AmiProWindow    "AmiProWndA"
  918.  
  919. @Subhead@<:#240,10800>'attach dialog
  920.  
  921. @Outline3@<:#240,10800>Define    Move        21
  922.  
  923. @Outline3@<:#240,10800>Define Remove    22
  924.  
  925. @Outline3@<:#240,10800>Define    OK        20
  926.  
  927. @Outline3@<:#240,10800>Define Okbutton    26
  928.  
  929. @Subhead@<:#240,10800>'options dialog
  930.  
  931. @Outline3@<:#240,10800>Define    OptionsOK    26
  932.  
  933. @Outline3@<:#240,10800>Define  SetDefault    25
  934.  
  935. @Outline3@<:#240,10800>Define   InitDlg    0
  936.  
  937. @Outline3@<:#240,10800>
  938.  
  939. @Outline3@<:#240,10800>Define   GetExt    0
  940.  
  941. @Outline3@<:#240,10800>Define    FillListBox    1
  942.  
  943. @Outline3@<:#240,10800>
  944.  
  945. @Outline3@<:#240,10800>Define      toSender             0
  946.  
  947. @Outline3@<:#240,10800>Define    toAll              1
  948.  
  949. @Outline3@<:#240,10800>Define    toForward    2
  950.  
  951. @Outline3@<:#240,10800>Define       ReplywoHistory 0
  952.  
  953. @Outline3@<:#240,10800>Define    ReplywHistory    1
  954.  
  955. @Outline3@<:#240,10800>Define    LOTUSMAIL   0
  956.  
  957. @Outline3@<:#240,10800>Define    UNKNOWN      1
  958.  
  959. @Outline3@<:#240,10800>Define    EXPORT_CNT    19
  960.  
  961. @Subhead@<:#240,10800>' Message Defines
  962.  
  963. @Outline3@<:#240,10800>Define WM_USER            1024
  964.  
  965. @Outline3@<:#240,10800>Define WM_SETREDRAW        0x000B
  966.  
  967. @Outline3@<:#240,10800>Define WM_COMMAND        0x0111
  968.  
  969. @Outline3@<:#240,10800>
  970.  
  971. @Outline3@<:#240,10800>Define    LB_DELETESTRING    1027
  972.  
  973. @Outline3@<:#240,10800>Define LB_SETSEL            1030
  974.  
  975. @Outline3@<:#240,10800>Define LB_SETCURSEL        1031
  976.  
  977. @Outline3@<:#240,10800>Define LB_GETSEL            1032
  978.  
  979. @Outline3@<:#240,10800>Define LB_GETCURSEL        1033
  980.  
  981. @Outline3@<:#240,10800>Define LB_GETTEXT        1034
  982.  
  983. @Outline3@<:#240,10800>Define LB_GETCOUNT        1036
  984.  
  985. @Outline3@<:#240,10800>Define LB_SELECTSTRING        1037
  986.  
  987. @Outline3@<:#240,10800>Define LB_FINDSTRING        1040
  988.  
  989. @Outline3@<:#240,10800>Define LB_GETSELCOUNT                1041
  990.  
  991. @Outline3@<:#240,10800>
  992.  
  993. @Outline3@<:#240,10800>Define  CB_SELECTSTRING    1037
  994.  
  995. @Outline3@<:#240,10800>
  996.  
  997. @Subhead@<:#240,10800>'Help defines
  998.  
  999. @Outline3@<:#240,10800>define HELP_CONTEXT    0x0001
  1000.  
  1001. @Outline3@<:#240,10800>define VK_F1            112
  1002.  
  1003. @Outline3@<:#240,10800>define VK_TAB        9
  1004.  
  1005. @Outline3@<:#240,10800>define WM_CHAR        258
  1006.  
  1007. @Outline3@<:#240,10800>define WinHelp(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  1008.  
  1009. @Subhead@<:#240,10800>'Function Defines
  1010.  
  1011. @Outline3@<:#240,10800>'functions
  1012.  
  1013. @Outline4@<:#240,10800>Define         GetActiveTextWin()            GetInfo(267)
  1014.  
  1015. @Outline4@<:#240,10800>Define         IsOKToRun(menuname)        GetInfo(217, 24, %1)
  1016.  
  1017. @Outline4@<:#240,10800>Define        AnyFootNotesFlag()            GetInfo(24)
  1018.  
  1019. @Outline4@<:#240,10800>Define        GETGOTOITEMLEGALFLAG()    GetInfo(86, %1)
  1020.  
  1021. @Outline4@<:#240,10800>Define Frame 0
  1022.  
  1023. @Outline3@<:#240,10800>'dllcalls
  1024.  
  1025. @Outline4@<:#240,10800>Define HideCaret()     DllCall("user,HideCaret,HA",%1)
  1026.  
  1027. @Outline4@<:#240,10800>Define ShowCaret()    DllCall("user,ShowCaret,HA",%1)
  1028.  
  1029. @Outline4@<:#240,10800>Define EnableWindow() DllCall("user,EnableWindow,IHI",%1,%2)
  1030.  
  1031. @Outline4@<:#240,10800>
  1032.  
  1033. @Outline4@<:#240,10800>Define SendMessage(hwnd, message, wparam, lparam) dllcall("user,SendMessage,JHHHJ", %1, %2, %3, %4)
  1034.  
  1035. @Outline4@<:#240,10800>Define PostMessage(hwnd, message, wparam, lparam) dllcall("user,PostMessage,JHHHJ", %1, %2, %3, %4)
  1036.  
  1037. @Outline4@<:#240,10800>Define     SendMessageChar(hwnd, message, wparam, lpstr)    dllcall("user,sendmessage,HHHHC", %1, %2, %3, %4)
  1038.  
  1039. @Outline4@<:#240,10800>
  1040.  
  1041. @Outline4@<:#240,10800>Define GetActiveWindow()         DllCall("user,GetActiveWindow,H")
  1042.  
  1043. @Outline4@<:#240,10800>Define InvalidateRect(hwnd, stuff, H) DllCall("user,InvalidateRect,HHFH", %1, %2, %3)
  1044.  
  1045. @Outline4@<:#240,10800>Define GetClientRect()              DLLCALL("User,GetClientRect,HHN",%1,%2)
  1046.  
  1047. @Outline4@<:#240,10800>Define FindWindow()             DllCall("user,FindWindow,HCC", %1, %2)
  1048.  
  1049. @Outline4@<:#240,10800>Define Getfocus()             DllCall("user,GetFocus,H")
  1050.  
  1051. @Outline4@<:#240,10800>Define SetFocus(hWnd)        DllCall("user,SetFocus,HH", %1)
  1052.  
  1053. @Outline4@<:#240,10800>Define lock(hWnd)            DllCall("user,lockwindowupdate,hh",%1)
  1054.  
  1055. @Outline4@<:#240,10800>Define EndDlg(hWnd, ret)         DllCall("user,EndDialog,HHI",%1,%2)
  1056.  
  1057. @Outline4@<:#240,10800>Define  lstrcmpi(str1, str2)        DllCall("user,lstrcmpi,ICC",%1,%2)
  1058.  
  1059. @Outline4@<:#240,10800>Define GetTempFileName(drive, prefix, unique, name)    DllCall("kernel,GetTempFileName,IICHC", %1, %2, %3, %4)
  1060.  
  1061. @Outline4@<:#240,10800>Define GetControlID()         DllCall("user,GetDlgCtrlID,HH",%1)
  1062.  
  1063. @Outline4@<:#240,10800>Define GetNextControl(hdlg, hcontrol,0)    DllCall("user,GetNextDlgTabItem,HHHA",%1,%2,%3)
  1064.  
  1065. @Subhead@<:#240,10800>'Declares
  1066.  
  1067. @Outline3@<:#240,10800>Declare StripDown(Word, Phrase)
  1068.  
  1069. @Outline3@<:#240,10800>Declare StripPhraseFromList(Word, Phrase)
  1070.  
  1071. @Outline3@<:#240,10800>Declare LTrim(String)
  1072.  
  1073. @Outline3@<:#240,10800>Declare ShowSendFrames(bLock)
  1074.  
  1075. @Outline3@<:#240,10800>Declare ShowReplyFrames()
  1076.  
  1077. @Outline3@<:#240,10800>Declare FindMsgItem(Word, body)
  1078.  
  1079. @Outline3@<:#240,10800>Declare ReplaceMsgItem(Word, body)
  1080.  
  1081. @Outline3@<:#240,10800>Declare CheckForFrame()
  1082.  
  1083. @Outline3@<:#240,10800>Declare SetOptions(hDlg, id, text)
  1084.  
  1085. @Outline3@<:#240,10800>Declare ActiveControlHelp(hDlg, key)
  1086.  
  1087. @Outline3@<:#240,10800>Declare DisplayActiveControlHelp(hDlg, controlid)
  1088.  
  1089. @Outline3@<:#240,10800>Declare DisplayActiveHelpByID(hDlg,controlid)
  1090.  
  1091. @Outline3@<:#240,10800>Declare GetFileExtension(task, name, FileExt, count)
  1092.  
  1093. @Outline3@<:#240,10800>Declare Options()
  1094.  
  1095. @Outline3@<:#240,10800>Declare VariableAllocated(name)
  1096.  
  1097. @Outline3@<:#240,10800>Declare ComposeReply(toWhom, replyType)
  1098.  
  1099. @Outline3@<:#240,10800>Declare CheckForFrameInMsg()
  1100.  
  1101. @Outline3@<:#240,10800>Declare   DarkModeMacro(param, hwnd)
  1102.  
  1103. @Outline3@<:#240,10800>Declare  CreateNewFiles(src, attach, count)
  1104.  
  1105. @Outline3@<:#240,10800>Declare  GetMailUserName(name)
  1106.  
  1107. @Outline3@<:#240,10800>Declare  GetMailHost()
  1108.  
  1109. @Outline3@<:#240,10800>Declare ExtractFileName(filename)
  1110.  
  1111. @Outline3@<:#240,10800>Declare AdvancePastSubjectText()
  1112.  
  1113. @Outline3@<:#240,10800>declare FindAndReplace(Targetstring, Findwhat, Replacewith)
  1114.  
  1115. @Outline3@<:#240,10800>declare TrimLeadingTrailingSingles(string, char)
  1116.  
  1117. @Outline3@<:#240,10800>declare FullMenus(menuset)
  1118.  
  1119. @Outline3@<:#240,10800>declare BasicMenus()
  1120.  
  1121. @Outline3@<:#240,10800>declare menupicker()
  1122.  
  1123. <:#240,10800>
  1124.  
  1125. @Title@<:#332,10800>function menupicker()
  1126.  
  1127. @Subhead@<:#240,10800>ignorekeyboard(2)
  1128.  
  1129. @Subhead@<:#240,10800>'dez072594
  1130.  
  1131. @Subhead@<:#240,10800>numfiles=GetOpenFileCount()
  1132.  
  1133. @Subhead@<:#240,10800>if numfiles << 1 or numfiles = 9
  1134.  
  1135. @Subhead@<:#240,10800>    BasicMenus()
  1136.  
  1137. @Subhead@<:#240,10800>    return 0
  1138.  
  1139. @Subhead@<:#240,10800>endif
  1140.  
  1141. @Subhead@<:#240,10800>docvarok=GetDocVar(DOCVAR_USABLEFILE)
  1142.  
  1143. @Subhead@<:#240,10800>CurStyleSheet = lcase$(GetDocInfo$(3))
  1144.  
  1145. @Subhead@<:#240,10800>'since format is saved with doc, the messages with a style sheet result are sends that are being composed.  
  1146.  
  1147. @Subhead@<:#240,10800>'Reply's stylesheet = null.  since I create the reply, and know that replies are the only docs saved 
  1148.  
  1149. @Subhead@<:#240,10800>'with docvar=1.  This routine help make sure that if I'm in MDI land, I can try to build the menus 
  1150.  
  1151. @Subhead@<:#240,10800>'properly based on the correct document.
  1152.  
  1153. @Subhead@<:#240,10800>if CurStyleSheet = STYLESHEET_QKMAIL
  1154.  
  1155. @Subhead@<:#240,10800>    FullMenus(MENUSET_SEND)
  1156.  
  1157. @Subhead@<:#240,10800>    return 1
  1158.  
  1159. @Subhead@<:#240,10800>elseif docvarok = 1
  1160.  
  1161. @Subhead@<:#240,10800>    FullMenus(MENUSET_REPLY)
  1162.  
  1163. @Subhead@<:#240,10800>    return 1
  1164.  
  1165. @Subhead@<:#240,10800>else
  1166.  
  1167. @Subhead@<:#240,10800>    BasicMenus()
  1168.  
  1169. @Subhead@<:#240,10800>    return 0
  1170.  
  1171. @Subhead@<:#240,10800>endif
  1172.  
  1173. @Subhead@<:#240,10800>end function
  1174.  
  1175. @Title@<:#332,10800>Function BasicMenus()
  1176.  
  1177. @Subhead@<:#240,10800>ignorekeyboard(2)
  1178.  
  1179. @Subhead@<:#240,10800>menu = MENU_FILE
  1180.  
  1181. @Subhead@<:#240,10800>cascade = CASCMENU_SENDMAIL
  1182.  
  1183. @Subhead@<:#240,10800>item = CASCMENUITEM_COMPOSE
  1184.  
  1185. @Subhead@<:#240,10800>mac = getrunningmacrofile$()
  1186.  
  1187. @Subhead@DeleteMenuItem(1, menu, MENUITEM_SENDMAIL)
  1188.  
  1189. @Subhead@DeleteMenuItem(1, menu, cascade)
  1190.  
  1191. @Subhead@InsertCascadeMenu(1, menu, 11, cascade)
  1192.  
  1193. @Subhead@AddCascadeMenuItem(1, menu, cascade, CASCMENUITEM_COMPOSE,"{mac}!compose()", CASCMENUITEM_HELP_COMPOSE)
  1194.  
  1195. @Subhead@AddCascadeMenuItem(1, menu,cascade, CASCMENUITEM_SENDASATTACH,"{mac}!send()", CASCMENUITEM_HELP_SENDASATTACH)
  1196.  
  1197. @Subhead@return 1
  1198.  
  1199. @Subhead@<:#240,10800>End Function
  1200.  
  1201. @Title@<:#332,10800>Function FullMenus(menuset)
  1202.  
  1203. @Subhead@<:#240,10800>ignorekeyboard(2)
  1204.  
  1205. @Subhead@<:#240,10800>menu = MENU_FILE
  1206.  
  1207. @Subhead@<:#240,10800>cascade = CASCMENU_SENDMAIL
  1208.  
  1209. @Subhead@<:#240,10800>item = CASCMENUITEM_COMPOSE
  1210.  
  1211. @Subhead@<:#240,10800>mac = getrunningmacrofile$()
  1212.  
  1213. @Subhead@DeleteMenuItem(1, menu, MENUITEM_SENDMAIL)
  1214.  
  1215. @Subhead@DeleteMenuItem(1, menu, cascade)
  1216.  
  1217. @Subhead@InsertCascadeMenu(1, menu, 11, cascade)
  1218.  
  1219. @Subhead@AddCascadeMenuItem(1, menu, cascade, CASCMENUITEM_COMPOSE,"{mac}!compose()", CASCMENUITEM_HELP_COMPOSE)
  1220.  
  1221. @Subhead@AddCascadeMenuItem(1, menu,cascade, CASCMENUITEM_SENDASATTACH,"{mac}!send()", CASCMENUITEM_HELP_SENDASATTACH)
  1222.  
  1223. @Subhead@AddCascadeMenuItem(1, menu,cascade,"-", "", "")
  1224.  
  1225. @Subhead@if menuset != MENUSET_REPLY        '=MENUSET_SEND?
  1226.  
  1227. @Outline3@    AddCascadeMenuItem(1,menu,cascade,         CASCMENUITEM_ADDRESS,"{mac}!address()",CASCMENUITEM_HELP_ADDRESS)
  1228.  
  1229. @Outline3@    AddCascadeMenuItem(1,menu,cascade, CASCMENUITEM_ATTACHFILES,"{mac}!attach()", CASCMENUITEM_HELP_ATTACHFILES)
  1230.  
  1231. @Outline3@    AddCascadeMenuItem(1, menu,cascade, CASCMENUITEM_VIMMAIL,"{mac}!VIMSend()", CASCMENUITEM_HELP_VIMMAIL)
  1232.  
  1233. @Subhead@elseif menuset=MENUSET_REPLY
  1234.  
  1235. @Outline3@    AddCascadeMenuItem(1, menu,cascade, CASCMENUITEM_REPLY,"{mac}!reply()", CASCMENUITEM_HELP_REPLY)
  1236.  
  1237. @Outline3@<:#480,10800>    AddCascadeMenuItem(1, menu,cascade, CASCMENUITEM_REPLYWHIST,"{mac}!ReplyWithHistory()", CASCMENUITEM_HELP_REPLYWHIST)
  1238.  
  1239. @Outline3@<:#480,10800>    AddCascadeMenuItem(1, menu,cascade, CASCMENUITEM_REPLYTOALL,"{mac}!ReplyToAll()", CASCMENUITEM_HELP_REPLYTOALL)
  1240.  
  1241. @Outline3@<:#480,10800>    AddCascadeMenuItem(1, menu,cascade, CASCMENUITEM_REPLYTOALLWHIST,"{mac}!ReplyToAllHistory()", CASCMENUITEM_HELP_REPLYTOALLWHIST)
  1242.  
  1243. @Outline3@<:#480,10800>    AddCascadeMenuItem(1, menu,cascade, CASCMENUITEM_FORWARD,"{mac}!forward()", CASCMENUITEM_HELP_FORWARD)
  1244.  
  1245. @Subhead@<:#240,10800>endif
  1246.  
  1247. @Subhead@<:#240,10800>return 1
  1248.  
  1249. @Subhead@<:#240,10800>End Function
  1250.  
  1251. @Title@<:#332,10800>Function send()    
  1252.  
  1253. @Subhead@<:#240,10800>ignorekeyboard(2)
  1254.  
  1255. @Subhead@<:#240,10800>' Send Message as Attachment
  1256.  
  1257. @Subhead@<:#240,10800>    SendMail
  1258.  
  1259. @Subhead@<:#240,10800>End Function
  1260.  
  1261. @Subhead@<:#240,10800>
  1262.  
  1263. @Title@<:#332,10800>Function donothing()
  1264.  
  1265. @Subhead@<:#240,10800>    'function for hide buttons'
  1266.  
  1267. @Subhead@<:#240,10800>End Function
  1268.  
  1269. @Title@<:#332,10800>Function GetMailHost()
  1270.  
  1271. @Subhead@<:#240,10800>ignorekeyboard(2)
  1272.  
  1273. @Subhead@<:#240,10800>
  1274.  
  1275. @Subhead@<:#240,10800>'for future use - check in macro whether to use (Lotus mail or MicrosoftMail, etc)
  1276.  
  1277. @Subhead@<:#240,10800>' if ...
  1278.  
  1279. @Subhead@<:#240,10800>    return LOTUSMAIL
  1280.  
  1281. @Subhead@<:#240,10800>'else
  1282.  
  1283. @Subhead@<:#240,10800>'    return UNKNOWN
  1284.  
  1285. @Subhead@<:#240,10800>
  1286.  
  1287. @Subhead@<:#240,10800>End Function
  1288.  
  1289. @Title@<:#332,10800>Function Compose(FromFileNew)
  1290.  
  1291. @Subhead@<:#240,10800>ignorekeyboard(2)
  1292.  
  1293. @Subhead@<:#240,10800>DefStr UserName
  1294.  
  1295. @Subhead@<:#240,10800>HourGlass(1)
  1296.  
  1297. @Subhead@<:#240,10800>Lock(GetActiveWindow())         ' turn off screen painting
  1298.  
  1299. @Subhead@<:#240,10800>if FromFileNew != 1    'otherwise doing file/new, STYLESHEET_QKMAIL, will run the macro without opening another file.
  1300.  
  1301. @Subhead@<:#240,10800>    ' bring up style sheet with send/reply buttons
  1302.  
  1303. @Subhead@<:#240,10800>    New(STYLESHEET_QKMAIL, 1, 512)   ' with contents, don't run macro
  1304.  
  1305. @Subhead@<:#240,10800>    menuset=menupicker()    'new always returns 1, so figure out if we're in a mail doc with menupicker
  1306.  
  1307. @Subhead@<:#240,10800>    if menuset=0
  1308.  
  1309. @Subhead@<:#240,10800>        Lock(NULL)
  1310.  
  1311. @Subhead@<:#240,10800>        Hourglass(0)
  1312.  
  1313. @Subhead@<:#240,10800>        return 0
  1314.  
  1315. @Subhead@<:#240,10800>    endif
  1316.  
  1317. @Subhead@<:#240,10800>    SetDocVar(DOCVAR_USABLEFILE, 1)    'if doc gets saved with format, you can still use it even tho stylesheet=NULL
  1318.  
  1319. @Subhead@<:#240,10800>endif
  1320.  
  1321. @Subhead@<:#240,10800>LayoutMode()
  1322.  
  1323. @Subhead@<:#240,10800>StandardView()
  1324.  
  1325. @Subhead@<:#240,10800>FullMenus(MENUSET_SEND)
  1326.  
  1327. @Subhead@<:#240,10800>'show send buttons
  1328.  
  1329. @Subhead@<:#240,10800>ShowSendFrames(0)
  1330.  
  1331. @Subhead@<:#240,10800>
  1332.  
  1333. @Subhead@<:#240,10800>MarkBookMark(DateStr, FindBookMark)
  1334.  
  1335. @Subhead@<:#240,10800>Type("<[>End]")
  1336.  
  1337. @Subhead@<:#240,10800>TextDate = FormatDate$(Now(), DATE_FORMAT)
  1338.  
  1339. @Subhead@<:#240,10800>Type(TextDate)
  1340.  
  1341. @Subhead@<:#240,10800>
  1342.  
  1343. @Subhead@<:#240,10800>MarkBookMark(DateStr,FindBookmark)
  1344.  
  1345. @Subhead@<:#240,10800>Type("<[>ShiftEnd]")
  1346.  
  1347. @Subhead@<:#240,10800>ProtectedText()
  1348.  
  1349. @Subhead@<:#240,10800>
  1350.  
  1351. @Subhead@<:#240,10800>GetMailUserName(&UserName)
  1352.  
  1353. @Subhead@<:#240,10800>MarkBookMark(FromStr,FindBookmark)
  1354.  
  1355. @Subhead@<:#240,10800>Type("<[>End]")
  1356.  
  1357. @Subhead@<:#240,10800>Type(UserName)
  1358.  
  1359. @Subhead@<:#240,10800>
  1360.  
  1361. @Subhead@<:#240,10800>
  1362.  
  1363. @Subhead@<:#240,10800>MarkBookMark(ToStr,FindBookmark)
  1364.  
  1365. @Subhead@<:#240,10800>Type("<[>End]")
  1366.  
  1367. @Subhead@<:#240,10800>
  1368.  
  1369. @Subhead@<:#240,10800>lock(NULL)
  1370.  
  1371. @Subhead@<:#240,10800>HourGlass(0)
  1372.  
  1373. @Subhead@<:#240,10800>End Function
  1374.  
  1375. @Title@<:#332,10800>Function VimSend()
  1376.  
  1377. @Subhead@<:#240,10800>menuset=menupicker()
  1378.  
  1379. @Subhead@<:#240,10800>if menuset=0
  1380.  
  1381. @Subhead@<:#240,10800>    exit function
  1382.  
  1383. @Subhead@<:#240,10800>endif
  1384.  
  1385. @Subhead@<:#240,10800>DefStr cTo, cSubject, cBcc, cCC, cAttachments;
  1386.  
  1387. @Subhead@<:#240,10800>DefStr ExtList, nExtensions, hWnd;
  1388.  
  1389. @Subhead@<:#240,10800>DefStr access, MsgFile, BackupFile, cAttach, cRTF;
  1390.  
  1391. @Subhead@<:#240,10800>Defstr kpfile;
  1392.  
  1393. @Subhead@<:#240,10800>
  1394.  
  1395. @Subhead@<:#240,10800>FindMsgItem(ToStr,&cTo)
  1396.  
  1397. @Subhead@<:#240,10800>If cTo = NULL    
  1398.  
  1399. @Subhead@<:#240,10800>    Message(ToRequired, MessageTitle)
  1400.  
  1401. @Subhead@<:#240,10800>    Lock(GetActiveWindow())
  1402.  
  1403. @Subhead@<:#240,10800>    MarkBookMark(ToStr, FindBookMark)
  1404.  
  1405. @Subhead@<:#240,10800>    Type("<[>End]")
  1406.  
  1407. @Subhead@<:#240,10800>    Lock(NULL)
  1408.  
  1409. @Subhead@<:#240,10800>    Return 0;
  1410.  
  1411. @Subhead@<:#240,10800>Endif
  1412.  
  1413. @Subhead@<:#240,10800>
  1414.  
  1415. @Subhead@<:#240,10800>If  0 = options()    ' go display options dialog box and return on OK or Cancel
  1416.  
  1417. @Subhead@<:#240,10800>    return 0;
  1418.  
  1419. @Subhead@<:#240,10800>Endif
  1420.  
  1421. @Subhead@<:#240,10800>
  1422.  
  1423. @Subhead@<:#240,10800>ret=0
  1424.  
  1425. @Subhead@<:#240,10800>
  1426.  
  1427. @Subhead@<:#240,10800>If len(cTo) <;> 255
  1428.  
  1429. @Subhead@<:#240,10800>    Message(ToError, MessageTitle)
  1430.  
  1431. @Subhead@<:#240,10800>    goto endfunc
  1432.  
  1433. @Subhead@<:#240,10800>Endif
  1434.  
  1435. @Subhead@<:#240,10800>FindMsgItem(ccStr,&cCC)
  1436.  
  1437. @Subhead@<:#240,10800>If Len(cCC) <;> 255
  1438.  
  1439. @Subhead@<:#240,10800>    Message(CcError, MessageTitle)
  1440.  
  1441. @Subhead@<:#240,10800>    goto endfunc
  1442.  
  1443. @Subhead@<:#240,10800>Endif
  1444.  
  1445. @Subhead@<:#240,10800>FindMsgItem(bccStr, &cBcc)
  1446.  
  1447. @Subhead@<:#240,10800>If Len(cBcc) <;> 255
  1448.  
  1449. @Subhead@<:#240,10800>    Message(BccError, MessageTitle)
  1450.  
  1451. @Subhead@<:#240,10800>    goto endfunc
  1452.  
  1453. @Subhead@<:#240,10800>Endif
  1454.  
  1455. @Subhead@<:#240,10800>
  1456.  
  1457. @Subhead@<:#240,10800>HourGlass(1)
  1458.  
  1459. @Subhead@<:#240,10800>bLog = GetGlobalVar$(LogStr)
  1460.  
  1461. @Subhead@<:#240,10800>bReceipt = GetGlobalVar$(ReceiptStr)
  1462.  
  1463. @Subhead@<:#240,10800>Priority = GetGlobalVar$(PriorityStr)
  1464.  
  1465. @Subhead@<:#240,10800>If Priority = LowStr
  1466.  
  1467. @Subhead@<:#240,10800>    nPriority = 0
  1468.  
  1469. @Subhead@<:#240,10800>Elseif nPriority = UrgentStr
  1470.  
  1471. @Subhead@<:#240,10800>    nPriority = 2
  1472.  
  1473. @Subhead@<:#240,10800>Else
  1474.  
  1475. @Subhead@<:#240,10800>    ' Normal - default
  1476.  
  1477. @Subhead@<:#240,10800>    nPriority = 1
  1478.  
  1479. @Subhead@<:#240,10800>Endif
  1480.  
  1481. @Subhead@<:#240,10800>
  1482.  
  1483. @Subhead@<:#240,10800>bCopyMessage = GetGlobalVar$(GVCopyMessage)
  1484.  
  1485. @Subhead@<:#240,10800>otherformats = GetGlobalVar$(GVAttachOtherFormat)
  1486.  
  1487. @Subhead@<:#240,10800>bRevMarking = GetGlobalVar$(GVRevMarking)
  1488.  
  1489. @Subhead@<:#240,10800>
  1490.  
  1491. @Subhead@<:#240,10800>GetFileExtension(GetExt, otherformats, &ExtList, &nExtensions)
  1492.  
  1493. @Subhead@<:#240,10800>
  1494.  
  1495. @Subhead@<:#240,10800>bAttachAmi = GetGlobalVar$(GVAttachAmi)
  1496.  
  1497. @Subhead@<:#240,10800>
  1498.  
  1499. <:#240,10800>
  1500.  
  1501. @Subhead@<:#240,10800>attachments = NULL
  1502.  
  1503. @Subhead@<:#240,10800>bFilesAllocated =  VariableAllocated(GVFiles)
  1504.  
  1505. @Subhead@<:#240,10800>If bFilesAllocated
  1506.  
  1507. @Subhead@<:#240,10800>    attachments = GetGlobalVar$(GVFiles)
  1508.  
  1509. @Subhead@<:#240,10800>Endif
  1510.  
  1511. @Subhead@<:#240,10800>
  1512.  
  1513. @Subhead@<:#240,10800>HideCaret(NULL)
  1514.  
  1515. @Subhead@<:#240,10800>
  1516.  
  1517. @Subhead@<:#240,10800>DocPath = GetDocPath$()
  1518.  
  1519. @Subhead@' Used to do this just before saving the amipro file to attach - but we need to do this regardless of whether
  1520.  
  1521. @Subhead@' there is any files attached at all! kpe 8/4/94
  1522.  
  1523. @Subhead@'Save a backup up the current file in case the send gets aborted or fails
  1524.  
  1525. @Subhead@BackupFile = strcat$(MsgFile, DocPath, MailBackupFile)
  1526.  
  1527. @Subhead@SetDocVar(DOCVAR_USABLEFILE, 1)
  1528.  
  1529. @Subhead@AnswerMsgBox(Yes)
  1530.  
  1531. @Subhead@SaveAs(BackupFile, 32, DOCDESC_MAILMEMO,NULL)
  1532.  
  1533. @Subhead@
  1534. @Subhead@<:#240,10800>if bAttachAmi = 1 or (otherformats != NULL)    'try to get otherformats to work, by forcing msgfile != NULL  dez072794
  1535.  
  1536. @Subhead@<:#240,10800>    MsgFile = strcat$(MsgFile, DocPath, MailFile)
  1537.  
  1538. @Subhead@<:#240,10800>    delmsg=DOSDelFile(MsgFile)
  1539.  
  1540. @Subhead@<:#240,10800>    ' Note: do not delete the backup file! kpe
  1541.  
  1542. @Subhead@<:#240,10800>    
  1543.  
  1544. @Subhead@<:#240,10800>    mac=getrunningmacrofile$()
  1545.  
  1546. @Subhead@<:#240,10800>    Defstr Char;
  1547.  
  1548. @Subhead@<:#240,10800>    i = LEN(mac)
  1549.  
  1550. @Subhead@<:#240,10800>    WHILE SLASHCHAR != Assign(&Char, MID$(mac, i, 1))
  1551.  
  1552. @Subhead@<:#240,10800>        i = i - 1
  1553.  
  1554. @Subhead@<:#240,10800>    WEND
  1555.  
  1556. @Subhead@<:#240,10800>    mac = Right$(mac, (LEN(mac) - i))
  1557.  
  1558. @Subhead@<:#240,10800>
  1559.  
  1560. @Subhead@    if bRevMarking
  1561.  
  1562. @Subhead@<:#240,10800>        ' we have to have a way to check for revision marking when the file is opened - by the receiver
  1563.  
  1564. @Subhead@<:#240,10800>        ' we don't want them to be prompted for rev marking when the file is opened, therefore we are
  1565.  
  1566. @Subhead@<:#240,10800>        ' using a doc info field to carry the state of the flag
  1567.  
  1568. @Subhead@<:#240,10800>        ' when the file is opened, restore doc info field to null, and set a global variable
  1569.  
  1570. <:#240,10800>        DocInfoFields("RevOn","","","","","","","")
  1571.  
  1572. @Subhead@<:#240,10800>    endif
  1573.  
  1574. @Subhead@<:#240,10800>
  1575.  
  1576. @Subhead@<:#240,10800>    AssignMacroToFile("{mac}!SetUpReply()", NULL, 2)
  1577.  
  1578. @Subhead@<:#240,10800>    SetDocVar(DOCVAR_USABLEFILE, 1)
  1579.  
  1580. @Subhead@<:#240,10800>
  1581.  
  1582. @Subhead@<:#240,10800>    ' turn off revision marking if it is on
  1583.  
  1584. @Subhead@<:#240,10800>    RevisionMarking(MarkRevisions, RevOff)
  1585.  
  1586. @Subhead@<:#240,10800>
  1587.  
  1588. @Subhead@<:#240,10800>    If 1 != SaveAs(MsgFile, 32, DOCDESC_MAILMEMO,NULL)
  1589.  
  1590. @Subhead@<:#240,10800>        HourGlass(0)
  1591.  
  1592. @Subhead@<:#240,10800>        return 0;
  1593.  
  1594. @Subhead@<:#240,10800>    Endif
  1595.  
  1596. @Subhead@<:#240,10800>
  1597.  
  1598. @Subhead@<:#240,10800>    cAttachments = MsgFile;
  1599.  
  1600. @Subhead@<:#240,10800>    if (bAttachAmi = 1)
  1601.  
  1602. @Subhead@<:#240,10800>        cAttachments = strcat$(MsgFile, MESSAGEFILE);
  1603.  
  1604. @Subhead@<:#240,10800>    endif
  1605.  
  1606. @Subhead@<:#240,10800>endif
  1607.  
  1608. @Subhead@<:#240,10800>Lock(GetActiveWindow())         ' turn off screen painting
  1609.  
  1610. @Subhead@<:#240,10800>
  1611.  
  1612. @Subhead@<:#240,10800>nFiles = 0;
  1613.  
  1614. @Subhead@<:#240,10800>' KPE 7/18/94 - use routine to advance past subject text
  1615.  
  1616. @Subhead@<:#240,10800>AdvancePastSubjectText()
  1617.  
  1618. @Subhead@<:#240,10800>Type("<[>ShiftCtrlEnd]")
  1619.  
  1620. @Subhead@<:#240,10800>cMsg = CurShade$()    ;
  1621.  
  1622. @Subhead@<:#240,10800>Type("<[>Esc]")
  1623.  
  1624. @Subhead@<:#240,10800>
  1625.  
  1626. @Subhead@<:#240,10800>'right trim spaces
  1627.  
  1628. @Subhead@<:#240,10800>
  1629.  
  1630. @Subhead@<:#240,10800>While Right$(cMsg,1) =SpacerStr
  1631.  
  1632. @Subhead@<:#240,10800>    cMsg = Left$(cMsg,  Len(cMsg) - 1 )
  1633.  
  1634. @Subhead@<:#240,10800>Wend
  1635.  
  1636. @Subhead@<:#240,10800>' Save Message in another document
  1637.  
  1638. @Subhead@<:#240,10800>
  1639.  
  1640. @Subhead@<:#240,10800>If Len(cMsg) = 1
  1641.  
  1642. @Subhead@<:#240,10800>    if cMsg = Chr$(13) or cMsg = Chr$(10)
  1643.  
  1644. @Subhead@<:#240,10800>        cMsg = NULL
  1645.  
  1646. @Subhead@<:#240,10800>    Endif
  1647.  
  1648. @Subhead@<:#240,10800>Endif
  1649.  
  1650. @Subhead@<:#240,10800>If cMsg = NULL
  1651.  
  1652. @Subhead@<:#240,10800>    nExtensions = 0
  1653.  
  1654. @Subhead@<:#240,10800>    bAttachAmi = 0    
  1655.  
  1656. @Subhead@<:#240,10800>Endif
  1657.  
  1658. @Subhead@<:#240,10800>nFiles = 0
  1659.  
  1660. @Subhead@<:#240,10800>If bAttachAmi = 1
  1661.  
  1662. @Subhead@<:#240,10800>    nFiles = nFiles + 1
  1663.  
  1664. @Subhead@<:#240,10800>Endif
  1665.  
  1666. @Subhead@<:#240,10800>
  1667.  
  1668. <:#240,10800>
  1669.  
  1670. @Subhead@<:#240,10800>If bCopyMessage = 1    'because we stuff the text into note.rtf
  1671.  
  1672. @Subhead@<:#240,10800>    nFiles = nFiles + 1
  1673.  
  1674. @Subhead@<:#240,10800>Endif
  1675.  
  1676. @Subhead@<:#240,10800>If  (bAttachAmi = 1 ) or (nExtensions <;> 0) or (bCopyMessage = 1)
  1677.  
  1678. @Subhead@<:#240,10800>    AllocGlobalVar(GVFilesList, nExtensions + nFiles)
  1679.  
  1680. @Subhead@<:#240,10800>    AllocGlobalVar(GVFormatList, nExtensions + nFiles)    
  1681.  
  1682. @Subhead@<:#240,10800>    
  1683.  
  1684. @Subhead@<:#240,10800>    If bCopyMessage = 1
  1685.  
  1686. @Subhead@<:#240,10800>        newfile = strcat$(newfile, DocPath, TEMPFILENAME_RICHTEXT)
  1687.  
  1688. @Subhead@<:#240,10800>        SetGlobalArray(GVFilesList, 1 , newfile)
  1689.  
  1690. @Subhead@<:#240,10800>        SetGlobalArray(GVFormatList, 1, ARRAYITEM_FORMATNAME_RTF)
  1691.  
  1692. @Subhead@<:#240,10800>    Endif
  1693.  
  1694. @Subhead@<:#240,10800>
  1695.  
  1696. @Subhead@<:#240,10800>    if bCopyMessage = 1
  1697.  
  1698. @Subhead@<:#240,10800>        j = 2
  1699.  
  1700. @Subhead@<:#240,10800>        k = 1
  1701.  
  1702. @Subhead@<:#240,10800>    else
  1703.  
  1704. @Subhead@<:#240,10800>        j = 1
  1705.  
  1706. @Subhead@<:#240,10800>        k = 0
  1707.  
  1708. @Subhead@<:#240,10800>    endif
  1709.  
  1710. @Subhead@<:#240,10800>    
  1711.  
  1712. @Subhead@<:#240,10800>    count = 1
  1713.  
  1714. @Subhead@<:#240,10800>    For i = j to nExtensions+k
  1715.  
  1716. @Subhead@<:#240,10800>        ext = LTrim(strfield$(ExtList, count, CommaStr))
  1717.  
  1718. @Subhead@<:#240,10800>        format = LTrim(strfield$(otherformats, count, CommaStr))    
  1719.  
  1720. @Subhead@<:#240,10800>        newfile = NULL
  1721.  
  1722. @Subhead@<:#240,10800>        newfile = strcat$(newfile, DocPath, FILENAME_NOEXT)
  1723.  
  1724. @Subhead@<:#240,10800>        newfile = strcat$(newfile, ext)
  1725.  
  1726. @Subhead@<:#240,10800>        SetGlobalArray(GVFilesList, i, newfile)
  1727.  
  1728. @Subhead@<:#240,10800>        SetGlobalArray(GVFormatList,i, format)
  1729.  
  1730. @Subhead@<:#240,10800>        count = count + 1
  1731.  
  1732. @Subhead@<:#240,10800>    Next
  1733.  
  1734. @Subhead@<:#240,10800> 
  1735.  
  1736. @Subhead@<:#240,10800>    ' set nFiles to include the AmiPro attachment + any other attachments (in different formats)
  1737.  
  1738. @Subhead@<:#240,10800>    nFiles = nFiles + nExtensions
  1739.  
  1740. @Subhead@<:#240,10800>
  1741.  
  1742. @Subhead@<:#240,10800>    nSaved = nFiles;
  1743.  
  1744. @Subhead@<:#240,10800>    cAttach = cAttachments;    
  1745.  
  1746. @Subhead@<:#240,10800>    ret = 0    
  1747.  
  1748. @Subhead@<:#240,10800>
  1749.  
  1750. @Subhead@<:#240,10800>    ' go ahead and get the cSubject text before it gets removed in CreateNewFiles!
  1751.  
  1752. @Subhead@<:#240,10800>    FindMsgItem(SubjectStr,&cSubject)     
  1753.  
  1754. @Subhead@<:#240,10800>    Type("<[>Esc]")
  1755.  
  1756. @Subhead@<:#240,10800>    if MsgFile != NULL
  1757.  
  1758. @Subhead@<:#240,10800>        ret = CreateNewFiles(MsgFile, &cAttach, &nSaved)
  1759.  
  1760. @Subhead@<:#240,10800>        If ret = 2
  1761.  
  1762. @Subhead@<:#240,10800>            FreeGlobalVar(LogStr)
  1763.  
  1764. @Subhead@<:#240,10800>            FreeGlobalVar(ReceiptStr)
  1765.  
  1766. @Subhead@<:#240,10800>            FreeGlobalVar(PriorityStr)
  1767.  
  1768. @Subhead@<:#240,10800>            FreeGlobalVar(GVCopyMessage)
  1769.  
  1770. @Subhead@<:#240,10800>            FreeGlobalVar(GVAttachAmi)
  1771.  
  1772. @Subhead@<:#240,10800>            FreeGlobalVar(GVAttachOtherFormat)
  1773.  
  1774. @Subhead@<:#240,10800>            FreeGlobalVar(GVRevMarking)
  1775.  
  1776. @Subhead@<:#240,10800>            DOSDelFile(MsgFile)
  1777.  
  1778. @Subhead@<:#240,10800>            For i = 1 to nFiles    
  1779.  
  1780. @Subhead@<:#240,10800>                newfile = GetGlobalArray$(GVFilesList, i)
  1781.  
  1782. @Subhead@<:#240,10800>                If newFile != NULL
  1783.  
  1784. @Subhead@<:#240,10800>                    DOSDelFile(newFile)
  1785.  
  1786. @Subhead@<:#240,10800>                Endif
  1787.  
  1788. @Subhead@<:#240,10800>            Next
  1789.  
  1790. @Subhead@<:#240,10800>            FreeGlobalVar(GVFilesList)
  1791.  
  1792. @Subhead@<:#240,10800>            FreeGlobalVar(GVFormatList)
  1793.  
  1794. @Subhead@<:#240,10800>            FileChanged(TRUE, 0)
  1795.  
  1796. @Subhead@<:#240,10800>            FileClose()        
  1797.  
  1798. @Subhead@<:#240,10800>            Lock(NULL)
  1799.  
  1800. @Subhead@<:#240,10800>            menupicker()    'dez072594
  1801.  
  1802. @Subhead@<:#240,10800>            return 0
  1803.  
  1804. @Subhead@<:#240,10800>        Endif
  1805.  
  1806. @Subhead@<:#240,10800>    Endif
  1807.  
  1808. @Subhead@<:#240,10800>    cAttachments = cAttach;    
  1809.  
  1810. @Subhead@<:#240,10800>Endif
  1811.  
  1812. @Subhead@<:#240,10800>
  1813.  
  1814. @Subhead@<:#240,10800>If attachments != NULL
  1815.  
  1816. @Subhead@<:#240,10800>    cAttachments = strcat$(cAttachments, COMMASPACE, attachments)
  1817.  
  1818. @Subhead@<:#240,10800>Endif
  1819.  
  1820. @Subhead@<:#240,10800>ret = 0
  1821.  
  1822. @Subhead@<:#240,10800>if  Len(cAttachments) <;>  255
  1823.  
  1824. @Subhead@<:#240,10800>    Message(AttachmentError, MessageTitle)
  1825.  
  1826. @Subhead@<:#240,10800>    goto endfunc
  1827.  
  1828. @Subhead@<:#240,10800>Endif
  1829.  
  1830. @Subhead@<:#240,10800>
  1831.  
  1832. @Subhead@<:#240,10800>' KPE 7/13/94 - don't reset cMsg (remove the comments on the if)
  1833.  
  1834. @Subhead@<:#240,10800>If bCopyMessage != 1
  1835.  
  1836. @Subhead@<:#240,10800>    cMsg = NULL    
  1837.  
  1838. @Subhead@<:#240,10800>Endif
  1839.  
  1840. @Subhead@<:#240,10800>
  1841.  
  1842. @Subhead@<:#240,10800>If bAttachAmi = 1 or otherformats != NULL
  1843.  
  1844. @Subhead@<:#240,10800>    cMsg  = NULL
  1845.  
  1846. @Subhead@<:#240,10800>    cMsg = strcat$(cMsg, NOTETXT_MSGATTACHED);
  1847.  
  1848. @Subhead@<:#240,10800>    cMsg = strcat$(cMsg, Chr$(13), Chr$(13))
  1849.  
  1850. @Subhead@<:#240,10800>Endif
  1851.  
  1852. @Subhead@<:#240,10800>
  1853.  
  1854. @Subhead@<:#240,10800>bAccess = VariableAllocated(GVAccess)
  1855.  
  1856. @Subhead@<:#240,10800>If bAccess
  1857.  
  1858. @Subhead@<:#240,10800>    access = GetGlobalVar$(GVAccess)
  1859.  
  1860. @Subhead@<:#240,10800>Else
  1861.  
  1862. @Subhead@<:#240,10800>    access = NULL
  1863.  
  1864. @Subhead@<:#240,10800>Endif
  1865.  
  1866. @Subhead@<:#240,10800>amiqkmldll = GetAmiDirectory$()
  1867.  
  1868. @Subhead@<:#240,10800>amiqkmldll = strcat$(amiqkmldll, "amiqkml.dll")
  1869.  
  1870. @Subhead@<:#240,10800>
  1871.  
  1872. @Subhead@<:#240,10800>' Call QuickSend to send VIM message
  1873.  
  1874. @Subhead@<:#240,10800>hLib = DLLLoadLib(amiqkmldll, "QuickSend", "IHHCAAHCCCCCCC")
  1875.  
  1876. @Subhead@<:#240,10800>if hLib
  1877.  
  1878. @Subhead@<:#240,10800>    cRTF = NULL
  1879.  
  1880. @Subhead@<:#240,10800>    ' cRTF is the name of a file containing the message in rich text format
  1881.  
  1882. @Subhead@<:#240,10800>    if bCopyMessage = 1
  1883.  
  1884. @Subhead@<:#240,10800>        cRTF = GetGlobalArray$(GVFilesList, 1)
  1885.  
  1886. @Subhead@<:#240,10800>    Endif
  1887.  
  1888. @Subhead@<:#240,10800>
  1889.  
  1890. @Subhead@<:#240,10800>    ' KPE 7/13/94 - don't clear out if bCopyMessage
  1891.  
  1892. @Subhead@<:#240,10800>    if bCopyMessage != 1
  1893.  
  1894. @Subhead@<:#240,10800>        cMsg = NULL
  1895.  
  1896. @Subhead@<:#240,10800>    else
  1897.  
  1898. @Subhead@<:#240,10800>        if (bAttachAmi != 1) and (otherformats = NULL)    'put up RTF if copy message and (ami or other) dez072794
  1899.  
  1900. @Subhead@<:#240,10800>            cRTF = NULL
  1901.  
  1902. @Subhead@<:#240,10800>        endif 
  1903.  
  1904. @Subhead@<:#240,10800>    endif
  1905.  
  1906. @Subhead@<:#240,10800>    
  1907.  
  1908. @Subhead@<:#240,10800>    ' for debugging ONLY!!!!
  1909.  
  1910. @Subhead@<:#240,10800>    'temp = strcat$(temp, SubjectStr, cSubject)
  1911.  
  1912. @Subhead@<:#240,10800>    'temp = strcat$(temp, "; cMsg:",cMsg)
  1913.  
  1914. @Subhead@<:#240,10800>    'temp = strcat$(temp,"; cRTF:",cRTF)
  1915.  
  1916. @Subhead@<:#240,10800>    'temp = strcat$(temp, "; cTo:", cTo)
  1917.  
  1918. @Subhead@<:#240,10800>    'temp = strcat$(temp, "; cCC:",cCC)
  1919.  
  1920. @Subhead@<:#240,10800>    'temp = strcat$(temp,"; cBcc:",cBcc)
  1921.  
  1922. @Subhead@<:#240,10800>    'temp = strcat$(temp, "; cAttachments:",cAttachments)
  1923.  
  1924. @Subhead@<:#240,10800>    'Message(temp, "parameters")
  1925.  
  1926. @Subhead@<:#240,10800>
  1927.  
  1928. @Subhead@<:#480,10800>    ret = DLLCall(hLib, GetMailHost(), GetActiveWindow(), &access, bLog,bReceipt,nPriority,cSubject, cMsg, cRTF, cTo,cCC,cBcc,cAttachments)
  1929.  
  1930. @Subhead@<:#240,10800>    ' ret = 1 means success, ret = 0 means failed!
  1931.  
  1932. @Subhead@<:#240,10800>    FileChanged(1, 0)
  1933.  
  1934. @Subhead@<:#240,10800>    FileClose()
  1935.  
  1936. @Subhead@<:#240,10800>    if ret=1
  1937.  
  1938. @Subhead@<:#240,10800>        menupicker()        'dez072594
  1939.  
  1940. @Subhead@<:#240,10800>    endif
  1941.  
  1942. @Subhead@<:#240,10800>    If bFilesAllocated
  1943.  
  1944. @Subhead@<:#240,10800>        FreeGlobalVar(GVFiles)
  1945.  
  1946. @Subhead@<:#240,10800>    Endif
  1947.  
  1948. @Subhead@<:#240,10800>    DLLFreeLib(hLib)
  1949.  
  1950. @Subhead@<:#240,10800>Endif
  1951.  
  1952. @Subhead@<:#240,10800>
  1953.  
  1954. @Subhead@<:#240,10800>if ret = 0
  1955.  
  1956. @Subhead@<:#240,10800>    FileOpen(BackupFile, 1, "")
  1957.  
  1958. @Subhead@<:#240,10800>    LayoutMode()
  1959.  
  1960. @Subhead@<:#240,10800>    StandardView()
  1961.  
  1962. @Subhead@<:#240,10800>    FullMenus(MENUSET_SEND)
  1963.  
  1964. @Subhead@<:#240,10800>    ' Note: don't delete the backup file, even when ret = 1! (kpe)
  1965.  
  1966. @Subhead@<:#240,10800>endif
  1967.  
  1968. @Subhead@<:#240,10800>
  1969.  
  1970. @Subhead@<:#240,10800>If  bAccess = 0
  1971.  
  1972. @Subhead@<:#240,10800>    AllocGlobalVar(GVAccess,1)
  1973.  
  1974. @Subhead@<:#240,10800>Endif
  1975.  
  1976. @Subhead@<:#240,10800>
  1977.  
  1978. @Subhead@<:#240,10800>SetGlobalVar(GVAccess, access)
  1979.  
  1980. @Subhead@<:#240,10800>
  1981.  
  1982. @Subhead@<:#240,10800>'Free global variables
  1983.  
  1984. @Subhead@<:#240,10800>endfunc:
  1985.  
  1986. @Subhead@<:#240,10800>
  1987.  
  1988. @Subhead@<:#240,10800>FreeGlobalVar(LogStr)
  1989.  
  1990. @Subhead@<:#240,10800>FreeGlobalVar(ReceiptStr)
  1991.  
  1992. @Subhead@<:#240,10800>FreeGlobalVar(PriorityStr)
  1993.  
  1994. @Subhead@<:#240,10800>FreeGlobalVar(GVCopyMessage)
  1995.  
  1996. @Subhead@<:#240,10800>FreeGlobalVar(GVAttachAmi)
  1997.  
  1998. @Subhead@<:#240,10800>FreeGlobalVar(GVAttachOtherFormat)
  1999.  
  2000. @Subhead@<:#240,10800>FreeGlobalVar(GVRevMarking)
  2001.  
  2002. @Subhead@<:#240,10800>
  2003.  
  2004. @Subhead@<:#240,10800>' delete temporary files
  2005.  
  2006. @Subhead@<:#240,10800>DOSDelFile(MsgFile)
  2007.  
  2008. @Subhead@<:#240,10800>For i = 1 to nFiles    
  2009.  
  2010. @Subhead@<:#240,10800>    newfile = GetGlobalArray$(GVFilesList, i)
  2011.  
  2012. @Subhead@<:#240,10800>    If newFile != NULL
  2013.  
  2014. @Subhead@<:#240,10800>        DOSDelFile(newFile)
  2015.  
  2016. @Subhead@<:#240,10800>    Endif
  2017.  
  2018. @Subhead@<:#240,10800>Next
  2019.  
  2020. @Subhead@<:#240,10800>FreeGlobalVar(GVFilesList)
  2021.  
  2022. @Subhead@<:#240,10800>FreeGlobalVar(GVFormatList)
  2023.  
  2024. @Subhead@<:#240,10800>
  2025.  
  2026. @Subhead@<:#240,10800>lock(NULL)  ' turn screen painting back on
  2027.  
  2028. @Subhead@<:#240,10800>HourGlass(0)
  2029.  
  2030. @Subhead@<:#240,10800>End Function
  2031.  
  2032. @Title@<:#332,10800>Function AdvancePastSubjectText()
  2033.  
  2034. @Subhead@<:#240,10800>ignorekeyboard(2)
  2035.  
  2036. @Subhead@<:#240,10800>    MarkBookMark(SubjectStr,FindBookmark)
  2037.  
  2038. @Subhead@<:#240,10800>    Type("<[>CtrlRight]<[>CtrlRight]<[>Right]")
  2039.  
  2040. @Subhead@<:#240,10800>    Type("<[>Right]")
  2041.  
  2042. @Subhead@<:#240,10800>    'save current position by using a marker
  2043.  
  2044. @Subhead@<:#240,10800>    MarkBookMark(BKMK_SUBJECTTEXT, AddBookmark)
  2045.  
  2046. @Subhead@<:#240,10800>    Type("<[>ShiftEnd]")    
  2047.  
  2048. @Subhead@<:#240,10800>    temp = CurShade$()
  2049.  
  2050. @Subhead@<:#240,10800>    if  temp != NULL
  2051.  
  2052. @Subhead@<:#240,10800>        'set cursor back to previous position
  2053.  
  2054. @Subhead@<:#240,10800>        MarkBookMark(BKMK_SUBJECTTEXT, FindBookmark)
  2055.  
  2056. @Subhead@<:#240,10800>        Type("<[>CtrlDown]")
  2057.  
  2058. @Subhead@<:#240,10800>    endif
  2059.  
  2060. @Subhead@<:#240,10800>    Type("<[>Down]<[>Home]")
  2061.  
  2062. @Subhead@<:#240,10800>    MarkBookMark(BKMK_SUBJECTTEXT, DeleteBookmark)
  2063.  
  2064. @Subhead@<:#240,10800>end function
  2065.  
  2066. @Title@<:#332,10800>Function GetMailUserName(name)
  2067.  
  2068. @Subhead@<:#240,10800>ignorekeyboard(2)
  2069.  
  2070. @Subhead@<:#240,10800>DefStr username, path, product,finalname, last;
  2071.  
  2072. @Subhead@<:#240,10800>
  2073.  
  2074. @Subhead@<:#240,10800>amiqkmldll = GetAmiDirectory$()
  2075.  
  2076. @Subhead@<:#240,10800>amiqkmldll = strcat$(amiqkmldll, "amiqkml.dll")
  2077.  
  2078. @Subhead@<:#240,10800>ret=0
  2079.  
  2080. @Subhead@<:#240,10800>hLib = DLLLoadLib(amiqkmldll, "GetDefaultSessionInfo", "ICCC")
  2081.  
  2082. @Subhead@<:#240,10800>If hLib
  2083.  
  2084. @Subhead@<:#240,10800>    ret = DLLCall(hLib, &product, &username, &path);
  2085.  
  2086. @Subhead@<:#240,10800>    DLLFreeLib(hLib);
  2087.  
  2088. @Subhead@<:#240,10800>Endif
  2089.  
  2090. @Subhead@<:#240,10800>
  2091.  
  2092. @Subhead@<:#240,10800>' if user name is returned to us in the format: last name comma first name, then
  2093.  
  2094. @Subhead@<:#240,10800>' change to this format: first name space last name
  2095.  
  2096. @Subhead@<:#240,10800>last = strfield$(username, 1, commastr)
  2097.  
  2098. @Subhead@<:#240,10800>if last != -1
  2099.  
  2100. @Subhead@<:#240,10800>    finalname = strfield$(username, 2, commastr)
  2101.  
  2102. @Subhead@<:#240,10800>    if (finalname != -1)
  2103.  
  2104. @Subhead@<:#240,10800>        finalname = strcat$(finalname, SpacerStr)
  2105.  
  2106. @Subhead@<:#240,10800>        finalname = strcat$(finalname, last)
  2107.  
  2108. @Subhead@<:#240,10800>        username = finalname    
  2109.  
  2110. @Subhead@<:#240,10800>    endif
  2111.  
  2112. @Subhead@<:#240,10800>endif
  2113.  
  2114. @Subhead@<:#240,10800>
  2115.  
  2116. @Subhead@<:#240,10800>*name  = username    
  2117.  
  2118. <:#240,10800>
  2119.  
  2120. @Subhead@<:#240,10800>End Function
  2121.  
  2122. @Title@<:#332,10800>Function CreateNewFiles(SrcFile, cAttach, nFiles)
  2123.  
  2124. @Subhead@<:#240,10800>ignorekeyboard(2)
  2125.  
  2126. @Subhead@<:#240,10800>DefStr tmpfile;
  2127.  
  2128. @Subhead@<:#240,10800>tmpfile = NULL;
  2129.  
  2130. @Subhead@<:#240,10800>Attach = *cAttach;
  2131.  
  2132. @Subhead@<:#240,10800>if (GetGlobalVar$(GVAttachAmi) = 0) and (Instr(0, attach, MailFile) != 0)    'dez072794
  2133.  
  2134. @Subhead@<:#240,10800>    Attach = NULL
  2135.  
  2136. @Subhead@<:#240,10800>endif
  2137.  
  2138. @Subhead@<:#240,10800>DocPath = GetDocPath$()
  2139.  
  2140. @Subhead@<:#240,10800>
  2141.  
  2142. @Subhead@<:#240,10800>' make a copy of the file ~ltsmail.sam. In the copy, we will fix some things up to
  2143.  
  2144. @Subhead@<:#240,10800>' prepare us to save the file into other file formats.  We use a lot of bookmarks so that when the
  2145.  
  2146. @Subhead@<:#240,10800>' .SAM file is opened we can generate the box at the top of the document for Send Mail. We want
  2147.  
  2148. @Subhead@<:#240,10800>' to removed this stuff at the top of the document that makes it look like a memo before we 
  2149.  
  2150. @Subhead@<:#240,10800>' save as other file formats.
  2151.  
  2152. @Subhead@<:#240,10800>
  2153.  
  2154. @Subhead@<:#240,10800>mac=getrunningmacrofile$()
  2155.  
  2156. @Subhead@<:#240,10800>AssignMacroToFile(NULL, NULL, 0)
  2157.  
  2158. @Subhead@<:#240,10800>
  2159.  
  2160. @Subhead@<:#240,10800>' restore null in doc info field before exporting to different types
  2161.  
  2162. <:#240,10800>DocInfoField1 = GetDocInfo$(DDUser1)
  2163.  
  2164. <:#240,10800>If DocInfoField1 = "RevOn"
  2165.  
  2166. <:#240,10800>    RevisionMarking(MarkRevisions, RevOff)
  2167.  
  2168. <:#240,10800>Endif 
  2169.  
  2170. <:#240,10800>
  2171.  
  2172. @Subhead@<:#240,10800>Lock(GetActiveWindow())         ' turn off screen painting
  2173.  
  2174. @Subhead@<:#240,10800>Count = GetBookMarkCount()
  2175.  
  2176. @Subhead@<:#240,10800>If Count <;> 0
  2177.  
  2178. @Subhead@<:#240,10800>    Dim BookMarks(Count)
  2179.  
  2180. @Subhead@<:#240,10800>    GetBookMarkNames(&BookMarks)
  2181.  
  2182. @Subhead@<:#240,10800>    ' remove all bookmarks at the top
  2183.  
  2184. @Subhead@<:#240,10800>
  2185.  
  2186. <:#240,10800>
  2187.  
  2188. @Subhead@<:#240,10800>    For i = 1 to Count
  2189.  
  2190. @Subhead@<:#240,10800>        MarkBookMark(BookMarks(i), FindBookMark)
  2191.  
  2192. @Subhead@<:#240,10800>        ' Delete frames
  2193.  
  2194. @Subhead@<:#240,10800>        If IsFrameSelected()
  2195.  
  2196. @Subhead@<:#240,10800>            Type("<[>DEL]")
  2197.  
  2198. @Subhead@<:#240,10800>        EndIf
  2199.  
  2200. @Subhead@<:#240,10800>        If BookMarks(i) != SubjectStr
  2201.  
  2202. @Subhead@<:#240,10800>            'MarkBookMark(BookMarks(i), DeleteBookMark)        
  2203.  
  2204. @Subhead@<:#240,10800>        Endif
  2205.  
  2206. @Subhead@<:#240,10800>    Next
  2207.  
  2208. @Subhead@<:#240,10800>    MarkBookMark(SubjectStr, FindBookMark)
  2209.  
  2210. @Subhead@<:#240,10800>    ' remove the whole header that makes it look like a memo
  2211.  
  2212. @Subhead@<:#240,10800>    AdvancePastSubjectText()
  2213.  
  2214. @Subhead@<:#240,10800>    AnswerMsgBox(6)    'answer yes to the 'do you wish to delete these fields?' message    'dez072894
  2215.  
  2216. @Subhead@<:#240,10800>    Type("<[>ShiftCtrlHome]<[>Del]")    
  2217.  
  2218. @Subhead@<:#240,10800>    Type("<[>Home]<[>ShiftCtrlEnd]")    
  2219.  
  2220. @Subhead@<:#240,10800>
  2221.  
  2222. @Subhead@<:#240,10800>EndIf    
  2223.  
  2224. @Subhead@<:#240,10800>
  2225.  
  2226. @Subhead@<:#240,10800>nSaved = 0
  2227.  
  2228. @Subhead@<:#240,10800>For i = 1 to *nFiles
  2229.  
  2230. @Subhead@<:#240,10800>    DestFile = GetGlobalArray$(GVFilesList, i)
  2231.  
  2232. @Subhead@<:#240,10800>    if DestFile = NULL
  2233.  
  2234. @Subhead@<:#240,10800>        ' skip over blank entry
  2235.  
  2236. @Subhead@<:#240,10800>    else
  2237.  
  2238. @Subhead@<:#240,10800>    type = GetGlobalArray$(GVFormatList, i)
  2239.  
  2240. @Subhead@<:#240,10800>    If type = ASCII
  2241.  
  2242. @Subhead@<:#240,10800>        option = 4
  2243.  
  2244. @Subhead@<:#240,10800>    else    
  2245.  
  2246. @Subhead@<:#240,10800>        option = 32
  2247.  
  2248. @Subhead@<:#240,10800>    Endif
  2249.  
  2250. @Subhead@<:#240,10800>
  2251.  
  2252. @Subhead@<:#240,10800>    dest = DestFile;
  2253.  
  2254. @Subhead@<:#240,10800>    DefStr tempmsg;
  2255.  
  2256. @Subhead@<:#240,10800>
  2257.  
  2258. @Subhead@<:#240,10800>    ' get a temp file name for each file format we need to save as - we'll actually save the
  2259.  
  2260. @Subhead@<:#240,10800>    ' current open doc using the correct filter into a different tmp file. We will include with the
  2261.  
  2262. @Subhead@<:#240,10800>    ' tmp file, the name we would like the file to be called in the E-mail final destination.
  2263.  
  2264. @Subhead@<:#240,10800>    ' This will be done by putting a semi-colon between the tmp name and the desired dest name.
  2265.  
  2266. @Subhead@<:#240,10800>    ' We build the desired destination name by using message.xxx, where xxx is the correct filter ext.
  2267.  
  2268. @Subhead@<:#240,10800>    If 0 = GetTempFileName(0, TEMPFILENAME_PREFIX, 0,  &tempmsg)
  2269.  
  2270. @Subhead@<:#240,10800>        tempmsg = DestFile;
  2271.  
  2272. @Subhead@<:#240,10800>    Endif
  2273.  
  2274. @Subhead@<:#240,10800>    
  2275.  
  2276. @Subhead@<:#240,10800>    DOSDelFile(tempmsg)
  2277.  
  2278. @Subhead@<:#240,10800>    If type = NULL
  2279.  
  2280. @Subhead@<:#240,10800>        msgtype = MSGTYPE_AMIPRO
  2281.  
  2282. @Subhead@<:#240,10800>    else
  2283.  
  2284. @Subhead@<:#240,10800>        msgtype = type
  2285.  
  2286. @Subhead@<:#240,10800>    Endif
  2287.  
  2288. @Subhead@<:#240,10800>    
  2289.  
  2290. @Subhead@<:#240,10800>    SetDocVar(DOCVAR_USABLEFILE, 1)
  2291.  
  2292. @Subhead@<:#240,10800>    If type = ARRAYITEM_FORMATNAME_RTF    
  2293.  
  2294. @Subhead@<:#240,10800>        ret = ImportExport(Export, tempmsg, ARRAYITEM_FORMATNAME_RTF, 0, "N")    
  2295.  
  2296. @Subhead@<:#240,10800>    Else
  2297.  
  2298. @Subhead@<:#240,10800>        ret = SaveAs(tempmsg, option, DOCDESC_ROBUST, type)   
  2299.  
  2300. @Subhead@<:#240,10800>    Endif
  2301.  
  2302. @Subhead@<:#240,10800>    If ret = 1
  2303.  
  2304. @Subhead@<:#240,10800>        ' point to the dest name and extract the extension
  2305.  
  2306. @Subhead@<:#240,10800>        ltr = instr(0, dest, PERIODCHAR);
  2307.  
  2308. @Subhead@<:#240,10800>        ext = right$(dest, len(dest) - ltr);        
  2309.  
  2310. @Subhead@<:#240,10800>
  2311.  
  2312. @Subhead@<:#240,10800>        ' Even though the type was Peachtext, the SaveAs function saved it
  2313.  
  2314. @Subhead@<:#240,10800>        ' with the extension of .doc.  Need to change the string we have so that
  2315.  
  2316. @Subhead@<:#240,10800>        ' it will be correct for the code below when we stuff the extension in the FilesList array.
  2317.  
  2318. @Subhead@<:#240,10800>
  2319.  
  2320. @Subhead@<:#240,10800>        'Peachtext file saved as *.doc
  2321.  
  2322. @Subhead@<:#240,10800>        If type = ARRAYITEM_FORMATNAME_PEACH
  2323.  
  2324. @Subhead@<:#240,10800>            tempstr = tempmsg
  2325.  
  2326. @Subhead@<:#240,10800>            tempmsg = left$(tempstr, len(tempstr) - 3)
  2327.  
  2328. @Subhead@<:#240,10800>            tempmsg = strcat$(tempmsg, FILEEXT_PEACH)
  2329.  
  2330. @Subhead@<:#240,10800>        Endif
  2331.  
  2332. @Subhead@<:#240,10800>
  2333.  
  2334. @Subhead@<:#240,10800>        'Enable saved as *.wpf
  2335.  
  2336. @Subhead@<:#240,10800>        If  type =  ARRAYITEM_FORMATNAME_ENABLE
  2337.  
  2338. @Subhead@<:#240,10800>            tempstr = tempmsg
  2339.  
  2340. @Subhead@<:#240,10800>            tempmsg = left$(tempstr, len(tempstr) - 3)
  2341.  
  2342. @Subhead@<:#240,10800>            tempmsg = strcat$(tempmsg, ARRAYITEM_FORMATTYPE_ENABLE)
  2343.  
  2344. @Subhead@<:#240,10800>                    
  2345.  
  2346. @Subhead@<:#240,10800>        endif
  2347.  
  2348. @Subhead@<:#240,10800>
  2349.  
  2350. @Subhead@<:#240,10800>        ' do not attach note.rtf (contains message in rich text format to be copied into mail message)
  2351.  
  2352. @Subhead@<:#240,10800>        if dest and right$(dest,TEMPFILENAME_LEN_RICHTEXT) != TEMPFILENAME_RICHTEXT
  2353.  
  2354. @Subhead@<:#240,10800>            Attach = strcat$(Attach, COMMASPACE, tempmsg)
  2355.  
  2356. @Subhead@<:#240,10800>            Attach = strcat$(Attach, FILE_ATTACHNOEXT, ext)
  2357.  
  2358. @Subhead@<:#240,10800>        Endif
  2359.  
  2360. @Subhead@<:#240,10800>        nSaved = nSaved + 1;
  2361.  
  2362. @Subhead@<:#240,10800>        SetGlobalArray(GVFilesList, i, tempmsg)        
  2363.  
  2364. @Subhead@<:#240,10800>    Else
  2365.  
  2366. @Subhead@<:#240,10800>        
  2367.  
  2368. @Subhead@<:#240,10800>        SetGlobalArray(GVFilesList,  i, NULL)
  2369.  
  2370. @Subhead@<:#240,10800>        msgret = MultiDecide(OtherFormatError, (YesNoButton + QuestionIcon), MessageTitle);    
  2371.  
  2372. @Subhead@<:#240,10800>        If msgret = Yes
  2373.  
  2374. @Subhead@<:#240,10800>            ret = 2
  2375.  
  2376. @Subhead@<:#240,10800>            goto endfunc    
  2377.  
  2378. @Subhead@<:#240,10800>        Endif
  2379.  
  2380. @Subhead@<:#240,10800>    Endif
  2381.  
  2382. @Subhead@<:#240,10800>endif
  2383.  
  2384. @Subhead@<:#240,10800>Next
  2385.  
  2386. @Subhead@<:#240,10800>
  2387.  
  2388. <:#240,10800>
  2389.  
  2390. @Subhead@<:#240,10800>endfunc:
  2391.  
  2392. @Subhead@<:#240,10800>Type("<[>Esc]")
  2393.  
  2394. @Subhead@<:#240,10800>FileChanged(TRUE, 0)
  2395.  
  2396. @Subhead@<:#240,10800>*cAttach = Attach;
  2397.  
  2398. @Subhead@<:#240,10800>*nFiles = nSaved;
  2399.  
  2400. @Subhead@<:#240,10800>return ret
  2401.  
  2402. @Subhead@<:#240,10800>
  2403.  
  2404. @Subhead@<:#240,10800>End Function
  2405.  
  2406. @Subhead@<:#240,10800>
  2407.  
  2408. @Title@<:#332,10800>Function CheckForFrameInMsg()
  2409.  
  2410. @Subhead@<:#240,10800>ignorekeyboard(2)
  2411.  
  2412. @Subhead@<:#240,10800>If AnyFootNotesFlag()'
  2413.  
  2414. @Subhead@<:#240,10800>    Return 1'
  2415.  
  2416. @Subhead@<:#240,10800>Endif'
  2417.  
  2418. @Subhead@<:#240,10800>Count = GetStyleCount();
  2419.  
  2420. @Subhead@<:#240,10800>Dim StyleName(Count);
  2421.  
  2422. @Subhead@<:#240,10800>GetStyleNames(&StyleName);
  2423.  
  2424. @Subhead@<:#240,10800>
  2425.  
  2426. @Subhead@<:#240,10800>If  0 != ArraySearch(&StyleName, STYLENAME_TABLETEXT)
  2427.  
  2428. @Subhead@<:#240,10800>    return 1;
  2429.  
  2430. @Subhead@<:#240,10800>Endif
  2431.  
  2432. @Subhead@<:#240,10800>
  2433.  
  2434. @Subhead@<:#240,10800>End Function
  2435.  
  2436. @Subhead@<:#240,10800>
  2437.  
  2438. @Title@<:#332,10800>Function ShowReplyFrames()
  2439.  
  2440. @Subhead@<:#240,10800>ignorekeyboard(2)
  2441.  
  2442. @Subhead@<:#240,10800>DIM ReplyFrames(5)
  2443.  
  2444. @Subhead@<:#240,10800>DIM SendFrames(5)
  2445.  
  2446. @Subhead@<:#240,10800>hWnd = GetActiveWindow()
  2447.  
  2448. @Subhead@<:#240,10800>Lock(hWnd)         ' turn off screen painting
  2449.  
  2450. @Subhead@<:#240,10800>SelectFrameByName(FRAMENAME_REPLYGRP)
  2451.  
  2452. @Subhead@<:#240,10800>BringFrameToFront()
  2453.  
  2454. @Subhead@<:#240,10800>SelectFrameByName(FRAMENAME_MEMO)
  2455.  
  2456. @Subhead@<:#240,10800>BringFrameToFront()
  2457.  
  2458. @Subhead@<:#240,10800>ArrayInsert(&ReplyFrames,1,FRAMEARRAY_REPLY)
  2459.  
  2460. @Subhead@<:#240,10800>ArrayInsert(&ReplyFrames,1,FRAMEARRAY_REPLYHIST)
  2461.  
  2462. @Subhead@<:#240,10800>ArrayInsert(&ReplyFrames,1,FRAMEARRAY_FORWARD)
  2463.  
  2464. @Subhead@<:#240,10800>ArrayInsert(&ReplyFrames,1,FRAMEARRAY_REPLYALL)
  2465.  
  2466. @Subhead@<:#240,10800>ArrayInsert(&ReplyFrames,1,FRAMEARRAY_REPLYALLHIST)
  2467.  
  2468. @Subhead@<:#240,10800>ArrayInsert(&SendFrames, 1,FRAMEARRAY_SEND)
  2469.  
  2470. @Subhead@<:#240,10800>ArrayInsert(&SendFrames,1,FRAMEARRAY_COMPOSE)
  2471.  
  2472. @Subhead@<:#240,10800>ArrayInsert(&SendFrames,1,FRAMEARRAY_HIDE2)
  2473.  
  2474. @Subhead@<:#240,10800>ArrayInsert(&SendFrames,1,FRAMEARRAY_ADDRESS)
  2475.  
  2476. @Subhead@<:#240,10800>ArrayInsert(&SendFrames, 1,FRAMEARRAY_ATTACH)
  2477.  
  2478. @Subhead@<:#240,10800>
  2479.  
  2480. @Subhead@<:#240,10800>For f = 1 to 5
  2481.  
  2482. @Subhead@<:#240,10800>    SelectFrameByName(SendFrames(f))
  2483.  
  2484. @Subhead@<:#240,10800>    SendFrameToBack()
  2485.  
  2486. @Subhead@<:#240,10800>
  2487.  
  2488. @Subhead@<:#240,10800>    SelectFrameByName(ReplyFrames(f))
  2489.  
  2490. @Subhead@<:#240,10800>    BringFrameToFront()
  2491.  
  2492. @Subhead@<:#240,10800>Next
  2493.  
  2494. @Subhead@<:#240,10800>Type("<[>Esc]")
  2495.  
  2496. @Subhead@<:#240,10800>Lock(NULL)    'turn screen painting back on
  2497.  
  2498. @Subhead@<:#240,10800>End Function
  2499.  
  2500. @Subhead@<:#240,10800>
  2501.  
  2502. @Title@<:#332,10800>Function ShowSendFrames(bLock)
  2503.  
  2504. @Subhead@<:#240,10800>ignorekeyboard(2)
  2505.  
  2506. @Subhead@<:#240,10800>DefStr width, height, top, left, LM, TM, RM, BM, Units;
  2507.  
  2508. @Subhead@<:#240,10800>
  2509.  
  2510. @Subhead@<:#240,10800>DIM ReplyFrames(5)
  2511.  
  2512. @Subhead@<:#240,10800>DIM SendFrames(5)
  2513.  
  2514. @Subhead@<:#240,10800>
  2515.  
  2516. @Subhead@<:#240,10800>If bLock
  2517.  
  2518. @Subhead@<:#240,10800>    hWnd = GetActiveWindow()
  2519.  
  2520. @Subhead@<:#240,10800>    Lock(hWnd)         ' turn off screen painting
  2521.  
  2522. @Subhead@<:#240,10800>Endif
  2523.  
  2524. @Subhead@<:#240,10800>SelectFrameByName(FRAMENAME_SENDGRP)
  2525.  
  2526. @Subhead@<:#240,10800>BringFrameToFront()
  2527.  
  2528. @Subhead@<:#240,10800>SelectFrameByName(FRAMENAME_MEMO)
  2529.  
  2530. @Subhead@<:#240,10800>BringFrameToFront()
  2531.  
  2532. @Subhead@<:#240,10800>
  2533.  
  2534. @Subhead@<:#240,10800>ArrayInsert(&ReplyFrames,1,FRAMEARRAY_REPLY)
  2535.  
  2536. @Subhead@<:#240,10800>ArrayInsert(&ReplyFrames,1,FRAMEARRAY_REPLYHIST)
  2537.  
  2538. @Subhead@<:#240,10800>ArrayInsert(&ReplyFrames,1,FRAMEARRAY_FORWARD)
  2539.  
  2540. @Subhead@<:#240,10800>ArrayInsert(&ReplyFrames,1,FRAMEARRAY_REPLYALL)
  2541.  
  2542. @Subhead@<:#240,10800>ArrayInsert(&ReplyFrames,1,FRAMEARRAY_REPLYALLHIST)
  2543.  
  2544. @Subhead@<:#240,10800>ArrayInsert(&SendFrames, 1,FRAMEARRAY_SEND)
  2545.  
  2546. @Subhead@<:#240,10800>ArrayInsert(&SendFrames,1,FRAMEARRAY_COMPOSE)
  2547.  
  2548. @Subhead@<:#240,10800>ArrayInsert(&SendFrames,1,FRAMEARRAY_HIDE2)
  2549.  
  2550. @Subhead@<:#240,10800>ArrayInsert(&SendFrames,1,FRAMEARRAY_ADDRESS)
  2551.  
  2552. @Subhead@<:#240,10800>ArrayInsert(&SendFrames,1,FRAMEARRAY_ATTACH)
  2553.  
  2554. @Subhead@<:#240,10800>
  2555.  
  2556. @Subhead@<:#240,10800>For f = 1 to 5
  2557.  
  2558. @Subhead@<:#240,10800>    SelectFrameByName(ReplyFrames(f))
  2559.  
  2560. @Subhead@<:#240,10800>    GetCurFrameBorders(&width, &height, &top, &left, &LM, &TM, &RM, &BM, &Units)
  2561.  
  2562. @Subhead@<:#240,10800>    SendFrameToBack()
  2563.  
  2564. @Subhead@<:#240,10800>
  2565.  
  2566. @Subhead@<:#240,10800>    SelectFrameByName(SendFrames(f))
  2567.  
  2568. @Subhead@<:#240,10800>    FrameModInit()
  2569.  
  2570. @Subhead@<:#240,10800>    FrameModBorders(width, height, top, left, LM, TM, RM, BM, Units)
  2571.  
  2572. @Subhead@<:#240,10800>    FrameModFinish()
  2573.  
  2574. @Subhead@<:#240,10800>    BringFrameToFront()
  2575.  
  2576. @Subhead@<:#240,10800>Next
  2577.  
  2578. @Subhead@<:#240,10800>Type("<[>Esc]")
  2579.  
  2580. @Subhead@<:#240,10800>If bLock
  2581.  
  2582. @Subhead@<:#240,10800>    Lock(NULL) 'turn screen painting back on
  2583.  
  2584. @Subhead@<:#240,10800>Endif
  2585.  
  2586. @Subhead@<:#240,10800>End Function
  2587.  
  2588. @Subhead@<:#240,10800>
  2589.  
  2590. @Title@<:#332,10800>Function GetFileExtension(task, Name,  Extensions, count)
  2591.  
  2592. @Subhead@<:#240,10800>ignorekeyboard(2)
  2593.  
  2594. @Subhead@<:#240,10800>DIM FormatName(EXPORT_CNT)
  2595.  
  2596. @Subhead@<:#240,10800>DIM FormatType(EXPORT_CNT)
  2597.  
  2598. @Subhead@<:#240,10800>
  2599.  
  2600. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_WORDSTAR)
  2601.  
  2602. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_WORD20)
  2603.  
  2604. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_WP5X)
  2605.  
  2606. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_WP42)
  2607.  
  2608. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_WRITE)
  2609.  
  2610. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_WANG)
  2611.  
  2612. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_SAMNA)
  2613.  
  2614. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_RTF)
  2615.  
  2616. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_PROWRITE)
  2617.  
  2618. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_PEACH)
  2619.  
  2620. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_OW)
  2621.  
  2622. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_MSWORD)
  2623.  
  2624. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_EMM)
  2625.  
  2626. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_ENABLE)
  2627.  
  2628. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_EMAIL)
  2629.  
  2630. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_DW4)
  2631.  
  2632. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_RFT)
  2633.  
  2634. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_FFT)
  2635.  
  2636. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_ASCII)
  2637.  
  2638. @Subhead@<:#240,10800>ArrayInsert(&FormatName,1,ARRAYITEM_FORMATNAME_ADVWRITE)
  2639.  
  2640. @Subhead@<:#240,10800>
  2641.  
  2642. @Subhead@<:#240,10800>If task  = FillListBox
  2643.  
  2644. @Subhead@<:#240,10800>    For i = 1 to EXPORT_CNT
  2645.  
  2646. @Subhead@<:#240,10800>        FillList(FormatName(i))
  2647.  
  2648. @Subhead@<:#240,10800>    Next
  2649.  
  2650. @Subhead@<:#240,10800>    return 0
  2651.  
  2652. @Subhead@<:#240,10800>Endif
  2653.  
  2654. @Subhead@<:#240,10800>
  2655.  
  2656. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_WORDSTAR)
  2657.  
  2658. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_WORD20)
  2659.  
  2660. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_WP5X)
  2661.  
  2662. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_WP42)
  2663.  
  2664. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_WRITE)
  2665.  
  2666. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_WANG)
  2667.  
  2668. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_SAMNA)
  2669.  
  2670. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_RTF)
  2671.  
  2672. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_PROWRITE)
  2673.  
  2674. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_PEACH)
  2675.  
  2676. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_OW)
  2677.  
  2678. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_MSWORD)
  2679.  
  2680. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_EMM)
  2681.  
  2682. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_ENABLE)
  2683.  
  2684. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_EMAIL)
  2685.  
  2686. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_DW4)
  2687.  
  2688. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_RFT)
  2689.  
  2690. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_FFT)
  2691.  
  2692. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_ASCII)
  2693.  
  2694. @Subhead@<:#240,10800>ArrayInsert(&FormatType,1,ARRAYITEM_FORMATTYPE_ADVWRITE)
  2695.  
  2696. @Subhead@<:#240,10800>x=1
  2697.  
  2698. @Subhead@<:#240,10800>DefStr Data;
  2699.  
  2700. @Subhead@<:#240,10800>ExtList = NULL
  2701.  
  2702. @Subhead@<:#240,10800>nExtensions = 0
  2703.  
  2704. @Subhead@<:#240,10800>while -1 != Assign(&Data, StrField$(Name,x,CommaStr))            
  2705.  
  2706. @Subhead@<:#240,10800>    Data = Ltrim(Data)
  2707.  
  2708. @Subhead@<:#240,10800>    For i = 0 to EXPORT_CNT - 1        
  2709.  
  2710. @Subhead@<:#240,10800>        If  Data = FormatName(i + 1)
  2711.  
  2712. @Subhead@<:#240,10800>            If ExtList != NULL
  2713.  
  2714. @Subhead@<:#240,10800>                ExtList = strcat$(ExtList, COMMASPACE)
  2715.  
  2716. @Subhead@<:#240,10800>            Endif
  2717.  
  2718. @Subhead@<:#240,10800>            ExtList = strcat$(ExtList, FormatType(i + 1))
  2719.  
  2720. @Subhead@<:#240,10800>            nExtensions = nExtensions + 1
  2721.  
  2722. @Subhead@<:#240,10800>            break;
  2723.  
  2724. @Subhead@<:#240,10800>        EndIf
  2725.  
  2726. @Subhead@<:#240,10800>    Next    
  2727.  
  2728. @Subhead@<:#240,10800>    x = x + 1
  2729.  
  2730. @Subhead@<:#240,10800>Wend
  2731.  
  2732. @Subhead@<:#240,10800>*Extensions = ExtList;
  2733.  
  2734. @Subhead@<:#240,10800>*count = nExtensions;
  2735.  
  2736. @Subhead@<:#240,10800>
  2737.  
  2738. @Subhead@<:#240,10800>End Function 
  2739.  
  2740. @Subhead@<:#240,10800>
  2741.  
  2742. @Title@<:#332,10800>Function CheckForFrame()
  2743.  
  2744. @Subhead@<:#240,10800>ignorekeyboard(2)
  2745.  
  2746. @Subhead@<:#240,10800>If AnyFootNotesFlag()
  2747.  
  2748. @Subhead@<:#240,10800>    Return 1
  2749.  
  2750. @Subhead@<:#240,10800>Endif
  2751.  
  2752. @Subhead@<:#240,10800>If GetGotoItemLegalFlag(Frame)
  2753.  
  2754. @Subhead@<:#240,10800>    Return 1; 
  2755.  
  2756. @Subhead@<:#240,10800>endif
  2757.  
  2758. @Subhead@<:#240,10800>Count = GetStyleCount()
  2759.  
  2760. @Subhead@<:#240,10800>Dim StyleName(Count)
  2761.  
  2762. @Subhead@<:#240,10800>GetStyleNames(&StyleName)
  2763.  
  2764. @Subhead@<:#240,10800>If 0 != ArraySearch(&StyleName, STYLENAME_TABLETEXT)
  2765.  
  2766. @Subhead@<:#240,10800>    Return 1
  2767.  
  2768. @Subhead@<:#240,10800>Endif
  2769.  
  2770. @Subhead@<:#240,10800>End Function
  2771.  
  2772. @Subhead@<:#240,10800>
  2773.  
  2774. @Title@<:#332,10800>Function FindMsgItem(Word, body)
  2775.  
  2776. @Subhead@<:#240,10800>ignorekeyboard(2)
  2777.  
  2778. @Subhead@<:#240,10800>MarkBookMark(Word,FindBookmark)
  2779.  
  2780. @Subhead@<:#240,10800>Type("<[>CtrlRight]")
  2781.  
  2782. @Subhead@<:#240,10800>
  2783.  
  2784. @Subhead@<:#240,10800>bookPos = CursorPosition$();
  2785.  
  2786. @Subhead@<:#240,10800>CurY = StrField$(CursorPosition$(), 2, CommaStr )
  2787.  
  2788. @Subhead@<:#240,10800>stat = 0
  2789.  
  2790. @Subhead@<:#240,10800>If Word != SubjectStr
  2791.  
  2792. @Subhead@<:#240,10800>    
  2793.  
  2794. @Subhead@<:#240,10800>  If 1 = GoToCmd(GoMark, 0, GoBookmark)   
  2795.  
  2796. @Subhead@<:#240,10800>    Y = StrField$( CursorPosition$(), 2, CommaStr )    
  2797.  
  2798. @Subhead@<:#240,10800>    
  2799.  
  2800. @Subhead@<:#240,10800>    MarkBookMark(Word,FindBookmark)    
  2801.  
  2802. @Subhead@<:#240,10800>    Type("<[>CtrlRight]")
  2803.  
  2804. @Subhead@<:#240,10800>
  2805.  
  2806. @Subhead@<:#240,10800>    If bookPos = CursorPosition$()  ' sometimes first ctrlright does not change position
  2807.  
  2808. @Subhead@<:#240,10800>        Type("<[>CtrlRight]")
  2809.  
  2810. @Subhead@<:#240,10800>    Endif
  2811.  
  2812. @Subhead@<:#240,10800>    Type("<[>CtrlRight]")
  2813.  
  2814. @Subhead@<:#240,10800>    
  2815.  
  2816. @Subhead@<:#240,10800>    ' tab not on first line
  2817.  
  2818. @Subhead@<:#240,10800>    testpos = StrField$(CursorPosition$(),2, CommaStr)
  2819.  
  2820. @Subhead@<:#240,10800>    If CurY != StrField$( CursorPosition$(), 2, CommaStr )
  2821.  
  2822. @Subhead@<:#240,10800>        temp = NULL
  2823.  
  2824. @Subhead@<:#240,10800>        goto endit
  2825.  
  2826. @Subhead@<:#240,10800>        return 0
  2827.  
  2828. @Subhead@<:#240,10800>    Endif
  2829.  
  2830. @Subhead@<:#240,10800>    Type("<[>ShiftCtrlDown]")    
  2831.  
  2832. @Subhead@<:#240,10800>    temp = CurShade$()
  2833.  
  2834. @Subhead@<:#240,10800>    if word = bccStr
  2835.  
  2836. @Subhead@<:#240,10800>        type ("<[>del]")
  2837.  
  2838. @Subhead@<:#240,10800>        goto endit
  2839.  
  2840. @Subhead@<:#240,10800>    endif
  2841.  
  2842. @Subhead@<:#240,10800>    Type("<[>Down]<[>Home]")    
  2843.  
  2844. @Subhead@<:#240,10800>    CurY = StrField$( CursorPosition$(), 2, CommaStr )
  2845.  
  2846. @Subhead@<:#240,10800>    
  2847.  
  2848. @Subhead@<:#240,10800>    While Y != CurY
  2849.  
  2850. @Subhead@<:#240,10800>        Type("<[>ShiftDown]")
  2851.  
  2852. @Subhead@<:#240,10800>        kptemp = CurShade$()
  2853.  
  2854. @Subhead@<:#240,10800>        
  2855.  
  2856. @Subhead@<:#240,10800>        'left trim empty lines
  2857.  
  2858. @Subhead@<:#240,10800>        While (Left$(kptemp,1) = chr$(13)) or (Left$(kptemp,1) = chr$(10))
  2859.  
  2860. @Subhead@<:#240,10800>                kptemp = Right$(kptemp,  Len(kptemp) - 1 )
  2861.  
  2862. @Subhead@<:#240,10800>        Wend
  2863.  
  2864. @Subhead@<:#240,10800>
  2865.  
  2866. @Subhead@<:#240,10800>        if  kptemp != NULL and (Word = ToStr or Word = ccStr or Word = bccStr)
  2867.  
  2868. @Subhead@<:#240,10800>            temp = Strcat$(temp, CommaStr)    'separate names by commas
  2869.  
  2870. @Subhead@<:#240,10800>        endif
  2871.  
  2872. @Subhead@<:#240,10800>
  2873.  
  2874. @Subhead@<:#240,10800>        if (kptemp != NULL)
  2875.  
  2876. @Subhead@<:#240,10800>            temp = Strcat$(temp, kptemp)
  2877.  
  2878. @Subhead@<:#240,10800>        endif
  2879.  
  2880. @Subhead@<:#240,10800>        Type("<[>Home]")    
  2881.  
  2882. @Subhead@<:#240,10800>        CurY = StrField$( CursorPosition$(), 2, CommaStr )
  2883.  
  2884. @Subhead@<:#240,10800>    Wend
  2885.  
  2886. @Subhead@<:#240,10800>    stat = 1
  2887.  
  2888. @Subhead@<:#240,10800>    Endif    
  2889.  
  2890. @Subhead@<:#240,10800>Endif
  2891.  
  2892. @Subhead@<:#240,10800>
  2893.  
  2894. @Subhead@<:#240,10800>If stat = 0    'think you only get here when you're looking for subject
  2895.  
  2896. @Subhead@<:#240,10800>    MarkBookMark(Word,FindBookmark)
  2897.  
  2898. @Subhead@<:#240,10800>    Type("<[>CtrlRight]<[>CtrlRight]<[>Right]")
  2899.  
  2900. @Subhead@<:#240,10800>    Type("<[>Right]")
  2901.  
  2902. @Subhead@<:#240,10800>
  2903.  
  2904. @Subhead@<:#240,10800>    'save current position by using a marker
  2905.  
  2906. @Subhead@<:#240,10800>    MarkBookMark(BKMK_SUBJECTTEXT, AddBookmark)
  2907.  
  2908. @Subhead@<:#240,10800>
  2909.  
  2910. @Subhead@<:#240,10800>    Type("<[>ShiftEnd]")    
  2911.  
  2912. @Subhead@<:#240,10800>    temp = CurShade$()
  2913.  
  2914. @Subhead@<:#240,10800>
  2915.  
  2916. @Subhead@<:#240,10800>    if  temp != NULL
  2917.  
  2918. @Subhead@<:#240,10800>        'set cursor back to previous position
  2919.  
  2920. @Subhead@<:#240,10800>        MarkBookMark(BKMK_SUBJECTTEXT, FindBookmark)
  2921.  
  2922. @Subhead@<:#240,10800>        Type("<[>Esc]<[>ShiftCtrlDown]")
  2923.  
  2924. @Subhead@<:#240,10800>        temp = CurShade$()
  2925.  
  2926. @Subhead@<:#240,10800>    endif
  2927.  
  2928. @Subhead@<:#240,10800>
  2929.  
  2930. @Subhead@<:#240,10800>    MarkBookMark(BKMK_SUBJECTTEXT,DeleteBookmark)
  2931.  
  2932. @Subhead@<:#240,10800>    Endif
  2933.  
  2934. @Subhead@<:#240,10800>
  2935.  
  2936. @Subhead@<:#240,10800>endit:
  2937.  
  2938. @Subhead@<:#240,10800>'get rid of tabs, returns and extra spaces if not subject
  2939.  
  2940. @Subhead@<:#240,10800>if word != SubjectStr    'dez072194
  2941.  
  2942. @Subhead@<:#240,10800>    findstr=temp
  2943.  
  2944. @Subhead@<:#240,10800>    FindAndReplace(&findstr, TABCHAR, SPACECHAR)    'tabs
  2945.  
  2946. @Subhead@<:#240,10800>    FindAndReplace(&findstr, RETCHAR, SPACECHAR)    'returns
  2947.  
  2948. @Subhead@<:#240,10800>    FindAndReplace(&findstr, SPACESPACE, SPACECHAR)    'two spaces
  2949.  
  2950. @Subhead@<:#240,10800>    FindAndReplace(&findstr, COMMASPACE, COMMACHAR)
  2951.  
  2952. @Subhead@<:#240,10800>    FindAndReplace(&findstr, SPACECOMMA, COMMACHAR)
  2953.  
  2954. @Subhead@<:#240,10800>    temp=findstr
  2955.  
  2956. @Subhead@<:#240,10800>    'righttrim text
  2957.  
  2958. @Subhead@<:#240,10800>    While Right$(temp,1) =SpacerStr
  2959.  
  2960. @Subhead@<:#240,10800>        temp = Left$(temp,  Len(temp) - 1 )
  2961.  
  2962. @Subhead@<:#240,10800>    Wend
  2963.  
  2964. @Subhead@<:#240,10800>endif
  2965.  
  2966. @Subhead@<:#240,10800>*body = temp
  2967.  
  2968. @Subhead@<:#240,10800>
  2969.  
  2970. @Subhead@<:#240,10800>
  2971.  
  2972. <:#240,10800>
  2973.  
  2974. @Subhead@<:#240,10800>End Function
  2975.  
  2976. @Subhead@<:#240,10800>
  2977.  
  2978. @Title@<:#332,10800>Function ReplaceMsgItem(Word, body)
  2979.  
  2980. @Subhead@<:#240,10800>ignorekeyboard(2)
  2981.  
  2982. @Subhead@<:#240,10800>
  2983.  
  2984. @Subhead@<:#240,10800>MarkBookMark(Word, FindBookmark)
  2985.  
  2986. @Subhead@<:#240,10800>Type("<[>CtrlRight]<[>CtrlRight]<[>CtrlRight]<[>ShiftCtrlDown]<[>DEL]")
  2987.  
  2988. @Subhead@<:#240,10800>Type(body)
  2989.  
  2990. @Subhead@<:#240,10800>
  2991.  
  2992. @Subhead@<:#240,10800>End Function
  2993.  
  2994. @Subhead@<:#240,10800>
  2995.  
  2996. @Title@<:#332,10800>Function ComposeReply( toWhom , replyType)
  2997.  
  2998. @Subhead@<:#240,10800>ignorekeyboard(2)
  2999.  
  3000. @Subhead@<:#240,10800>DefStr cTo, cFrom, subj, cSubject, UserName;
  3001.  
  3002. @Subhead@<:#240,10800>HourGlass(1)
  3003.  
  3004. @Subhead@<:#240,10800>'turn off lock for annotations by changing last value from 3 to 1.
  3005.  
  3006. @Subhead@<:#240,10800>' don't want them to be able to modify this file
  3007.  
  3008. @Subhead@<:#240,10800>DocInfo("", "", 1)
  3009.  
  3010. @Subhead@<:#240,10800>
  3011.  
  3012. <:#240,10800>
  3013.  
  3014. @Subhead@<:#240,10800>Lock(GetActiveWindow())         ' turn off screen painting
  3015.  
  3016. @Subhead@<:#240,10800>If replyType = ForwardStr
  3017.  
  3018. @Subhead@<:#240,10800>    FindMsgItem(SubjectStr,&cSubject)
  3019.  
  3020. @Subhead@<:#240,10800>else
  3021.  
  3022. @Subhead@<:#240,10800>    FindMsgItem(SubjectStr,&subj)
  3023.  
  3024. @Subhead@<:#240,10800>    cSubject = SUBJECTPREFIX_REPLY
  3025.  
  3026. @Subhead@<:#240,10800>    cSubject = strcat$(cSubject, subj)
  3027.  
  3028. @Subhead@<:#240,10800>Endif
  3029.  
  3030. @Subhead@<:#240,10800>FindMsgItem(FromStr,&cFrom)
  3031.  
  3032. @Subhead@<:#240,10800>FindMsgItem(ToStr, &cTo)
  3033.  
  3034. @Subhead@<:#240,10800>GetMailUserName(&UserName)
  3035.  
  3036. @Subhead@<:#240,10800>
  3037.  
  3038. @Subhead@<:#240,10800>' get open file name (should be in temp directory)
  3039.  
  3040. @Subhead@<:#240,10800>
  3041.  
  3042. @Subhead@<:#240,10800>Defstr replyFile;
  3043.  
  3044. @Subhead@<:#240,10800>replyFile = GetOpenFileName$()
  3045.  
  3046. @Subhead@<:#240,10800>if replyFile = ""
  3047.  
  3048. @Subhead@<:#240,10800>    Pause(2)
  3049.  
  3050. @Subhead@<:#240,10800>    replyFile = GetMailName$()
  3051.  
  3052. @Subhead@<:#240,10800>endif
  3053.  
  3054. @Subhead@<:#240,10800>
  3055.  
  3056. @Subhead@<:#240,10800>DocInfoField1 = GetDocInfo$(DDUser1)
  3057.  
  3058. @Subhead@<:#240,10800>
  3059.  
  3060. @Subhead@<:#240,10800>' restore locking on + run macro
  3061.  
  3062. @Subhead@<:#240,10800>DocInfo("", "", 3)
  3063.  
  3064. @Subhead@<:#240,10800>' set changed since we monkeyed with the lock stuff
  3065.  
  3066. @Subhead@<:#240,10800>FileChanged(TRUE,0)
  3067.  
  3068. @Subhead@<:#240,10800>
  3069.  
  3070. @Subhead@<:#240,10800>' get the flag that we set up to say whether rev marking was checked or not
  3071.  
  3072. <:#240,10800>DocInfoField1 = GetDocInfo$(DDUser1)
  3073.  
  3074. <:#240,10800>
  3075.  
  3076. @Subhead@<:#240,10800>' Create a new document
  3077.  
  3078. @Subhead@<:#240,10800>Compose("")
  3079.  
  3080. @Subhead@<:#240,10800>Lock(GetActiveWindow())         ' turn off screen painting
  3081.  
  3082. @Subhead@<:#240,10800>
  3083.  
  3084. @Subhead@<:#240,10800>' insert original document to retain text
  3085.  
  3086. @Subhead@<:#240,10800>If replyType = ReplyStr or replyType = ForwardStr
  3087.  
  3088. @Subhead@<:#240,10800>    
  3089.  
  3090. @Subhead@<:#240,10800>    MarkBookMark(SubjectStr, FindBookMark);
  3091.  
  3092. @Subhead@<:#240,10800>    Type("<[>Down]<[>Down]")
  3093.  
  3094. @Subhead@<:#240,10800>
  3095.  
  3096. @Subhead@<:#240,10800>
  3097.  
  3098. @Subhead@<:#240,10800>    Type("<[>Enter]<[>Enter]")
  3099.  
  3100. @Subhead@<:#240,10800>    Type(MSGDIVIDERBAR)
  3101.  
  3102. @Subhead@<:#240,10800>    Type("<[>Enter]<[>Enter]")
  3103.  
  3104. @Subhead@<:#240,10800>    FileOpen(replyFile, 9, NULL)
  3105.  
  3106. @Subhead@<:#240,10800>    
  3107.  
  3108. @Subhead@<:#240,10800>    Type("<[>Down]<[>Down]<[>Home]")
  3109.  
  3110. @Subhead@<:#240,10800>
  3111.  
  3112. @Subhead@<:#240,10800>    ' when new file is inserted, bookmarks are duplicated.
  3113.  
  3114. @Subhead@<:#240,10800>    ' delete duplicate bookmarks    (bookmarks ending in 1)    
  3115.  
  3116. @Subhead@<:#240,10800>    Count = GetBookMarkCount()
  3117.  
  3118. @Subhead@<:#240,10800>    If Count <;> 0
  3119.  
  3120. @Subhead@<:#240,10800>        MarkBookMark(DateStr1,FindBookMark)
  3121.  
  3122. @Subhead@<:#240,10800>        Type("<[>ShiftEnd]")
  3123.  
  3124. @Subhead@<:#240,10800>        ' turn off protected text from date field, unable to copy protected text into notes
  3125.  
  3126. @Subhead@<:#240,10800>        ProtectedText()
  3127.  
  3128. @Subhead@<:#240,10800>        Dim BookMarks(Count)
  3129.  
  3130. @Subhead@<:#240,10800>        GetBookMarkNames(&BookMarks)
  3131.  
  3132. @Subhead@<:#240,10800>        
  3133.  
  3134. @Subhead@<:#240,10800>        For i = 1 to Count
  3135.  
  3136. @Subhead@<:#240,10800>            If right$(BookMarks(i), 1) = "1" and right$(BookMarks(i), 2) != "11"
  3137.  
  3138. @Subhead@<:#240,10800>                MarkBookMark(BookMarks(i), FindBookMark)
  3139.  
  3140. @Subhead@<:#240,10800>                ' Delete frame bookmarks
  3141.  
  3142. @Subhead@<:#240,10800>                If IsFrameSelected()
  3143.  
  3144. @Subhead@<:#240,10800>                    Type("<[>DEL]")
  3145.  
  3146. @Subhead@<:#240,10800>                Endif
  3147.  
  3148. @Subhead@<:#240,10800>                'MarkBookMark(BookMarks(i), DeleteBookMark)        'dez072894
  3149.  
  3150. @Subhead@<:#240,10800>            EndIf        
  3151.  
  3152. @Subhead@<:#240,10800>        Next
  3153.  
  3154. @Subhead@<:#240,10800>    Endif
  3155.  
  3156. @Subhead@<:#240,10800>Endif
  3157.  
  3158. @Subhead@<:#240,10800>
  3159.  
  3160. @Subhead@<:#240,10800>
  3161.  
  3162. @Subhead@<:#240,10800>'switch from and to
  3163.  
  3164. @Subhead@<:#240,10800>If toWhom = toSender
  3165.  
  3166. @Subhead@<:#240,10800>    MarkBookMark(ToStr,FindBookMark)
  3167.  
  3168. @Subhead@<:#240,10800>    Type("<[>End]")
  3169.  
  3170. @Subhead@<:#240,10800>    Type(cFrom)
  3171.  
  3172. @Subhead@<:#240,10800>Elseif toWhom = toAll    
  3173.  
  3174. @Subhead@<:#240,10800>    cToAll = StripPhraseFromList( UserName, cTo)
  3175.  
  3176. @Subhead@<:#240,10800>    If cToAll != NULL
  3177.  
  3178. @Subhead@<:#240,10800>        cToAll = strcat$(cToAll, COMMASPACE)
  3179.  
  3180. @Subhead@<:#240,10800>    Endif
  3181.  
  3182. @Subhead@<:#240,10800>    cToAll = strcat$(cToAll,  cFrom)
  3183.  
  3184. @Subhead@<:#240,10800>    MarkBookMark(ToStr,FindBookMark)
  3185.  
  3186. @Subhead@<:#240,10800>    Type("<[>End]")
  3187.  
  3188. @Subhead@<:#240,10800>    Type(cToAll)
  3189.  
  3190. @Subhead@<:#240,10800>Endif
  3191.  
  3192. @Subhead@<:#240,10800>
  3193.  
  3194. @Subhead@<:#240,10800>'If replyType != ForwardStr        'dez072894
  3195.  
  3196. @Subhead@<:#240,10800>    MarkBookMark(SubjectStr,FindBookMark)
  3197.  
  3198. @Subhead@<:#240,10800>    Type("<[>End]")
  3199.  
  3200. @Subhead@<:#240,10800>    Type(cSubject)
  3201.  
  3202. @Subhead@<:#240,10800>'Endif
  3203.  
  3204. @Subhead@<:#240,10800>
  3205.  
  3206. @Subhead@<:#240,10800>MarkBookMark(SubjectStr, FindBookMark);
  3207.  
  3208. @Subhead@<:#240,10800>Type("<[>Down]")
  3209.  
  3210. @Subhead@<:#240,10800>
  3211.  
  3212. @Subhead@<:#240,10800>
  3213.  
  3214. @Subhead@<:#240,10800>If replyType = ForwardStr
  3215.  
  3216. @Subhead@<:#240,10800>    MarkBookMark(ToStr, FindBookMark)
  3217.  
  3218. @Subhead@<:#240,10800>    Type("<[>End]")
  3219.  
  3220. @Subhead@<:#240,10800>Endif
  3221.  
  3222. @Subhead@<:#240,10800>
  3223.  
  3224. <:#240,10800>If replyType = ReplyStr or replyType = ForwardStr
  3225.  
  3226. <:#240,10800>    If DocInfoField1 = "RevOn"    
  3227.  
  3228. @Subhead@<:#240,10800>        if (Decide(PromptRevMarkMode) = 1)
  3229.  
  3230. @Subhead@<:#240,10800>            If 1 = RevisionMarking(MarkRevisions, RevOn)
  3231.  
  3232. <:#240,10800>                DocInfoFields("","","","","","","","")
  3233.  
  3234. <:#240,10800>            Endif
  3235.  
  3236. <:#240,10800>        endif
  3237.  
  3238. <:#240,10800>    Endif
  3239.  
  3240. <:#240,10800>Endif
  3241.  
  3242. <:#240,10800>
  3243.  
  3244. @Subhead@<:#240,10800>Lock(NULL)
  3245.  
  3246. @Subhead@<:#240,10800>HourGlass(0)
  3247.  
  3248. @Subhead@<:#240,10800>End Function
  3249.  
  3250. @Subhead@<:#240,10800>
  3251.  
  3252. @Title@<:#332,10800>Function Reply()
  3253.  
  3254. @Subhead@<:#240,10800>ignorekeyboard(2)
  3255.  
  3256. @Subhead@<:#240,10800>menuset=menupicker()
  3257.  
  3258. @Subhead@<:#240,10800>if menuset=0
  3259.  
  3260. @Subhead@<:#240,10800>    exit function
  3261.  
  3262. @Subhead@<:#240,10800>endif
  3263.  
  3264. @Subhead@<:#240,10800>ComposeReply(toSender, NULL) 
  3265.  
  3266. @Subhead@<:#240,10800>End Function
  3267.  
  3268. @Title@<:#332,10800>Function ReplyWithHistory()
  3269.  
  3270. @Subhead@<:#240,10800>ignorekeyboard(2)
  3271.  
  3272. @Subhead@<:#240,10800>menuset=menupicker()
  3273.  
  3274. @Subhead@<:#240,10800>if menuset=0
  3275.  
  3276. @Subhead@<:#240,10800>    exit function
  3277.  
  3278. @Subhead@<:#240,10800>endif
  3279.  
  3280. @Subhead@<:#240,10800>ComposeReply(toSender, ReplyStr)
  3281.  
  3282. @Subhead@<:#240,10800>End Function
  3283.  
  3284. <:#240,10800>
  3285.  
  3286. @Title@<:#332,10800>Function ReplyToAll()
  3287.  
  3288. @Subhead@<:#240,10800>ignorekeyboard(2)
  3289.  
  3290. @Subhead@<:#240,10800>menuset=menupicker()
  3291.  
  3292. @Subhead@<:#240,10800>if menuset=0
  3293.  
  3294. @Subhead@<:#240,10800>    exit function
  3295.  
  3296. @Subhead@<:#240,10800>endif
  3297.  
  3298. @Subhead@<:#240,10800>ComposeReply(toAll, NULL)
  3299.  
  3300. @Subhead@<:#240,10800>End Function
  3301.  
  3302. <:#240,10800>
  3303.  
  3304. @Title@<:#332,10800>Function ReplyToAllHistory()
  3305.  
  3306. @Subhead@<:#240,10800>ignorekeyboard(2)
  3307.  
  3308. @Subhead@<:#240,10800>menuset=menupicker()
  3309.  
  3310. @Subhead@<:#240,10800>if menuset=0
  3311.  
  3312. @Subhead@<:#240,10800>    exit function
  3313.  
  3314. @Subhead@<:#240,10800>endif
  3315.  
  3316. @Subhead@<:#240,10800>ComposeReply(toAll, ReplyStr)
  3317.  
  3318. @Subhead@<:#240,10800>End Function
  3319.  
  3320. <:#240,10800>
  3321.  
  3322. @Title@<:#332,10800>Function Forward()
  3323.  
  3324. @Subhead@<:#240,10800>ignorekeyboard(2)
  3325.  
  3326. @Subhead@<:#240,10800>menuset=menupicker()
  3327.  
  3328. @Subhead@<:#240,10800>if menuset=0
  3329.  
  3330. @Subhead@<:#240,10800>    exit function
  3331.  
  3332. @Subhead@<:#240,10800>endif
  3333.  
  3334. @Subhead@<:#240,10800>ComposeReply(toForward, ForwardStr)
  3335.  
  3336. @Subhead@<:#240,10800>
  3337.  
  3338. @Subhead@<:#240,10800>End Function
  3339.  
  3340. <:#240,10800>
  3341.  
  3342. @Title@<:#332,10800>Function Address()
  3343.  
  3344. @Subhead@<:#240,10800>ignorekeyboard(2)
  3345.  
  3346. @Subhead@<:#240,10800>menuset=menupicker()
  3347.  
  3348. @Subhead@<:#240,10800>if menuset=0
  3349.  
  3350. @Subhead@<:#240,10800>    exit function
  3351.  
  3352. @Subhead@<:#240,10800>endif
  3353.  
  3354. @Subhead@<:#240,10800>    DefStr SR, ER, SC, EC;
  3355.  
  3356. @Subhead@<:#240,10800>    DefStr maillist, size, access, cName, hWnd;
  3357.  
  3358. @Subhead@<:#240,10800>    hWnd = GetActiveWindow()
  3359.  
  3360. @Subhead@<:#240,10800>    Lock(hWnd)
  3361.  
  3362. @Subhead@<:#240,10800>
  3363.  
  3364. @Subhead@<:#240,10800>    Y = StrField$(CursorPosition$(), 2, CommaStr)
  3365.  
  3366. @Subhead@<:#240,10800>
  3367.  
  3368. @Subhead@<:#240,10800>    ' add bookmark to set current position
  3369.  
  3370. @Subhead@<:#240,10800>    MarkBookMark(BKMK_CURPOS, AddBookmark)
  3371.  
  3372. @Subhead@<:#240,10800>    
  3373.  
  3374. @Subhead@<:#240,10800>    'find location of to, cc and bcc fields
  3375.  
  3376. @Subhead@<:#240,10800>    MarkBookmark(ToStr, FindBookmark)
  3377.  
  3378. @Subhead@<:#240,10800>    To_Y = StrField$(CursorPosition$(), 2, CommaStr)
  3379.  
  3380. @Subhead@<:#240,10800>    MarkBookmark(ccStr, FindBookmark)
  3381.  
  3382. @Subhead@<:#240,10800>    CC_Y = StrField$(CursorPosition$(), 2, CommaStr)
  3383.  
  3384. @Subhead@<:#240,10800>    MarkBookmark(bccStr, FindBookmark)
  3385.  
  3386. @Subhead@<:#240,10800>    Bcc_Y = StrField$(CursorPosition$(), 2, CommaStr)
  3387.  
  3388. @Subhead@<:#240,10800>    Lock(NULL)
  3389.  
  3390. @Subhead@<:#240,10800>
  3391.  
  3392. @Subhead@<:#240,10800>    'set cursor back to previous position
  3393.  
  3394. @Subhead@<:#240,10800>    MarkBookMark(BKMK_CURPOS, FindBookmark)
  3395.  
  3396. @Subhead@<:#240,10800>    MarkBookMark(BKMK_CURPOS,DeleteBookmark)
  3397.  
  3398. @Subhead@<:#240,10800>    
  3399.  
  3400. @Subhead@<:#240,10800>    'determine if cursor is on line where To:, cc:, or bcc: bookmarks are located
  3401.  
  3402. @Subhead@<:#240,10800>    If Y != To_Y and Y != CC_Y and Y != Bcc_Y    
  3403.  
  3404. @Subhead@<:#240,10800>        Message(AddressError)
  3405.  
  3406. @Subhead@<:#240,10800>        return 0;
  3407.  
  3408. @Subhead@<:#240,10800>    Endif
  3409.  
  3410. @Subhead@<:#240,10800>    
  3411.  
  3412. @Subhead@<:#240,10800>    ' determine if password retrieved    
  3413.  
  3414. @Subhead@<:#240,10800>    bAccess = VariableAllocated(GVAccess)
  3415.  
  3416. @Subhead@<:#240,10800>    If bAccess
  3417.  
  3418. @Subhead@<:#240,10800>        access = GetGlobalVar$(GVAccess)
  3419.  
  3420. @Subhead@<:#240,10800>    Else
  3421.  
  3422. @Subhead@<:#240,10800>        access = NULL
  3423.  
  3424. @Subhead@<:#240,10800>    Endif
  3425.  
  3426. @Subhead@<:#240,10800>
  3427.  
  3428. @Subhead@<:#240,10800>    ' Load quick mail dll - should be in ami directory
  3429.  
  3430. @Subhead@<:#240,10800>    amiqkmldll = GetAmiDirectory$()
  3431.  
  3432. @Subhead@<:#240,10800>    amiqkmldll = strcat$(amiqkmldll, "amiqkml.dll")
  3433.  
  3434. @Subhead@<:#240,10800>    ret=0
  3435.  
  3436. @Subhead@<:#240,10800>    ' Call DisplayAddress to display Address dialog
  3437.  
  3438. @Subhead@<:#240,10800>    ' Use dllloadlib instead of define since dll won't be in windows system directory
  3439.  
  3440. @Subhead@<:#240,10800>    size = 255
  3441.  
  3442. @Subhead@<:#240,10800>
  3443.  
  3444. @Subhead@<:#240,10800>    hLib = DLLLoadLib(amiqkmldll, "DisplayAddress", "IHHCCL")
  3445.  
  3446. @Subhead@<:#240,10800>    If hLib
  3447.  
  3448. @Subhead@<:#240,10800>        ret = DLLCall(hLib, GetMailHost(), GetActiveWindow(), &access, &maillist, &size);
  3449.  
  3450. @Subhead@<:#240,10800>        DLLFreeLib(hLib)
  3451.  
  3452. @Subhead@<:#240,10800>        ' set cursor insertion point back on page
  3453.  
  3454. @Subhead@<:#240,10800>        SetFocus(hWnd);
  3455.  
  3456. @Subhead@<:#240,10800>        If bAccess = 0
  3457.  
  3458. @Subhead@<:#240,10800>            AllocGlobalVar(GVAccess,1)
  3459.  
  3460. @Subhead@<:#240,10800>        Endif            
  3461.  
  3462. @Subhead@<:#240,10800>        SetGlobalVar(GVAccess, access)
  3463.  
  3464. @Subhead@<:#240,10800>
  3465.  
  3466. @Subhead@<:#240,10800>        If ret = 0
  3467.  
  3468. @Subhead@<:#240,10800>            return 0
  3469.  
  3470. @Subhead@<:#240,10800>        Endif
  3471.  
  3472. @Subhead@<:#240,10800>            
  3473.  
  3474. @Subhead@<:#240,10800>    Endif
  3475.  
  3476. @Subhead@<:#240,10800>
  3477.  
  3478. @Subhead@<:#240,10800>        
  3479.  
  3480. @Subhead@<:#240,10800>    ' get current location to tab user to next field        
  3481.  
  3482. @Subhead@<:#240,10800>     Lock(GetActiveWindow())
  3483.  
  3484. @Subhead@<:#240,10800>    If Y= To_Y
  3485.  
  3486. @Subhead@<:#240,10800>        FindMsgItem(ToStr,&cName)
  3487.  
  3488. @Subhead@<:#240,10800>        MarkBookMark(ToStr, FindBookmark)                    
  3489.  
  3490. @Subhead@<:#240,10800>    Elseif Y = CC_Y
  3491.  
  3492. @Subhead@<:#240,10800>        FindMsgItem(ccStr,&cName)
  3493.  
  3494. @Subhead@<:#240,10800>        MarkBookMark(ccStr, FindBookmark)            
  3495.  
  3496. @Subhead@<:#240,10800>    Elseif Y = Bcc_Y
  3497.  
  3498. @Subhead@<:#240,10800>        FindMsgItem(bccStr,&cName)
  3499.  
  3500. @Subhead@<:#240,10800>        MarkBookMark(bccStr, Findbookmark)
  3501.  
  3502. @Subhead@<:#240,10800>    Endif
  3503.  
  3504. @Subhead@<:#240,10800>    Type("<[>End]")
  3505.  
  3506. @Subhead@<:#240,10800>    
  3507.  
  3508. @Subhead@<:#240,10800>    While Right$(cName,1) = SpacerStr
  3509.  
  3510. @Subhead@<:#240,10800>        cName = Left$(cName, Len(cName) - 1)
  3511.  
  3512. @Subhead@<:#240,10800>    Wend
  3513.  
  3514. @Subhead@<:#240,10800>
  3515.  
  3516. @Subhead@<:#240,10800>    If cName != NULL 
  3517.  
  3518. @Subhead@<:#240,10800>        If  Right$(cName, 1) != CommaStr            
  3519.  
  3520. @Subhead@<:#240,10800>            Type(CommaStr)
  3521.  
  3522. @Subhead@<:#240,10800>        Endif
  3523.  
  3524. @Subhead@<:#240,10800>        Type(SpacerStr)
  3525.  
  3526. @Subhead@<:#240,10800>    Endif
  3527.  
  3528. @Subhead@<:#240,10800>    Type(maillist);
  3529.  
  3530. @Subhead@<:#240,10800>    If Y = Bcc_Y        
  3531.  
  3532. @Subhead@<:#240,10800>        MarkBookMark(SubjectStr, FindBookMark);    
  3533.  
  3534. @Subhead@<:#240,10800>    Elseif Y = To_Y
  3535.  
  3536. @Subhead@<:#240,10800>        MarkBookMark(ccStr, FindBookMark)    
  3537.  
  3538. @Subhead@<:#240,10800>        'GoToCmd(GoMark, 0, GoBookmark)            
  3539.  
  3540. @Subhead@<:#240,10800>    Elseif Y = CC_Y
  3541.  
  3542. @Subhead@<:#240,10800>            MarkBookMark(bccStr, FindBookMark)
  3543.  
  3544. @Subhead@<:#240,10800>    Endif    
  3545.  
  3546. @Subhead@<:#240,10800>    Type("<[>End]")
  3547.  
  3548. @Subhead@<:#240,10800>    Lock(NULL)
  3549.  
  3550. @Subhead@<:#240,10800>    
  3551.  
  3552. @Subhead@<:#240,10800>End Function
  3553.  
  3554. @Subhead@<:#240,10800>
  3555.  
  3556. @Subhead@<:#240,10800>
  3557.  
  3558. @Title@<:#332,10800>Function Options()
  3559.  
  3560. @Subhead@<:#240,10800>IgnoreKeyBoard(2)
  3561.  
  3562. @Subhead@<:#240,10800>
  3563.  
  3564. @Subhead@<:#240,10800>mac = GetRunningMacroFile$()
  3565.  
  3566. @Subhead@<:#240,10800>fillEdit(9500, "Normal")    
  3567.  
  3568. @Subhead@<:#240,10800>fillEdit(9500, LowStr)
  3569.  
  3570. @Subhead@<:#240,10800>fillEdit(9500, UrgentStr)
  3571.  
  3572. @Subhead@<:#240,10800>
  3573.  
  3574. @Subhead@<:#240,10800>' Fill  Other File Format List Box
  3575.  
  3576. @Subhead@<:#240,10800>GetFileExtension(FillListBox, NULL,NULL, NULL)
  3577.  
  3578. @Subhead@<:#240,10800>
  3579.  
  3580. @Subhead@<:#240,10800>DlgKeyInterrupt(VK_F1, "{mac}!helper")
  3581.  
  3582. @Subhead@<:#240,10800>DlgKeyInterrupt(VK_TAB, "{mac}!ActiveControlHelp")
  3583.  
  3584. @Subhead@<:#240,10800>SetDlgCallBack(0,"{mac}!SetOptions")         'InitDlg 
  3585.  
  3586. @Subhead@<:#240,10800>SetDlgCallBack(Okbutton,"{mac}!SetOptions")         ' OK button
  3587.  
  3588. @Subhead@<:#240,10800>SetDlgCallBack(25,"{mac}!SetOptions")         ' Make Default button
  3589.  
  3590. @Subhead@<:#240,10800>SetDlgCallBack(9000, "{mac}!SetOptions")        ' Format types list box
  3591.  
  3592. @Subhead@<:#240,10800>SetDlgCallBack(23,"{mac}!SetOptions")        ' Attach check box
  3593.  
  3594. @Subhead@<:#240,10800>SetDlgCallBack(20,"{mac}!SetOptions")          'Log check box
  3595.  
  3596. @Subhead@<:#240,10800>SetDlgCallBack(22,"{mac}!SetOptions")          'Copy check box
  3597.  
  3598. @Subhead@<:#240,10800>SetDlgCallBack(21,"{mac}!SetOptions")          'Receipt check box
  3599.  
  3600. @Subhead@<:#240,10800>SetDlgCallBack(9500,"{mac}!SetOptions")          'Priority combobox
  3601.  
  3602. @Subhead@<:#240,10800>SetDlgCallBack(24,"{mac}!SetOptions")          'other format check box
  3603.  
  3604. @Subhead@<:#240,10800>SetDlgCallBack(27,"{mac}!SetOptions")          'Rev Mark check box
  3605.  
  3606. @Subhead@<:#240,10800>box = dialogbox(".","options")
  3607.  
  3608. @Subhead@<:#240,10800>
  3609.  
  3610. @Subhead@<:#240,10800>If  box != 1
  3611.  
  3612. @Subhead@<:#240,10800>    return 0
  3613.  
  3614. @Subhead@<:#240,10800>Endif
  3615.  
  3616. @Subhead@<:#240,10800>return 1
  3617.  
  3618. @Subhead@<:#240,10800>End Function
  3619.  
  3620. @Subhead@<:#240,10800>
  3621.  
  3622. @Title@<:#332,10800>function helper()
  3623.  
  3624. @Subhead@<:#240,10800>ignorekeyboard(2)
  3625.  
  3626. @Subhead@<:#240,10800>prohWnd = FindWindow(AmiProWindow, 0)
  3627.  
  3628. @Subhead@<:#240,10800>helpfile = strcat$(GetAmiDirectory$(), AmiproHelpFile)
  3629.  
  3630. @Subhead@<:#240,10800>helpnum = 5006         'or the pane you want to display (129 is Send Mail)
  3631.  
  3632. @Subhead@<:#240,10800>WinHelp (prohWnd, helpfile, HELP_CONTEXT, helpnum)
  3633.  
  3634. @Subhead@<:#240,10800>end function
  3635.  
  3636. <:#240,10800>
  3637.  
  3638. @Title@<:#332,10800>Function DisplayActiveHelpByID(hDlg,controlid)
  3639.  
  3640. @Subhead@<:#240,10800>ignorekeyboard(2)
  3641.  
  3642. @Subhead@<:#240,10800>' display for the control in the dbox that has focus when the box is first displayed
  3643.  
  3644. @Subhead@<:#240,10800>DisplayActiveControlHelp(hDlg, controlid)
  3645.  
  3646. @Subhead@<:#240,10800>end function
  3647.  
  3648. @Subhead@<:#240,10800>
  3649.  
  3650. @Title@<:#332,10800>Function ActiveControlHelp(hDlg, key)
  3651.  
  3652. @Subhead@<:#240,10800>ignorekeyboard(2)
  3653.  
  3654. @Subhead@<:#240,10800>' get handle to current control with focus
  3655.  
  3656. @Subhead@<:#240,10800>controlhwnd = GetFocus()
  3657.  
  3658. @Subhead@<:#240,10800>
  3659.  
  3660. @Subhead@<:#240,10800>' the tab did not occur since we did the interrupt - now we have to do the tab ourselves
  3661.  
  3662. @Subhead@<:#240,10800>nexthwnd = GetNextControl(hDlg, controlhwnd,0)
  3663.  
  3664. @Subhead@<:#240,10800>' Set focus to next control in the tab list to simulate the tab key
  3665.  
  3666. @Subhead@<:#240,10800>SetFocus(nexthwnd)
  3667.  
  3668. @Subhead@<:#240,10800>
  3669.  
  3670. @Subhead@<:#240,10800>' get the id of the control
  3671.  
  3672. @Subhead@<:#240,10800>controlid = GetControlID(nexthwnd)
  3673.  
  3674. @Subhead@<:#240,10800>
  3675.  
  3676. @Subhead@<:#240,10800>' display for the control in the dbox that has focus when the box is first displayed
  3677.  
  3678. @Subhead@<:#240,10800>DisplayActiveControlHelp(hDlg, controlid)
  3679.  
  3680. @Subhead@<:#240,10800>end function
  3681.  
  3682. <:#240,10800>
  3683.  
  3684. @Title@<:#332,10800>Function DisplayActiveControlHelp(hDlg, controlid)
  3685.  
  3686. @Subhead@<:#240,10800>ignorekeyboard(2)
  3687.  
  3688. @Subhead@<:#240,10800>DefStr helpstr;
  3689.  
  3690. @Subhead@<:#240,10800>
  3691.  
  3692. @Subhead@<:#240,10800>' display correct in - box context sensitive help for the control
  3693.  
  3694. @Subhead@<:#240,10800>switch controlid
  3695.  
  3696. @Subhead@<:#240,10800>    case 20        ' Log msg control
  3697.  
  3698. @Subhead@<:#240,10800>        helpstr = HelpforLogMessage
  3699.  
  3700. @Subhead@<:#240,10800>        break;
  3701.  
  3702. @Subhead@<:#240,10800>    case 21        ' return receipt control
  3703.  
  3704. @Subhead@<:#240,10800>        helpstr = HelpforReceipt
  3705.  
  3706. @Subhead@<:#240,10800>        break;
  3707.  
  3708. @Subhead@<:#240,10800>    case 9500    ' priority control
  3709.  
  3710. @Subhead@<:#240,10800>        helpstr = HelpforPriority
  3711.  
  3712. @Subhead@<:#240,10800>        break;
  3713.  
  3714. @Subhead@<:#240,10800>    case 22        ' display memo text control
  3715.  
  3716. @Subhead@<:#240,10800>        helpstr = HelpforMemoText
  3717.  
  3718. @Subhead@<:#240,10800>        break;
  3719.  
  3720. @Subhead@<:#240,10800>    case 23        ' attach amipro file control
  3721.  
  3722. @Subhead@<:#240,10800>        helpstr = HelpforAmiProAttach
  3723.  
  3724. @Subhead@<:#240,10800>        break;
  3725.  
  3726. @Subhead@<:#240,10800>    case 24        ' use other format control
  3727.  
  3728. @Subhead@<:#240,10800>        helpstr = HelpforOtherFormats
  3729.  
  3730. @Subhead@<:#240,10800>        break;
  3731.  
  3732. @Subhead@<:#240,10800>    case 27        ' rev marking control
  3733.  
  3734. @Subhead@<:#240,10800>        helpstr = HelpforRevMarking
  3735.  
  3736. @Subhead@<:#240,10800>        break;
  3737.  
  3738. @Subhead@<:#240,10800>    Default        ' any other controls
  3739.  
  3740. @Subhead@<:#240,10800>        helpstr = NULL
  3741.  
  3742. @Subhead@<:#240,10800>        break;
  3743.  
  3744. @Subhead@<:#240,10800>endswitch
  3745.  
  3746. @Subhead@<:#240,10800>
  3747.  
  3748. @Subhead@<:#240,10800>SetDlgItemText(hDlg, 29, helpstr)
  3749.  
  3750. @Subhead@<:#240,10800>end function
  3751.  
  3752. @Subhead@<:#240,10800>
  3753.  
  3754. <:#240,10800>
  3755.  
  3756. @Title@<:#332,10800>Function SetOptions(hDlg, id, text)
  3757.  
  3758. @Subhead@<:#240,10800>ignorekeyboard(2)
  3759.  
  3760. @Subhead@<:#240,10800>DefStr Item;    
  3761.  
  3762. @Subhead@<:#240,10800>hFiles = GetDlgItem(hDlg, 9000) 
  3763.  
  3764. @Subhead@<:#240,10800>if id = 9000
  3765.  
  3766. @Subhead@<:#240,10800>    ' get total items selected    
  3767.  
  3768. @Subhead@<:#240,10800>    ret = SendMessage(hFiles, LB_GETSELCOUNT,  0, 0)                
  3769.  
  3770. @Subhead@<:#240,10800>    If ret <;> 0
  3771.  
  3772. @Subhead@<:#240,10800>        SetDlgItemText(hDlg, 24, TRUE)
  3773.  
  3774. @Subhead@<:#240,10800>    Else
  3775.  
  3776. @Subhead@<:#240,10800>        SetDlgItemText(hDlg, 24, FALSE)
  3777.  
  3778. @Subhead@<:#240,10800>    Endif
  3779.  
  3780. @Subhead@<:#240,10800>    return 0
  3781.  
  3782. @Subhead@<:#240,10800>endif
  3783.  
  3784. @Subhead@<:#240,10800>' Disable Revision Marking if the user turns off "Attach current Ami Pro document"
  3785.  
  3786. @Subhead@<:#240,10800>If id = 23
  3787.  
  3788. @Subhead@<:#240,10800>    bValue = GetDlgItemText(hDlg, 23)
  3789.  
  3790. @Subhead@<:#240,10800>    if bValue = 0
  3791.  
  3792. @Subhead@<:#240,10800>        ' If AttachCurrent AmiPro Document is false,  turn off revision marking
  3793.  
  3794. @Subhead@<:#240,10800>        SetDlgItemText(hDlg, 27, 0)
  3795.  
  3796. @Subhead@<:#240,10800>    Endif
  3797.  
  3798. @Subhead@<:#240,10800>    EnableWindow(GetDlgItem(hDlg, 27), bValue)
  3799.  
  3800. @Subhead@<:#240,10800>Endif
  3801.  
  3802. @Subhead@<:#240,10800>
  3803.  
  3804. @Subhead@<:#240,10800>' if all 3 of these check boxes are off, gray the OK button
  3805.  
  3806. @Subhead@<:#240,10800>if id = 20 or id = 22 or id = 23 or id = 24
  3807.  
  3808. @Subhead@<:#240,10800>    isLog = GetDlgItemText(hDlg, 20)
  3809.  
  3810. @Subhead@<:#240,10800>    isCopy = GetDlgItemText(hDlg,  22)
  3811.  
  3812. @Subhead@<:#240,10800>    isAttachAmi = GetDlgItemText(hDlg, 23)
  3813.  
  3814. @Subhead@<:#240,10800>    isAttachFiles = GetDlgItemText(hDlg, 24)
  3815.  
  3816. @Subhead@<:#240,10800>    if (isLog != 1 and isCopy != 1 and isAttachAmi != 1 and isAttachFiles != 1)
  3817.  
  3818. @Subhead@<:#240,10800>        EnableWindow(GetDlgItem(hDlg, Okbutton), 0)    ' disable OK button
  3819.  
  3820. @Subhead@<:#240,10800>    else
  3821.  
  3822. @Subhead@<:#240,10800>        EnableWindow(GetDlgItem(hDlg, Okbutton), 1)    'enable OK button
  3823.  
  3824. @Subhead@<:#240,10800>    endif
  3825.  
  3826. @Subhead@<:#240,10800>endif
  3827.  
  3828. @Subhead@<:#240,10800>
  3829.  
  3830. @Subhead@<:#240,10800>If id != 0
  3831.  
  3832. @Subhead@<:#240,10800>    bLog = GetDlgItemText(hDlg, 20)
  3833.  
  3834. @Subhead@<:#240,10800>    bReceipt = GetDlgItemText(hDlg, 21)
  3835.  
  3836. @Subhead@<:#240,10800>    bCopyMessage = GetDlgItemText(hDlg,  22)
  3837.  
  3838. @Subhead@<:#240,10800>    bAttachAmi = GetDlgItemText(hDlg, 23)
  3839.  
  3840. @Subhead@<:#240,10800>    bAttachFiles = GetDlgItemText(hDlg, 24)
  3841.  
  3842. @Subhead@<:#240,10800>    priority = GetDlgItemText(hDlg, 9500)
  3843.  
  3844. @Subhead@<:#240,10800>    bRevMarking = GetDlgItemText(hDlg, 27)
  3845.  
  3846. @Subhead@<:#240,10800>
  3847.  
  3848. <:#240,10800>
  3849.  
  3850. @Subhead@<:#240,10800>    If bAttachFiles
  3851.  
  3852. @Subhead@<:#240,10800>        count = SendMessage (hFiles, LB_GETCOUNT, 0, 0) 
  3853.  
  3854. @Subhead@<:#240,10800>        OtherFormat = NULL
  3855.  
  3856. @Subhead@<:#240,10800>        For i= 1 to count 
  3857.  
  3858. @Subhead@<:#240,10800>            idx = i - 1
  3859.  
  3860. @Subhead@<:#240,10800>            If 0 != SendMessage(hFiles, LB_GETSEL,  idx , 0)                
  3861.  
  3862. @Subhead@<:#240,10800>                SendMessageChar(hFiles, LB_GETTEXT, idx, &Item)    
  3863.  
  3864. @Subhead@<:#240,10800>                If OtherFormat != NULL
  3865.  
  3866. @Subhead@<:#480,10800>                    OtherFormat = StrCat$(OtherFormat,COMMASPACE)            
  3867.  
  3868. @Subhead@<:#240,10800>                Endif
  3869.  
  3870. @Subhead@<:#240,10800>                OtherFormat = StrCat$(OtherFormat, Item)    
  3871.  
  3872. @Subhead@<:#240,10800>            Endif
  3873.  
  3874. @Subhead@<:#240,10800>        Next        
  3875.  
  3876. @Subhead@<:#240,10800>    Endif
  3877.  
  3878. @Subhead@<:#240,10800>Endif      'end if id != 0
  3879.  
  3880. @Subhead@<:#240,10800>
  3881.  
  3882. @Subhead@<:#240,10800>Switch id
  3883.  
  3884. @Subhead@<:#240,10800>    Case SetDefault
  3885.  
  3886. @Subhead@<:#240,10800>
  3887.  
  3888. @Subhead@<:#240,10800>        
  3889.  
  3890. @Subhead@<:#240,10800>        If (OtherFormat = NULL and bAttachFiles = 1) 
  3891.  
  3892. @Subhead@<:#240,10800>            Message(AttachError, OptionsTitle)
  3893.  
  3894. @Subhead@<:#240,10800>            return 0;
  3895.  
  3896. @Subhead@<:#240,10800>        Endif
  3897.  
  3898. @Subhead@<:#240,10800>
  3899.  
  3900. @Subhead@<:#240,10800>        WriteProfileString(PSMail,LogStr,bLog,PSAmiproIni)
  3901.  
  3902. @Subhead@<:#240,10800>        WriteProfileString(PSMail,ReceiptStr,bReceipt, PSAmiproIni)
  3903.  
  3904. @Subhead@<:#240,10800>        WriteProfileString(PSMail,PriorityStr,priority, PSAmiproIni)        
  3905.  
  3906. @Subhead@<:#240,10800>        WriteProfileString(PSMail,PSCopyMessage,bCopyMessage,PSAmiproIni)
  3907.  
  3908. @Subhead@<:#240,10800>        WriteProfileString(PSMail,PSAttachAmiPro,bAttachAmi, PSAmiproIni)
  3909.  
  3910. @Subhead@<:#240,10800>        WriteProfileString(PSMail,PSAttachOther,OtherFormat,PSAmiproIni)
  3911.  
  3912. @Subhead@<:#240,10800>        WriteProfileString(PSMail,PSRevisionMarking,bRevMarking,PSAmiproIni)
  3913.  
  3914. @Subhead@<:#240,10800>         Break;
  3915.  
  3916. @Subhead@<:#240,10800>    Case OptionsOK
  3917.  
  3918. @Subhead@<:#240,10800>        If (OtherFormat = NULL and bAttachFiles = 1) 
  3919.  
  3920. @Subhead@<:#240,10800>            Message(AttachError, OptionsTitle)
  3921.  
  3922. @Subhead@<:#240,10800>            return 0;
  3923.  
  3924. @Subhead@<:#240,10800>        Endif
  3925.  
  3926. @Subhead@<:#240,10800>
  3927.  
  3928. @Subhead@<:#240,10800>        ' Allocate global variables    
  3929.  
  3930. @Subhead@<:#240,10800>        AllocGlobalVar(LogStr,1)
  3931.  
  3932. @Subhead@<:#240,10800>        AllocGlobalVar(ReceiptStr,1)
  3933.  
  3934. @Subhead@<:#240,10800>        AllocGlobalVar(PriorityStr, 1)
  3935.  
  3936. @Subhead@<:#240,10800>        AllocGlobalVar(GVCopyMessage,1)
  3937.  
  3938. @Subhead@<:#240,10800>        AllocGlobalVar(GVAttachAmi,1)
  3939.  
  3940. @Subhead@<:#240,10800>        AllocGlobalVar(GVAttachOtherFormat,1)
  3941.  
  3942. @Subhead@<:#240,10800>        AllocGlobalVar(GVRevMarking,1)
  3943.  
  3944. @Subhead@<:#240,10800>
  3945.  
  3946. @Subhead@<:#240,10800>        ' set values into global vars so that we can access them once the
  3947.  
  3948. @Subhead@<:#240,10800>        ' dialog box is gone
  3949.  
  3950. @Subhead@<:#240,10800>        SetGlobalVar(LogStr,bLog)
  3951.  
  3952. @Subhead@<:#240,10800>        SetGlobalVar(ReceiptStr, bReceipt)
  3953.  
  3954. @Subhead@<:#240,10800>        SetGlobalVar(PriorityStr,priority)
  3955.  
  3956. @Subhead@<:#240,10800>        SetGlobalVar(GVCopyMessage,bCopyMessage)
  3957.  
  3958. @Subhead@<:#240,10800>        SetGlobalVar(GVAttachAmi,bAttachAmi)    
  3959.  
  3960. @Subhead@<:#240,10800>        SetGlobalVar(GVAttachOtherFormat,OtherFormat)    
  3961.  
  3962. @Subhead@<:#240,10800>        SetGlobalVar(GVRevMarking, bRevMarking)
  3963.  
  3964. @Subhead@<:#240,10800>        okhwnd = GetDlgItem(hDlg, 1)
  3965.  
  3966. @Subhead@<:#240,10800>        ' do the Post rather than calling EndDialog! (because we want to go thru the
  3967.  
  3968. @Subhead@<:#240,10800>        ' ok button assigned to id value 1 (for DlgKeyInt to be turned off properly)
  3969.  
  3970. @Subhead@<:#240,10800>        PostMessage(hDlg, WM_COMMAND,  1, 1)    
  3971.  
  3972. @Subhead@<:#240,10800>        Break;    
  3973.  
  3974. @Subhead@<:#240,10800>
  3975.  
  3976. @Subhead@<:#240,10800>    Default  'Init Dlg
  3977.  
  3978. @Subhead@<:#240,10800>        fillEdit(20,GetProfileString$(PSMail,LogStr,PSAmiproIni))
  3979.  
  3980. @Subhead@<:#240,10800>        fillEdit(21,GetProfileString$(PSMail,ReceiptStr,PSAmiproIni))
  3981.  
  3982. @Subhead@<:#240,10800>        priority = GetProfileString$(PSMail,PriorityStr,PSAmiproIni)
  3983.  
  3984. @Subhead@<:#240,10800>        SendMessageChar(GetDlgItem(hDlg, 9500), CB_SELECTSTRING, -1, priority)
  3985.  
  3986. @Subhead@<:#240,10800>        
  3987.  
  3988. @Subhead@<:#240,10800>        ' default Copy Message and Attach Ami Pro document to true
  3989.  
  3990. @Subhead@<:#240,10800>        bCopy = GetProfileString$(PSMail,PSCopyMessage,PSAmiproIni)
  3991.  
  3992. @Subhead@<:#240,10800>        If bCopy = NULL
  3993.  
  3994. @Subhead@<:#240,10800>            bCopy = 1
  3995.  
  3996. @Subhead@<:#240,10800>        Endif
  3997.  
  3998. @Subhead@<:#240,10800>
  3999.  
  4000. @Subhead@<:#240,10800>        bAttach = GetProfileString$(PSMail,PSAttachAmiPro,PSAmiproIni)
  4001.  
  4002. @Subhead@<:#240,10800>        if bAttach = NULL
  4003.  
  4004. @Subhead@<:#240,10800>            bAttach = 1
  4005.  
  4006. @Subhead@<:#240,10800>        Endif
  4007.  
  4008. @Subhead@<:#240,10800>        
  4009.  
  4010. @Subhead@<:#240,10800>        fillEdit(27, GetProfileString$(PSMail,PSRevisionMarking,PSAmiproIni))
  4011.  
  4012. @Subhead@<:#240,10800>        
  4013.  
  4014. @Subhead@<:#240,10800>        if bAttach != 1 and id = NULL    ' if id = NULL it's the initdlg! only do this on initdlg!
  4015.  
  4016. @Subhead@<:#240,10800>            EnableWindow(GetDlgItem(hDlg, 27), 0)
  4017.  
  4018. @Subhead@<:#240,10800>        endif
  4019.  
  4020. @Subhead@<:#240,10800>
  4021.  
  4022. @Subhead@<:#240,10800>        fillEdit(22, bCopy)
  4023.  
  4024. @Subhead@<:#240,10800>        fillEdit(23, bAttach)
  4025.  
  4026. @Subhead@<:#240,10800>        otherformats = GetProfileString$(PSMail,PSAttachOther,PSAmiproIni)
  4027.  
  4028. @Subhead@<:#240,10800>        If otherformats != NULL
  4029.  
  4030. @Subhead@<:#240,10800>            x=1
  4031.  
  4032. @Subhead@<:#240,10800>            DefStr Data
  4033.  
  4034. @Subhead@<:#240,10800>            fillEdit(24,"1")
  4035.  
  4036. @Subhead@<:#240,10800>            while -1 != Assign(&Data, StrField$(otherformats,x,CommaStr))            
  4037.  
  4038. @Subhead@<:#240,10800>                Data = Ltrim(Data)                            
  4039.  
  4040. @Subhead@<:#240,10800>                count = SendMessage (hFiles, LB_GETCOUNT, 0, 0) 
  4041.  
  4042. @Subhead@<:#240,10800>                For i= 1 to count 
  4043.  
  4044. @Subhead@<:#240,10800>                    idx = i - 1;                    
  4045.  
  4046. @Subhead@<:#240,10800>                    SendMessageChar(hFiles, LB_GETTEXT, idx, &Item)
  4047.  
  4048. @Subhead@<:#240,10800>                    If Item = Data                    
  4049.  
  4050. @Subhead@<:#240,10800>                        SendMessage(GetDlgItem(hDlg, 9000), LB_SETSEL, 1, idx);
  4051.  
  4052. @Subhead@<:#240,10800>                        break;  'match found, break out of for loop
  4053.  
  4054. @Subhead@<:#240,10800>                    Endif
  4055.  
  4056. @Subhead@<:#240,10800>                Next        
  4057.  
  4058. @Subhead@<:#240,10800>                x = x + 1
  4059.  
  4060. @Subhead@<:#240,10800>            Wend
  4061.  
  4062. @Subhead@<:#240,10800>    
  4063.  
  4064. @Subhead@<:#240,10800>        EndIf
  4065.  
  4066. @Subhead@<:#240,10800>        ' change id so that DisplayActiveHelpFromID will work for id of 20!
  4067.  
  4068. @Subhead@<:#240,10800>        if id = 0        
  4069.  
  4070. @Subhead@<:#240,10800>            id = 20
  4071.  
  4072. @Subhead@<:#240,10800>        endif
  4073.  
  4074. @Subhead@<:#240,10800>        Break;
  4075.  
  4076. @Subhead@<:#240,10800>    
  4077.  
  4078. @Subhead@<:#240,10800>EndSwitch
  4079.  
  4080. @Subhead@<:#240,10800>DisplayActiveHelpByID(hDlg, id)
  4081.  
  4082. @Subhead@<:#240,10800>
  4083.  
  4084. @Subhead@<:#240,10800>End Function
  4085.  
  4086. @Subhead@<:#240,10800>
  4087.  
  4088. @Title@<:#332,10800>Function FindIt(Word, body, LowestPos)
  4089.  
  4090. @Subhead@<:#240,10800>ignorekeyboard(2)
  4091.  
  4092. @Subhead@<:#240,10800>Stat = Replace(0,0,8196,Word,NULL)
  4093.  
  4094. @Subhead@<:#240,10800>If Stat = 1
  4095.  
  4096. @Subhead@<:#240,10800>    Type("<[>CtrlUp]")
  4097.  
  4098. @Subhead@<:#240,10800>    Type ("<[>CtrlDown]")
  4099.  
  4100. @Subhead@<:#240,10800>    para = GetTextBeforeCursor$()
  4101.  
  4102. @Subhead@<:#240,10800>    Para = StripDown(Word, Para);
  4103.  
  4104. @Subhead@<:#240,10800>    *Body = Para;
  4105.  
  4106. @Subhead@<:#240,10800>    pos = StrField$(CursorPosition$(),2,CommaStr)
  4107.  
  4108. @Subhead@<:#240,10800>    If Pos << *LowestPos;
  4109.  
  4110. @Subhead@<:#240,10800>        *LowestPos = Pos;
  4111.  
  4112. @Subhead@<:#240,10800>    Endif
  4113.  
  4114. @Subhead@<:#240,10800>    Return 1
  4115.  
  4116. @Subhead@<:#240,10800>Endif
  4117.  
  4118. @Subhead@<:#240,10800>Return 0
  4119.  
  4120. @Subhead@<:#240,10800>End Function
  4121.  
  4122. @Subhead@<:#240,10800>
  4123.  
  4124. <:#240,10800>
  4125.  
  4126. @Title@<:#332,10800>Function StripDown(Word, Phrase)
  4127.  
  4128. @Subhead@<:#240,10800>ignorekeyboard(2)
  4129.  
  4130. @Subhead@<:#240,10800>LenWord = Len(word)
  4131.  
  4132. @Subhead@<:#240,10800>LenPhrase = Len(Phrase)
  4133.  
  4134. @Subhead@<:#240,10800>
  4135.  
  4136. @Subhead@<:#240,10800>Temp = Right$(phrase,LenPhrase - LenWord)
  4137.  
  4138. @Subhead@<:#240,10800>For t =1 to Len(Temp)
  4139.  
  4140. @Subhead@<:#240,10800>    Char = Left$(Temp, 1)
  4141.  
  4142. @Subhead@<:#240,10800>    If 0 = Instr(0, SPACETABCOLON,Char)
  4143.  
  4144. @Subhead@<:#240,10800>        Break;
  4145.  
  4146. @Subhead@<:#240,10800>    Else
  4147.  
  4148. @Subhead@<:#240,10800>    Temp = Right$(Temp, Len(Temp) - 1)
  4149.  
  4150. @Subhead@<:#240,10800>    Endif
  4151.  
  4152. @Subhead@<:#240,10800>Next
  4153.  
  4154. @Subhead@<:#240,10800>Return Temp
  4155.  
  4156. @Subhead@<:#240,10800>End Function
  4157.  
  4158. @Subhead@<:#240,10800>
  4159.  
  4160. @Title@<:#332,10800>Function StripPhraseFromList(Word, Phrase)
  4161.  
  4162. @Subhead@<:#240,10800>ignorekeyboard(2)
  4163.  
  4164. @Subhead@<:#240,10800>x  = 1;
  4165.  
  4166. @Subhead@<:#240,10800>temp = NULL
  4167.  
  4168. @Subhead@<:#240,10800>' strip word from phrase
  4169.  
  4170. @Subhead@<:#240,10800>field = strfield$(Phrase, x, CommaStr)
  4171.  
  4172. @Subhead@<:#240,10800>while (field != -1)
  4173.  
  4174. @Subhead@<:#240,10800>    field = Ltrim(field)
  4175.  
  4176. @Subhead@<:#240,10800>    While Right$(field,1) = SpacerStr
  4177.  
  4178. @Subhead@<:#240,10800>        field = Left$(field, Len(field) - 1)
  4179.  
  4180. @Subhead@<:#240,10800>    Wend
  4181.  
  4182. @Subhead@<:#240,10800>    While Right$(Word,1) = SpacerStr
  4183.  
  4184. @Subhead@<:#240,10800>        Word = Left$(Word, Len(Word) - 1)
  4185.  
  4186. @Subhead@<:#240,10800>    Wend
  4187.  
  4188. @Subhead@<:#240,10800>    
  4189.  
  4190. @Subhead@<:#240,10800>    ret = lstrcmpi(field, Word)
  4191.  
  4192. @Subhead@<:#240,10800>    If  ret != 0
  4193.  
  4194. @Subhead@<:#240,10800>        If temp != NULL
  4195.  
  4196. @Subhead@<:#240,10800>            temp = strcat$(temp, COMMASPACE)
  4197.  
  4198. @Subhead@<:#240,10800>        endif
  4199.  
  4200. @Subhead@<:#240,10800>        temp = strcat$(temp, field)    
  4201.  
  4202. @Subhead@<:#240,10800>    endif
  4203.  
  4204. @Subhead@<:#240,10800>    x = x + 1
  4205.  
  4206. @Subhead@<:#240,10800>    field = strfield$(Phrase, x, CommaStr)
  4207.  
  4208. @Subhead@<:#240,10800>Wend
  4209.  
  4210. @Subhead@<:#240,10800>Return Temp
  4211.  
  4212. @Subhead@<:#240,10800>End Function
  4213.  
  4214. @Subhead@<:#240,10800>
  4215.  
  4216. @Title@<:#332,10800>Function LTrim(String)
  4217.  
  4218. @Subhead@<:#240,10800>ignorekeyboard(2)
  4219.  
  4220. @Subhead@<:#240,10800>If String = SpacerStr
  4221.  
  4222. @Subhead@<:#240,10800>    Exit Function
  4223.  
  4224. @Subhead@<:#240,10800>Endif
  4225.  
  4226. @Subhead@<:#240,10800>While Left$(String,1) =SpacerStr
  4227.  
  4228. @Subhead@<:#240,10800>    String = Right$(String,  Len(String) - 1 )
  4229.  
  4230. @Subhead@<:#240,10800>Wend
  4231.  
  4232. @Subhead@<:#240,10800>Return String
  4233.  
  4234. @Subhead@<:#240,10800>End Function
  4235.  
  4236. @Subhead@<:#240,10800>
  4237.  
  4238. @Title@<:#332,10800>Function VariableAllocated( name)
  4239.  
  4240. @Subhead@<:#240,10800>ignorekeyboard(2)
  4241.  
  4242. @Subhead@<:#240,10800>numGlobals = GetGlobalVarCount()
  4243.  
  4244. @Subhead@<:#240,10800>If numGlobals <;> 0
  4245.  
  4246. @Subhead@<:#240,10800>    DIM tempArray(numGlobals)
  4247.  
  4248. @Subhead@<:#240,10800>
  4249.  
  4250. @Subhead@<:#240,10800>    ' Check if files has already been allocated
  4251.  
  4252. @Subhead@<:#240,10800>    GetGlobalVarNames(&tempArray)
  4253.  
  4254. @Subhead@<:#240,10800>    If 0  = ArraySearch(&tempArray, name)
  4255.  
  4256. @Subhead@<:#240,10800>        return 0
  4257.  
  4258. @Subhead@<:#240,10800>    Endif
  4259.  
  4260. @Subhead@<:#240,10800>    return 1;
  4261.  
  4262. @Subhead@<:#240,10800>Endif
  4263.  
  4264. @Subhead@<:#240,10800>return 0
  4265.  
  4266. @Subhead@<:#240,10800>
  4267.  
  4268. @Subhead@<:#240,10800>End Function
  4269.  
  4270. <:#240,10800>
  4271.  
  4272. @Title@<:#332,10800>Function DarkModeMacro(Param, hWnd)
  4273.  
  4274. @Subhead@<:#240,10800>ignorekeyboard(2)
  4275.  
  4276. @Subhead@<:#240,10800>
  4277.  
  4278. @Subhead@<:#240,10800>Dim A(4)
  4279.  
  4280. @Subhead@<:#240,10800>Param = lCase$(Param)
  4281.  
  4282. @Subhead@<:#240,10800>switch Param
  4283.  
  4284. @Subhead@<:#240,10800>    Case "on";
  4285.  
  4286. @Subhead@<:#240,10800>        *hWnd = GetActiveTextWin()
  4287.  
  4288. @Subhead@<:#240,10800>        MarkBookMark(DarkModeStr,AddBookMark)
  4289.  
  4290. @Subhead@<:#240,10800>        SendMessage(hWnd, WM_SETREDRAW, 0, NULL)
  4291.  
  4292. @Subhead@<:#240,10800>    Case "off"
  4293.  
  4294. @Subhead@<:#240,10800>        SendMessage(hWnd, WM_SETREDRAW,1,NULL)
  4295.  
  4296. @Subhead@<:#240,10800>        MarkBookMark(DarkModeStr,FindBookMark)
  4297.  
  4298. @Subhead@<:#240,10800>        MarkBookMark(DarkModeStr, DeleteBookMark)
  4299.  
  4300. @Subhead@<:#240,10800>        GetClientRect(hWnd, &A)
  4301.  
  4302. @Subhead@<:#240,10800>        InvalidateRect(hWnd, &A,1)
  4303.  
  4304. @Subhead@<:#240,10800>    Default
  4305.  
  4306. @Subhead@<:#240,10800>        ' Didn't understand
  4307.  
  4308. @Subhead@<:#240,10800>EndSwitch
  4309.  
  4310. @Subhead@<:#240,10800>End Function
  4311.  
  4312. @Subhead@<:#240,10800>
  4313.  
  4314. @Title@<:#332,10800>Function attach()
  4315.  
  4316. @Subhead@<:#240,10800>ignorekeyboard(2)
  4317.  
  4318. @Subhead@<:#240,10800>menuset=menupicker()
  4319.  
  4320. @Subhead@<:#240,10800>if menuset=0
  4321.  
  4322. @Subhead@<:#240,10800>    exit function
  4323.  
  4324. @Subhead@<:#240,10800>endif
  4325.  
  4326. @Subhead@<:#240,10800>
  4327.  
  4328. @Subhead@<:#240,10800>If 0 = VariableAllocated(GVFiles)
  4329.  
  4330. @Subhead@<:#240,10800>    AllocGlobalVar(GVFiles,1)
  4331.  
  4332. @Subhead@<:#240,10800>    SetGlobalVar(GVFiles,NULL)
  4333.  
  4334. @Subhead@<:#240,10800>Endif
  4335.  
  4336. @Subhead@<:#240,10800>
  4337.  
  4338. @Subhead@<:#240,10800>rmac = GetRunningMacroFile$()
  4339.  
  4340. @Subhead@<:#240,10800>pathnow = GetDocPath$()
  4341.  
  4342. @Subhead@<:#240,10800>FillEdit(9001, "{pathnow}")
  4343.  
  4344. @Subhead@<:#240,10800>DlgKeyInterrupt(VK_F1, "{rmac}!helper")    ' do not translate macro function names!
  4345.  
  4346. @Subhead@<:#240,10800>SetDlgCallBack(21, "{rmac}!MoveIt")    
  4347.  
  4348. @Subhead@<:#240,10800>SetDlgCallBack(22, "{rmac}!MoveIt")
  4349.  
  4350. @Subhead@<:#240,10800>SetDlgCallBack(20, "{rmac}!MoveIt")
  4351.  
  4352. @Subhead@<:#240,10800>SetDlgCallBack(0, "{rmac}!MoveIt")
  4353.  
  4354. @Subhead@<:#240,10800>box = dialogbox(".", "attach")
  4355.  
  4356. @Subhead@<:#240,10800>
  4357.  
  4358. @Subhead@<:#240,10800>End Function
  4359.  
  4360. @Subhead@<:#240,10800>
  4361.  
  4362. @Title@<:#332,10800>Function MoveIt(Hdlg, Id, Value)
  4363.  
  4364. @Subhead@<:#240,10800>ignorekeyboard(2)
  4365.  
  4366. @Subhead@<:#240,10800>hAttach = GetDlgItem(Hdlg, 9002)
  4367.  
  4368. @Subhead@<:#240,10800>HFiles = GetDlgItem(Hdlg, 9001)
  4369.  
  4370. @Subhead@<:#240,10800>DefStr Item, Data;
  4371.  
  4372. @Subhead@<:#240,10800>
  4373.  
  4374. @Subhead@<:#240,10800>Switch Id
  4375.  
  4376. @Subhead@<:#240,10800>    Case Move
  4377.  
  4378. @Subhead@<:#240,10800>        Name = GetDlgItemText(Hdlg, 9001)
  4379.  
  4380. @Subhead@<:#240,10800>        If Instr(0,Name, RBRACKETCHAR) !=0
  4381.  
  4382. @Subhead@<:#240,10800>            exit function
  4383.  
  4384. @Subhead@<:#240,10800>        Endif
  4385.  
  4386. @Subhead@<:#240,10800>        Filename=lcase$(strcat$(GetCurrentDir$(), Name))
  4387.  
  4388. @Subhead@<:#240,10800>        If -1 = AppSendMessage(hAttach,LB_FINDSTRING, -1, Filename)
  4389.  
  4390. @Subhead@<:#240,10800>            setdlgitemtext(hdlg, 9002, Filename)
  4391.  
  4392. @Subhead@<:#240,10800>        Endif
  4393.  
  4394. @Subhead@<:#240,10800>        Break;
  4395.  
  4396. @Subhead@<:#240,10800>    Case Remove
  4397.  
  4398. @Subhead@<:#240,10800>        idx = AppSendMessage (hAttach, LB_GETCURSEL, 0, 0)
  4399.  
  4400. @Subhead@<:#240,10800>        x=AppSendMessage (hAttach, LB_DELETESTRING, idx, 0)
  4401.  
  4402. @Subhead@<:#240,10800>        Break;
  4403.  
  4404. @Subhead@<:#240,10800>    Case OK
  4405.  
  4406. @Subhead@<:#240,10800>        count = AppSendMessage (hAttach, LB_GETCOUNT, 0, 0) 
  4407.  
  4408. @Subhead@<:#240,10800>        For i=1 to count
  4409.  
  4410. @Subhead@<:#240,10800>            AppSendMessage(hAttach, LB_SETCURSEL, i - 1, 0)
  4411.  
  4412. @Subhead@<:#240,10800>            Item = GetDlgItemText(Hdlg, 9002)
  4413.  
  4414. @Subhead@<:#240,10800>            If Item != NULL
  4415.  
  4416. @Subhead@<:#240,10800>                Stuff = StrCat$(Stuff, COMMASPACE,Item)
  4417.  
  4418. @Subhead@<:#240,10800>            Endif
  4419.  
  4420. @Subhead@<:#240,10800>        Next
  4421.  
  4422. @Subhead@<:#240,10800>        If Stuff != NULL
  4423.  
  4424. @Subhead@<:#240,10800>            Stuff = Right$(Stuff, Len(Stuff) - 2)
  4425.  
  4426. @Subhead@<:#240,10800>        Endif
  4427.  
  4428. @Subhead@<:#240,10800>        SetGlobalVar(GVFiles,Stuff)
  4429.  
  4430. @Subhead@<:#240,10800>        EndDlg(hDlg, 0)
  4431.  
  4432. @Subhead@<:#240,10800>        Break;
  4433.  
  4434. @Subhead@<:#240,10800>    Default
  4435.  
  4436. @Subhead@<:#240,10800>        ' this is my Init function, 
  4437.  
  4438. @Subhead@<:#240,10800>        Files = GetGlobalVar$(GVFiles)
  4439.  
  4440. @Subhead@<:#240,10800>        x = 1
  4441.  
  4442. @Subhead@<:#240,10800>        While -1 != Assign(&Data, StrField$(Files, x,CommaStr))
  4443.  
  4444. @Subhead@<:#240,10800>            Data = Ltrim(Data)
  4445.  
  4446. @Subhead@<:#240,10800>            If Data != NULL
  4447.  
  4448. @Subhead@<:#240,10800>                setdlgitemtext(hdlg, 9002, Data)
  4449.  
  4450. @Subhead@<:#240,10800>            Endif
  4451.  
  4452. @Subhead@<:#240,10800>            x = x + 1;
  4453.  
  4454. @Subhead@<:#240,10800>        Wend
  4455.  
  4456. @Subhead@<:#240,10800>EndSwitch
  4457.  
  4458. @Subhead@<:#240,10800>End Function
  4459.  
  4460. @Subhead@<:#240,10800>
  4461.  
  4462. @Title@<:#332,10800>Function SetUpReply()
  4463.  
  4464. @Subhead@<:#240,10800>ignorekeyboard(2)
  4465.  
  4466. @Subhead@<:#240,10800>menuset=FullMenus(MENUSET_REPLY)
  4467.  
  4468. @Subhead@<:#240,10800>if menuset=0
  4469.  
  4470. @Subhead@<:#240,10800>    exit function
  4471.  
  4472. @Subhead@<:#240,10800>endif
  4473.  
  4474. @Subhead@<:#240,10800>
  4475.  
  4476. @Subhead@<:#240,10800>StandardView()
  4477.  
  4478. @Subhead@<:#240,10800>ShowReplyFrames()
  4479.  
  4480. @Subhead@<:#240,10800>DocInfo("", "", 3)
  4481.  
  4482. @Subhead@<:#240,10800>
  4483.  
  4484. @Subhead@<:#240,10800>End Function
  4485.  
  4486. <:#240,10800>
  4487.  
  4488. @Title@<:#332,10800>Function ExtractFileName(filename)
  4489.  
  4490. @Subhead@<:#240,10800>ignorekeyboard(2)
  4491.  
  4492. @Subhead@<:#240,10800>Defstr Char;
  4493.  
  4494. @Subhead@<:#240,10800>AllocGlobalVar(GVQkmail, 1)
  4495.  
  4496. @Subhead@<:#240,10800>i = LEN(filename)
  4497.  
  4498. @Subhead@<:#240,10800>WHILE SLASHCHAR != Assign(&Char, MID$(filename, i, 1))
  4499.  
  4500. @Subhead@<:#240,10800>    i = i - 1
  4501.  
  4502. @Subhead@<:#240,10800>WEND
  4503.  
  4504. @Subhead@<:#240,10800>filename = Right$(filename, (LEN(filename) - i))
  4505.  
  4506. @Subhead@<:#240,10800>SetGlobalVar(GVQkmail, filename)
  4507.  
  4508. @Subhead@<:#240,10800>End Function
  4509.  
  4510. <:#240,10800>
  4511.  
  4512. @Title@<:#332,10800>Function FindAndReplace(Targetstring, Findwhat, Replacewith)
  4513.  
  4514. @Subhead@<:#240,10800>ignorekeyboard(2)
  4515.  
  4516. @Subhead@<:#240,10800>'dez072194
  4517.  
  4518. @Subhead@<:#240,10800>DefStr Location;
  4519.  
  4520. @Subhead@<:#240,10800>OffSet = 0
  4521.  
  4522. @Subhead@<:#240,10800>While 0 != Assign(&Location, Instr(OffSet, Targetstring, FindWhat))
  4523.  
  4524. @Subhead@<:#240,10800>    BeforeLocation = Left$(Targetstring, Location - 1)
  4525.  
  4526. @Subhead@<:#240,10800>    AfterLocation = Right$(Targetstring, Len(Targetstring) - (Location + (len(findwhat) - 1)));
  4527.  
  4528. @Subhead@<:#240,10800>    *Targetstring = StrCat$(BeforeLocation, ReplaceWith, AfterLocation)
  4529.  
  4530. @Subhead@<:#240,10800>Wend
  4531.  
  4532. @Subhead@<:#240,10800>End Function
  4533.  
  4534. @Subhead@<:#240,10800>
  4535.  
  4536. @Title@<:#332,10800>function TrimLeadingTrailingSingles(targetstring, char)
  4537.  
  4538. @Subhead@<:#240,10800>ignorekeyboard(2)
  4539.  
  4540. @Subhead@<:#240,10800>if Left$(targetstring, 1) = char
  4541.  
  4542. @Subhead@<:#240,10800>    targetstring=right$(targetstring, (len(targetstring) - 1))
  4543.  
  4544. @Subhead@<:#240,10800>endif
  4545.  
  4546. @Subhead@<:#240,10800>if Right$(targetstring, 1) = char;
  4547.  
  4548. @Subhead@<:#240,10800>    *targetstring=left$(targetstring, (len(targetstring) - 1))
  4549.  
  4550. @Subhead@<:#240,10800>endif
  4551.  
  4552. @Subhead@<:#240,10800>
  4553.  
  4554. @Subhead@<:#240,10800>end function
  4555.  
  4556. @Subhead@<:#240,10800>
  4557.  
  4558. @Title@<:#332,10800>' dialogs
  4559.  
  4560. @Subhead@<:#240,10800>DIALOG    Attach
  4561.  
  4562. @Outline3@<:#240,10800>-2134376448    9    49    56    260    102    ""    "AmiDialog"    "Attach Files"
  4563.  
  4564. @Outline3@<:#240,10800>FONT    8    "Helv"
  4565.  
  4566. @Outline3@<:#240,10800>218    3    40    14    20    1342373889    "button"    "OK"    0 
  4567.  
  4568. @Outline3@<:#240,10800>218    19    40    14    2    1342373888    "button"    "Cancel"    0 
  4569.  
  4570. @Outline3@<:#240,10800>3    14    60    80    9001    1352728579    "listbox"    ""    0 
  4571.  
  4572. @Outline3@<:#240,10800>114    14    98    80    9002    1352728577    "listbox"    ""    0 
  4573.  
  4574. @Outline3@<:#240,10800>66    32    43    14    21    1342373888    "button"    "Attach <;><;>"    0 
  4575.  
  4576. @Outline3@<:#240,10800>66    50    43    14    22    1342373888    "button"    "<<<< Remove"    0 
  4577.  
  4578. @Outline3@<:#240,10800>3    2    82    10    7999    1342177280    "static"    "text"    0 
  4579.  
  4580. @Outline3@<:#240,10800>112    2    56    10    1001    1342177280    "static"    "Attachments:"    0 
  4581.  
  4582. @Outline3@<:#240,10800>238    182    10    14    1    1342373888    "button"    "&z"    0 
  4583.  
  4584. @Outline3@<:#240,10800>END DIALOG
  4585.  
  4586. @Subhead@<:#240,10800>DIALOG    OPTIONS
  4587.  
  4588. @Outline3@<:#240,10800>-2134376448    15    26    24    201    186    ""    "AmiDialog"    "Send Mail Options"
  4589.  
  4590. @Outline3@<:#240,10800>FONT    8    "MS Sans Serif"
  4591.  
  4592. @Outline3@<:#240,10800>16    30    26    10    1000    1342177280    "static"    "Priority:"    0 
  4593.  
  4594. @Outline3@<:#240,10800>5    2    80    12    20    1342242819    "button"    "Log (Save) message"    0 
  4595.  
  4596. @Outline3@<:#240,10800>5    15    111    12    21    1342242819    "button"    "Return receipt requested"    0 
  4597.  
  4598. @Outline3@<:#240,10800>44    28    52    40    9500    1344339971    "combobox"    ""    0 
  4599.  
  4600. @Outline3@<:#480,10800>5    43    132    12    22    1342242819    "button"    "Display memo text in E-mail message"    0 
  4601.  
  4602. @Outline3@<:#480,10800>5    56    180    12    23    1342242819    "button"    "Send this memo as a Lotus Ami Pro attachment"    0 
  4603.  
  4604. @Outline3@<:#480,10800>5    69    190    12    24    1342242819    "button"    "Send this memo as an attachment in different format(s):"    0 
  4605.  
  4606. @Outline3@<:#240,10800>17    83    126    48    9000    1352728585    "listbox"    ""    0 
  4607.  
  4608. @Outline3@<:#480,10800>5    133    160    12    27    1342242819    "button"    "Suggest that receiver use Revision Marking"    0 
  4609.  
  4610. @Outline3@<:#240,10800>5    147    191    36    28    1342177287     "static"    "" 0
  4611.  
  4612. @Outline3@<:#240,10800>7    154    187    24    29    1342177280    "static"        "" 0 
  4613.  
  4614. @Outline3@<:#240,10800>145    6    20    14    1    1073938433    "button"    "OK"    0 
  4615.  
  4616. @Outline3@<:#240,10800>145    6    50    14    Okbutton    1342373889    "button"    "OK"    0 
  4617.  
  4618. @Outline3@<:#240,10800>145    22    50    14    2    1342373888    "button"    "Cancel"    0 
  4619.  
  4620. @Outline3@<:#240,10800>145    38    50    14    25    1342373888    "button"    "Make Default"    0 
  4621.  
  4622. @Outline3@<:#240,10800>END DIALOG
  4623.  
  4624. >
  4625.  
  4626. [Embedded]
  4627. 00116411
  4628. >
  4629. [macsum] 45
  4630. menupicker 0 0 4 301
  4631. BasicMenus 393 0 5 326
  4632. FullMenus 840 1 5 339
  4633. send 2215 0 1 364
  4634. donothing 2252 0 1 370
  4635. GetMailHost 2278 0 1 373
  4636. Compose 2326 1 4 383
  4637. VimSend 2971 0 44 426
  4638. AdvancePastSubjectText 8964 0 2 755
  4639. GetMailUserName 9245 1 9 772
  4640. CreateNewFiles 9648 3 21 800
  4641. CheckForFrameInMsg 11940 0 3 943
  4642. ShowReplyFrames 12130 0 5 958
  4643. ShowSendFrames 12776 1 14 990
  4644. GetFileExtension 13595 4 8 1034
  4645. CheckForFrame 15246 0 3 1110
  4646. FindMsgItem 15473 2 9 1126
  4647. ReplaceMsgItem 17171 2 1 1228
  4648. ComposeReply 17281 2 12 1237
  4649. Reply 19357 0 2 1365
  4650. ReplyWithHistory 19474 0 2 1373
  4651. ReplyToAll 19607 0 2 1382
  4652. ReplyToAllHistory 19729 0 2 1391
  4653. Forward 19863 0 2 1400
  4654. Address 19989 0 19 1410
  4655. Options 21961 0 3 1518
  4656. helper 22524 0 4 1550
  4657. DisplayActiveHelpByID 22712 2 1 1558
  4658. ActiveControlHelp 22799 2 4 1564
  4659. DisplayActiveControlHelp 23053 2 2 1581
  4660. SetOptions 24390 3 26 1617
  4661. FindIt 28368 3 4 1783
  4662. StripDown 28656 2 6 1802
  4663. StripPhraseFromList 29045 2 5 1819
  4664. LTrim 29652 1 1 1847
  4665. VariableAllocated 29847 1 3 1858
  4666. DarkModeMacro 30040 2 2 1875
  4667. attach 30480 0 5 1896
  4668. MoveIt 30856 3 13 1920
  4669. SetUpReply 32024 0 2 1970
  4670. ExtractFileName 32182 1 3 1983
  4671. FindAndReplace 32436 3 5 1995
  4672. TrimLeadingTrailingSingles 32727 2 1 2007
  4673. Attach 32969 0 -1 2019
  4674. OPTIONS 33491 0 -1 2032
  4675. [macse]
  4676. 14 menupicker
  4677. 0 32 2
  4678. 0 1050
  4679. 13
  4680. 8 1
  4681. 6 1
  4682. 5 1
  4683. 18 5
  4684. 6 1
  4685. 5 9
  4686. 18 0
  4687. 1 2
  4688. 11 00000117
  4689. 16 BasicMenus
  4690. 5 0
  4691. 15
  4692. 9
  4693. 0 1310 "DocVarQKMail"
  4694. 13
  4695. 8 2
  4696. 0 279 3
  4697. 13
  4698. 0 17 [X]
  4699. 13
  4700. 8 3
  4701. 6 3
  4702. 7 "qkmail9.sty"
  4703. 18 0
  4704. 11 00000273
  4705. 16 FullMenus "sendmenus"
  4706. 5 1
  4707. 15
  4708. 9
  4709. 10 00000381
  4710. 6 2
  4711. 5 1
  4712. 18 0
  4713. 11 00000354
  4714. 16 FullMenus "replymenus"
  4715. 5 1
  4716. 15
  4717. 9
  4718. 10 00000381
  4719. 16 BasicMenus
  4720. 5 0
  4721. 15
  4722. 9
  4723. 6 0
  4724. 15
  4725. 9
  4726. 14 BasicMenus
  4727. 0 32 2
  4728. 7 "&File"
  4729. 8 1
  4730. 7 "Send &Mail"
  4731. 8 2
  4732. 7 "&Compose Mail Message"
  4733. 8 3
  4734. 0 802
  4735. 13
  4736. 8 4
  4737. 0 520 1 "{1}" "Send &Mail..."
  4738. 0 520 1 "{1}" "{2}"
  4739. 0 528 1 "{1}" 11 "{2}"
  4740. 0 525 1 "{1}" "{2}" "&Compose Mail Message" "{4}!compose()" "Compose an e-mail message with Ami Pro."
  4741. 0 525 1 "{1}" "{2}" "Send as an A&ttachment..." "{4}!send()" "Send an electronic message, and optionally attach the current document."
  4742. 5 1
  4743. 15
  4744. 9
  4745. 6 0
  4746. 15
  4747. 9
  4748. 14 FullMenus
  4749. 0 32 2
  4750. 7 "&File"
  4751. 8 2
  4752. 7 "Send &Mail"
  4753. 8 3
  4754. 7 "&Compose Mail Message"
  4755. 8 4
  4756. 0 802
  4757. 13
  4758. 8 5
  4759. 0 520 1 "{2}" "Send &Mail..."
  4760. 0 520 1 "{2}" "{3}"
  4761. 0 528 1 "{2}" 11 "{3}"
  4762. 0 525 1 "{2}" "{3}" "&Compose Mail Message" "{5}!compose()" "Compose an e-mail message with Ami Pro."
  4763. 0 525 1 "{2}" "{3}" "Send as an A&ttachment..." "{5}!send()" "Send an electronic message, and optionally attach the current document."
  4764. 0 525 1 "{2}" "{3}" "-" "" ""
  4765. 6 0
  4766. 7 "replymenus"
  4767. 18 1
  4768. 11 00000771
  4769. 0 525 1 "{2}" "{3}" "&Address..." "{5}!address()" "Use the Address Book to choose recipients."
  4770. 0 525 1 "{2}" "{3}" "Attach &Files..." "{5}!attach()" "Attach file(s) to the current message."
  4771. 0 525 1 "{2}" "{3}" "&Send..." "{5}!VIMSend()" "Send the mail message."
  4772. 10 00001351
  4773. 6 0
  4774. 7 "replymenus"
  4775. 18 0
  4776. 11 00001351
  4777. 0 525 1 "{2}" "{3}" "&Reply" "{5}!reply()" "Reply to a message."
  4778. 0 525 1 "{2}" "{3}" "Reply with H&istory" "{5}!ReplyWithHistory()" "Reply to a message, and forward the original message."
  4779. 0 525 1 "{2}" "{3}" "Re&ply to All" "{5}!ReplyToAll()" "Reply to a message, and copy all other recipients."
  4780. 0 525 1 "{2}" "{3}" "Reply to All with &History" "{5}!ReplyToAllHistory()" "Reply to a message, copy all other recipients, and forward the original message."
  4781. 0 525 1 "{2}" "{3}" "For&ward" "{5}!forward()" "Forward this message to others."
  4782. 5 1
  4783. 15
  4784. 9
  4785. 6 1
  4786. 15
  4787. 9
  4788. 14 send
  4789. 0 32 2
  4790. 24 229
  4791. 6 0
  4792. 15
  4793. 9
  4794. 14 donothing
  4795. 6 0
  4796. 15
  4797. 9
  4798. 14 GetMailHost
  4799. 0 32 2
  4800. 5 0
  4801. 15
  4802. 9
  4803. 6 0
  4804. 15
  4805. 9
  4806. 14 Compose
  4807. 0 32 2
  4808. 0 296 1
  4809. 0 284 "user,GetActiveWindow,H"
  4810. 13
  4811. 0 284 "user,lockwindowupdate,hh" [X]
  4812. 6 0
  4813. 5 1
  4814. 18 1
  4815. 11 00000297
  4816. 2 101 1 "qkmail9.sty" 1 512
  4817. 16 menupicker
  4818. 13
  4819. 8 3
  4820. 6 3
  4821. 5 0
  4822. 18 0
  4823. 11 00000272
  4824. 0 284 "user,lockwindowupdate,hh" ""
  4825. 0 296 0
  4826. 5 0
  4827. 15
  4828. 9
  4829. 0 1311 "DocVarQKMail" 1
  4830. 2 210 1
  4831. 2 203 1
  4832. 16 FullMenus "sendmenus"
  4833. 16 ShowSendFrames 0
  4834. 2 466 1 "Date:" 4002
  4835. 0 6 "[35]"
  4836. 0 772
  4837. 13
  4838. 0 770 [X] "d"
  4839. 13
  4840. 8 4
  4841. 0 6 "{4}"
  4842. 2 466 1 "Date:" 4002
  4843. 0 6 "[4131]"
  4844. 2 188 1
  4845. 16 GetMailUserName &2
  4846. 2 466 1 "From:" 4002
  4847. 0 6 "[35]"
  4848. 0 6 "{2}"
  4849. 2 466 1 "To:" 4002
  4850. 0 6 "[35]"
  4851. 0 284 "user,lockwindowupdate,hh" ""
  4852. 0 296 0
  4853. 6 1
  4854. 15
  4855. 9
  4856. 14 VimSend
  4857. 16 menupicker
  4858. 13
  4859. 8 1
  4860. 6 1
  4861. 5 0
  4862. 18 0
  4863. 11 00000077
  4864. 6 0
  4865. 15
  4866. 9
  4867. 16 FindMsgItem "To:" &2
  4868. 6 2
  4869. 7 ""
  4870. 18 0
  4871. 11 00000336
  4872. 0 3 "'To:' is a required field." "Ami Pro Mail"
  4873. 0 284 "user,GetActiveWindow,H"
  4874. 13
  4875. 0 284 "user,lockwindowupdate,hh" [X]
  4876. 2 466 1 "To:" 4002
  4877. 0 6 "[35]"
  4878. 0 284 "user,lockwindowupdate,hh" ""
  4879. 5 0
  4880. 15
  4881. 9
  4882. 5 0
  4883. 16 options
  4884. 13
  4885. 18 0
  4886. 11 00000388
  4887. 5 0
  4888. 15
  4889. 9
  4890. 5 0
  4891. 8 16
  4892. 0 14 "{2}"
  4893. 13
  4894. 5 255
  4895. 18 3
  4896. 11 00000573
  4897. 0 3 "Recipient (To:) List has been truncated. Reduce the length of names to less than 255 characters." "Ami Pro Mail"
  4898. 10 00005563
  4899. 16 FindMsgItem "cc:" &5
  4900. 0 14 "{5}"
  4901. 13
  4902. 5 255
  4903. 18 3
  4904. 11 00000772
  4905. 0 3 "Recipient (cc:) List has been truncated. Reduce the length of names to less than 255 characters." "Ami Pro Mail"
  4906. 10 00005563
  4907. 16 FindMsgItem "bcc:" &4
  4908. 0 14 "{4}"
  4909. 13
  4910. 5 255
  4911. 18 3
  4912. 11 00000973
  4913. 0 3 "Recipient (bcc:) List has been truncated. Reduce the length of names to less than 255 characters." "Ami Pro Mail"
  4914. 10 00005563
  4915. 0 296 1
  4916. 0 265 "Log"
  4917. 13
  4918. 8 17
  4919. 0 265 "Receipt"
  4920. 13
  4921. 8 18
  4922. 0 265 "Priority"
  4923. 13
  4924. 8 19
  4925. 6 19
  4926. 7 "Low"
  4927. 18 0
  4928. 11 00001118
  4929. 5 0
  4930. 8 20
  4931. 10 00001190
  4932. 6 20
  4933. 7 "Urgent"
  4934. 18 0
  4935. 11 00001179
  4936. 5 2
  4937. 8 20
  4938. 10 00001190
  4939. 5 1
  4940. 8 20
  4941. 0 265 "CopyMessage"
  4942. 13
  4943. 8 21
  4944. 0 265 "AttachOtherFormat"
  4945. 13
  4946. 8 22
  4947. 0 265 "RevMarking"
  4948. 13
  4949. 8 23
  4950. 16 GetFileExtension 0 "{22}" &7 &8
  4951. 0 265 "AttachAmi"
  4952. 13
  4953. 8 24
  4954. 7 ""
  4955. 8 25
  4956. 16 VariableAllocated "Files"
  4957. 13
  4958. 8 26
  4959. 6 26
  4960. 11 00001449
  4961. 0 265 "Files"
  4962. 13
  4963. 8 25
  4964. 0 284 "user,HideCaret,HA" ""
  4965. 0 268
  4966. 13
  4967. 8 27
  4968. 0 16 "{11}" "{27}" "~mailbk.sam"
  4969. 13
  4970. 8 12
  4971. 0 1311 "DocVarQKMail" 1
  4972. 0 291 6
  4973. 2 104 1 "{12}" 32 "Mail Memo" ""
  4974. 6 24
  4975. 5 1
  4976. 18 0
  4977. 6 22
  4978. 7 ""
  4979. 18 1
  4980. 1 2
  4981. 11 00002224
  4982. 0 16 "{11}" "{27}" "~ltsmail.sam"
  4983. 13
  4984. 8 11
  4985. 0 779 "{11}"
  4986. 13
  4987. 8 28
  4988. 0 802
  4989. 13
  4990. 8 29
  4991. 0 14 "{29}"
  4992. 13
  4993. 8 31
  4994. 7 "\"
  4995. 0 15 "{29}" "{31}" 1
  4996. 13
  4997. 0 805 &30 [X]
  4998. 13
  4999. 18 1
  5000. 11 00001876
  5001. 6 31
  5002. 5 1
  5003. 3 1
  5004. 8 31
  5005. 10 00001770
  5006. 0 14 "{29}"
  5007. 13
  5008. 6 31
  5009. 3 1
  5010. 0 807 "{29}" [X]
  5011. 13
  5012. 8 29
  5013. 6 23
  5014. 11 00001989
  5015. 2 140 1 "RevOn" "" "" "" "" "" "" ""
  5016. 2 463 1 "{29}!SetUpReply()" "" 2
  5017. 0 1311 "DocVarQKMail" 1
  5018. 2 460 1 1 0
  5019. 5 1
  5020. 2 104 1 "{11}" 32 "Mail Memo" ""
  5021. 13
  5022. 18 1
  5023. 11 00002144
  5024. 0 296 0
  5025. 5 0
  5026. 15
  5027. 9
  5028. 6 11
  5029. 8 6
  5030. 6 24
  5031. 5 1
  5032. 18 0
  5033. 11 00002224
  5034. 0 16 "{11}" "; mailmemo.sam"
  5035. 13
  5036. 8 6
  5037. 0 284 "user,GetActiveWindow,H"
  5038. 13
  5039. 0 284 "user,lockwindowupdate,hh" [X]
  5040. 5 0
  5041. 8 32
  5042. 16 AdvancePastSubjectText
  5043. 0 6 "[20515]"
  5044. 0 24
  5045. 13
  5046. 8 33
  5047. 0 6 "[27]"
  5048. 0 807 "{33}" 1
  5049. 13
  5050. 7 " "
  5051. 18 0
  5052. 11 00002493
  5053. 0 14 "{33}"
  5054. 13
  5055. 5 1
  5056. 3 1
  5057. 0 806 "{33}" [X]
  5058. 13
  5059. 8 33
  5060. 10 00002379
  5061. 0 14 "{33}"
  5062. 13
  5063. 5 1
  5064. 18 0
  5065. 11 00002614
  5066. 6 33
  5067. 0 39 13
  5068. 13
  5069. 18 0
  5070. 6 33
  5071. 0 39 10
  5072. 13
  5073. 18 0
  5074. 1 2
  5075. 11 00002614
  5076. 7 ""
  5077. 8 33
  5078. 6 33
  5079. 7 ""
  5080. 18 0
  5081. 11 00002666
  5082. 5 0
  5083. 8 8
  5084. 5 0
  5085. 8 24
  5086. 5 0
  5087. 8 32
  5088. 6 24
  5089. 5 1
  5090. 18 0
  5091. 11 00002729
  5092. 6 32
  5093. 5 1
  5094. 3 0
  5095. 8 32
  5096. 6 21
  5097. 5 1
  5098. 18 0
  5099. 11 00002781
  5100. 6 32
  5101. 5 1
  5102. 3 0
  5103. 8 32
  5104. 6 24
  5105. 5 1
  5106. 18 0
  5107. 6 8
  5108. 5 0
  5109. 18 3
  5110. 6 21
  5111. 5 1
  5112. 18 0
  5113. 1 2
  5114. 1 2
  5115. 11 00004229
  5116. 6 8
  5117. 6 32
  5118. 3 0
  5119. 0 271 "FilesList" [X]
  5120. 6 8
  5121. 6 32
  5122. 3 0
  5123. 0 271 "FormatList" [X]
  5124. 6 21
  5125. 5 1
  5126. 18 0
  5127. 11 00003073
  5128. 0 16 "{34}" "{27}" "note.rtf"
  5129. 13
  5130. 8 34
  5131. 0 272 "FilesList" 1 "{34}"
  5132. 0 272 "FormatList" 1 "Rich Text Format"
  5133. 6 21
  5134. 5 1
  5135. 18 0
  5136. 11 00003138
  5137. 5 2
  5138. 8 35
  5139. 5 1
  5140. 8 36
  5141. 10 00003160
  5142. 5 1
  5143. 8 35
  5144. 5 0
  5145. 8 36
  5146. 5 1
  5147. 8 37
  5148. 6 35
  5149. 8 31
  5150. 6 8
  5151. 6 36
  5152. 3 0
  5153. 6 31
  5154. 18 2
  5155. 12 00003272
  5156. 10 00003560
  5157. 5 1
  5158. 6 31
  5159. 3 0
  5160. 8 31
  5161. 10 00003183
  5162. 0 20 "{7}" "{37}" ","
  5163. 13
  5164. 16 LTrim [X]
  5165. 13
  5166. 8 38
  5167. 0 20 "{22}" "{37}" ","
  5168. 13
  5169. 16 LTrim [X]
  5170. 13
  5171. 8 39
  5172. 7 ""
  5173. 8 34
  5174. 0 16 "{34}" "{27}" "message."
  5175. 13
  5176. 8 34
  5177. 0 16 "{34}" "{38}"
  5178. 13
  5179. 8 34
  5180. 0 272 "FilesList" "{31}" "{34}"
  5181. 0 272 "FormatList" "{31}" "{39}"
  5182. 6 37
  5183. 5 1
  5184. 3 0
  5185. 8 37
  5186. 10 00003237
  5187. 6 32
  5188. 6 8
  5189. 3 0
  5190. 8 32
  5191. 6 32
  5192. 8 40
  5193. 6 6
  5194. 8 13
  5195. 5 0
  5196. 8 16
  5197. 16 FindMsgItem "Subject:" &3
  5198. 0 6 "[27]"
  5199. 6 11
  5200. 7 ""
  5201. 18 1
  5202. 11 00004218
  5203. 16 CreateNewFiles "{11}" &13 &40
  5204. 13
  5205. 8 16
  5206. 6 16
  5207. 5 2
  5208. 18 0
  5209. 11 00004218
  5210. 0 266 "Log"
  5211. 0 266 "Receipt"
  5212. 0 266 "Priority"
  5213. 0 266 "CopyMessage"
  5214. 0 266 "AttachAmi"
  5215. 0 266 "AttachOtherFormat"
  5216. 0 266 "RevMarking"
  5217. 0 779 "{11}"
  5218. 5 1
  5219. 8 31
  5220. 6 32
  5221. 6 31
  5222. 18 2
  5223. 12 00004002
  5224. 10 00004096
  5225. 5 1
  5226. 6 31
  5227. 3 0
  5228. 8 31
  5229. 10 00003923
  5230. 0 273 "FilesList" "{31}"
  5231. 13
  5232. 8 34
  5233. 6 34
  5234. 7 ""
  5235. 18 1
  5236. 11 00004083
  5237. 0 779 "{34}"
  5238. 10 00003967
  5239. 0 266 "FilesList"
  5240. 0 266 "FormatList"
  5241. 0 34 1 0
  5242. 2 147 1
  5243. 0 284 "user,lockwindowupdate,hh" ""
  5244. 16 menupicker
  5245. 5 0
  5246. 15
  5247. 9
  5248. 6 13
  5249. 8 6
  5250. 6 25
  5251. 7 ""
  5252. 18 1
  5253. 11 00004293
  5254. 0 16 "{6}" ", " "{25}"
  5255. 13
  5256. 8 6
  5257. 5 0
  5258. 8 16
  5259. 0 14 "{6}"
  5260. 13
  5261. 5 255
  5262. 18 3
  5263. 11 00004475
  5264. 0 3 "Attachment list too long.  Reduce the length of attachment names to less than 255 characters." "Ami Pro Mail"
  5265. 10 00005563
  5266. 6 21
  5267. 5 1
  5268. 18 1
  5269. 11 00004517
  5270. 7 ""
  5271. 8 33
  5272. 6 24
  5273. 5 1
  5274. 18 0
  5275. 6 22
  5276. 7 ""
  5277. 18 1
  5278. 1 2
  5279. 11 00004698
  5280. 7 ""
  5281. 8 33
  5282. 0 16 "{33}" "(Note: This message is attached.)"
  5283. 13
  5284. 8 33
  5285. 0 39 13
  5286. 13
  5287. 0 39 13
  5288. 13
  5289. 0 16 "{33}" [X] [X]
  5290. 13
  5291. 8 33
  5292. 16 VariableAllocated "Access"
  5293. 13
  5294. 8 41
  5295. 6 41
  5296. 11 00004797
  5297. 0 265 "Access"
  5298. 13
  5299. 8 10
  5300. 10 00004809
  5301. 7 ""
  5302. 8 10
  5303. 0 798
  5304. 13
  5305. 8 42
  5306. 0 16 "{42}" "amiqkml.dll"
  5307. 13
  5308. 8 42
  5309. 0 297 "{42}" "QuickSend" "IHHCAAHCCCCCCC"
  5310. 13
  5311. 8 43
  5312. 6 43
  5313. 11 00005397
  5314. 7 ""
  5315. 8 14
  5316. 6 21
  5317. 5 1
  5318. 18 0
  5319. 11 00005008
  5320. 0 273 "FilesList" 1
  5321. 13
  5322. 8 14
  5323. 6 21
  5324. 5 1
  5325. 18 1
  5326. 11 00005063
  5327. 7 ""
  5328. 8 33
  5329. 10 00005128
  5330. 6 24
  5331. 5 1
  5332. 18 1
  5333. 6 22
  5334. 7 ""
  5335. 18 0
  5336. 1 1
  5337. 11 00005128
  5338. 7 ""
  5339. 8 14
  5340. 16 GetMailHost
  5341. 13
  5342. 0 284 "user,GetActiveWindow,H"
  5343. 13
  5344. 0 284 "{43}" [X] [X] &10 "{17}" "{18}" "{20}" "{3}" "{33}" "{14}" "{2}" "{5}" "{4}" "{6}"
  5345. 13
  5346. 8 16
  5347. 0 34 1 0
  5348. 2 147 1
  5349. 6 16
  5350. 5 1
  5351. 18 0
  5352. 11 00005349
  5353. 16 menupicker
  5354. 6 26
  5355. 11 00005383
  5356. 0 266 "Files"
  5357. 0 298 "{43}"
  5358. 6 16
  5359. 5 0
  5360. 18 0
  5361. 11 00005492
  5362. 2 102 1 "{12}" 1 ""
  5363. 2 210 1
  5364. 2 203 1
  5365. 16 FullMenus "sendmenus"
  5366. 6 41
  5367. 5 0
  5368. 18 0
  5369. 11 00005540
  5370. 0 271 "Access" 1
  5371. 0 264 "Access" "{10}"
  5372. 0 266 "Log"
  5373. 0 266 "Receipt"
  5374. 0 266 "Priority"
  5375. 0 266 "CopyMessage"
  5376. 0 266 "AttachAmi"
  5377. 0 266 "AttachOtherFormat"
  5378. 0 266 "RevMarking"
  5379. 0 779 "{11}"
  5380. 5 1
  5381. 8 31
  5382. 6 32
  5383. 6 31
  5384. 18 2
  5385. 12 00005802
  5386. 10 00005896
  5387. 5 1
  5388. 6 31
  5389. 3 0
  5390. 8 31
  5391. 10 00005723
  5392. 0 273 "FilesList" "{31}"
  5393. 13
  5394. 8 34
  5395. 6 34
  5396. 7 ""
  5397. 18 1
  5398. 11 00005883
  5399. 0 779 "{34}"
  5400. 10 00005767
  5401. 0 266 "FilesList"
  5402. 0 266 "FormatList"
  5403. 0 284 "user,lockwindowupdate,hh" ""
  5404. 0 296 0
  5405. 6 0
  5406. 15
  5407. 9
  5408. 14 AdvancePastSubjectText
  5409. 0 32 2
  5410. 2 466 1 "Subject:" 4002
  5411. 0 6 "[16423][16423][39]"
  5412. 0 6 "[39]"
  5413. 2 466 1 "subjecttxt" 4003
  5414. 0 6 "[4131]"
  5415. 0 24
  5416. 13
  5417. 8 1
  5418. 6 1
  5419. 7 ""
  5420. 18 1
  5421. 11 00000226
  5422. 2 466 1 "subjecttxt" 4002
  5423. 0 6 "[16424]"
  5424. 0 6 "[40][36]"
  5425. 2 466 1 "subjecttxt" 4004
  5426. 6 0
  5427. 15
  5428. 9
  5429. 14 GetMailUserName
  5430. 0 32 2
  5431. 0 798
  5432. 13
  5433. 8 7
  5434. 0 16 "{7}" "amiqkml.dll"
  5435. 13
  5436. 8 7
  5437. 5 0
  5438. 8 8
  5439. 0 297 "{7}" "GetDefaultSessionInfo" "ICCC"
  5440. 13
  5441. 8 9
  5442. 6 9
  5443. 11 00000204
  5444. 0 284 "{9}" &4 &2 &3
  5445. 13
  5446. 8 8
  5447. 0 298 "{9}"
  5448. 0 20 "{2}" 1 ","
  5449. 13
  5450. 8 6
  5451. 6 6
  5452. 5 -1
  5453. 18 1
  5454. 11 00000380
  5455. 0 20 "{2}" 2 ","
  5456. 13
  5457. 8 5
  5458. 6 5
  5459. 5 -1
  5460. 18 1
  5461. 11 00000380
  5462. 0 16 "{5}" " "
  5463. 13
  5464. 8 5
  5465. 0 16 "{5}" "{6}"
  5466. 13
  5467. 8 5
  5468. 6 5
  5469. 8 2
  5470. 6 2
  5471. 28 0
  5472. 6 1
  5473. 15
  5474. 9
  5475. 14 CreateNewFiles
  5476. 0 32 2
  5477. 7 ""
  5478. 8 4
  5479. 27 1
  5480. 8 5
  5481. 0 265 "AttachAmi"
  5482. 13
  5483. 5 0
  5484. 18 0
  5485. 0 808 0 "{5}" "~ltsmail.sam"
  5486. 13
  5487. 5 0
  5488. 18 1
  5489. 1 1
  5490. 11 00000157
  5491. 7 ""
  5492. 8 5
  5493. 0 268
  5494. 13
  5495. 8 6
  5496. 0 802
  5497. 13
  5498. 8 7
  5499. 2 463 1 "" "" 0
  5500. 0 279 8
  5501. 13
  5502. 8 8
  5503. 6 8
  5504. 7 "RevOn"
  5505. 18 0
  5506. 11 00000272
  5507. 2 460 1 1 0
  5508. 0 284 "user,GetActiveWindow,H"
  5509. 13
  5510. 0 284 "user,lockwindowupdate,hh" [X]
  5511. 0 1039
  5512. 13
  5513. 8 9
  5514. 6 9
  5515. 5 0
  5516. 18 3
  5517. 11 00000734
  5518. 6 9
  5519. 21 10 [X]
  5520. 0 1040 &10
  5521. 5 1
  5522. 8 11
  5523. 6 9
  5524. 6 11
  5525. 18 2
  5526. 12 00000509
  5527. 10 00000635
  5528. 5 1
  5529. 6 11
  5530. 3 0
  5531. 8 11
  5532. 10 00000431
  5533. 6 11
  5534. 22 10
  5535. 2 466 1 [X] 4002
  5536. 0 800
  5537. 13
  5538. 11 00000576
  5539. 0 6 "[46]"
  5540. 6 11
  5541. 22 10
  5542. 7 "Subject:"
  5543. 18 1
  5544. 11 00000622
  5545. 10 00000474
  5546. 2 466 1 "Subject:" 4002
  5547. 16 AdvancePastSubjectText
  5548. 0 291 6
  5549. 0 6 "[20516][46]"
  5550. 0 6 "[36][20515]"
  5551. 5 0
  5552. 8 12
  5553. 5 1
  5554. 8 11
  5555. 27 2
  5556. 6 11
  5557. 18 2
  5558. 12 00000835
  5559. 10 00002222
  5560. 5 1
  5561. 6 11
  5562. 3 0
  5563. 8 11
  5564. 10 00000756
  5565. 0 273 "FilesList" "{11}"
  5566. 13
  5567. 8 13
  5568. 6 13
  5569. 7 ""
  5570. 18 0
  5571. 11 00000915
  5572. 10 00002209
  5573. 0 273 "FormatList" "{11}"
  5574. 13
  5575. 8 14
  5576. 6 14
  5577. 5 4
  5578. 18 0
  5579. 11 00001006
  5580. 5 4
  5581. 8 15
  5582. 10 00001018
  5583. 5 32
  5584. 8 15
  5585. 6 13
  5586. 8 16
  5587. 5 0
  5588. 0 284 "kernel,GetTempFileName,IICHC" 0 "msg" 0 &17
  5589. 13
  5590. 18 0
  5591. 11 00001122
  5592. 6 13
  5593. 8 17
  5594. 0 779 "{17}"
  5595. 6 14
  5596. 7 ""
  5597. 18 0
  5598. 11 00001199
  5599. 7 "Ami Pro"
  5600. 8 18
  5601. 10 00001211
  5602. 6 14
  5603. 8 18
  5604. 0 1311 "DocVarQKMail" 1
  5605. 6 14
  5606. 7 "Rich Text Format"
  5607. 18 0
  5608. 11 00001349
  5609. 2 107 1 1 "{17}" "Rich Text Format" 0 "N"
  5610. 13
  5611. 8 19
  5612. 10 00001425
  5613. 2 104 1 "{17}" "{15}" "Mail Message saved in {18} format" "{14}"
  5614. 13
  5615. 8 19
  5616. 6 19
  5617. 5 1
  5618. 18 0
  5619. 11 00002021
  5620. 0 808 0 "{16}" "."
  5621. 13
  5622. 8 20
  5623. 0 14 "{16}"
  5624. 13
  5625. 6 20
  5626. 3 1
  5627. 0 807 "{16}" [X]
  5628. 13
  5629. 8 21
  5630. 6 14
  5631. 7 "PeachText"
  5632. 18 0
  5633. 11 00001677
  5634. 6 17
  5635. 8 22
  5636. 0 14 "{22}"
  5637. 13
  5638. 5 3
  5639. 3 1
  5640. 0 806 "{22}" [X]
  5641. 13
  5642. 8 17
  5643. 0 16 "{17}" "doc"
  5644. 13
  5645. 8 17
  5646. 6 14
  5647. 7 "Enable 4.x"
  5648. 18 0
  5649. 11 00001814
  5650. 6 17
  5651. 8 22
  5652. 0 14 "{22}"
  5653. 13
  5654. 5 3
  5655. 3 1
  5656. 0 806 "{22}" [X]
  5657. 13
  5658. 8 17
  5659. 0 16 "{17}" "WPF"
  5660. 13
  5661. 8 17
  5662. 6 16
  5663. 0 807 "{16}" 8
  5664. 13
  5665. 7 "note.rtf"
  5666. 18 1
  5667. 1 1
  5668. 11 00001953
  5669. 0 16 "{5}" ", " "{17}"
  5670. 13
  5671. 8 5
  5672. 0 16 "{5}" " ; message." "{21}"
  5673. 13
  5674. 8 5
  5675. 6 12
  5676. 5 1
  5677. 3 0
  5678. 8 12
  5679. 0 272 "FilesList" "{11}" "{17}"
  5680. 10 00002209
  5681. 0 272 "FilesList" "{11}" ""
  5682. 5 4
  5683. 5 32
  5684. 3 0
  5685. 0 21 "Unable to save file in format {14}. Cancel Message?" [X] "Ami Pro Mail"
  5686. 13
  5687. 8 23
  5688. 6 23
  5689. 5 6
  5690. 18 0
  5691. 11 00002209
  5692. 5 2
  5693. 8 19
  5694. 10 00002222
  5695. 10 00000800
  5696. 0 6 "[27]"
  5697. 0 34 1 0
  5698. 6 5
  5699. 28 1
  5700. 6 12
  5701. 28 2
  5702. 6 19
  5703. 15
  5704. 9
  5705. 6 3
  5706. 15
  5707. 9
  5708. 14 CheckForFrameInMsg
  5709. 0 32 2
  5710. 0 1313 24
  5711. 13
  5712. 11 00000071
  5713. 5 1
  5714. 15
  5715. 9
  5716. 0 1308
  5717. 13
  5718. 8 1
  5719. 6 1
  5720. 21 2 [X]
  5721. 0 1309 &2
  5722. 5 0
  5723. 0 1044 &2 "Table Text"
  5724. 13
  5725. 18 1
  5726. 11 00000178
  5727. 5 1
  5728. 15
  5729. 9
  5730. 6 0
  5731. 15
  5732. 9
  5733. 14 ShowReplyFrames
  5734. 0 32 2
  5735. 5 5
  5736. 21 1 [X]
  5737. 5 5
  5738. 21 2 [X]
  5739. 0 284 "user,GetActiveWindow,H"
  5740. 13
  5741. 8 3
  5742. 0 284 "user,lockwindowupdate,hh" "{3}"
  5743. 0 797 "ReplyGrp"
  5744. 2 407 1
  5745. 0 797 "Memo"
  5746. 2 407 1
  5747. 0 1041 &1 1 "Reply"
  5748. 0 1041 &1 1 "ReplyHistory"
  5749. 0 1041 &1 1 "Forward"
  5750. 0 1041 &1 1 "ReplyAll"
  5751. 0 1041 &1 1 "ReplyAllHistory"
  5752. 0 1041 &2 1 "Send"
  5753. 0 1041 &2 1 "Compose"
  5754. 0 1041 &2 1 "Hide2"
  5755. 0 1041 &2 1 "Address"
  5756. 0 1041 &2 1 "Attach"
  5757. 5 1
  5758. 8 4
  5759. 5 5
  5760. 6 4
  5761. 18 2
  5762. 12 00000510
  5763. 10 00000585
  5764. 5 1
  5765. 6 4
  5766. 3 0
  5767. 8 4
  5768. 10 00000435
  5769. 6 4
  5770. 22 2
  5771. 0 797 [X]
  5772. 2 408 1
  5773. 6 4
  5774. 22 1
  5775. 0 797 [X]
  5776. 2 407 1
  5777. 10 00000477
  5778. 0 6 "[27]"
  5779. 0 284 "user,lockwindowupdate,hh" ""
  5780. 6 0
  5781. 15
  5782. 9
  5783. 14 ShowSendFrames
  5784. 0 32 2
  5785. 5 5
  5786. 21 11 [X]
  5787. 5 5
  5788. 21 12 [X]
  5789. 6 0
  5790. 11 00000160
  5791. 0 284 "user,GetActiveWindow,H"
  5792. 13
  5793. 8 13
  5794. 0 284 "user,lockwindowupdate,hh" "{13}"
  5795. 0 797 "SendGrp"
  5796. 2 407 1
  5797. 0 797 "Memo"
  5798. 2 407 1
  5799. 0 1041 &11 1 "Reply"
  5800. 0 1041 &11 1 "ReplyHistory"
  5801. 0 1041 &11 1 "Forward"
  5802. 0 1041 &11 1 "ReplyAll"
  5803. 0 1041 &11 1 "ReplyAllHistory"
  5804. 0 1041 &12 1 "Send"
  5805. 0 1041 &12 1 "Compose"
  5806. 0 1041 &12 1 "Hide2"
  5807. 0 1041 &12 1 "Address"
  5808. 0 1041 &12 1 "Attach"
  5809. 5 1
  5810. 8 14
  5811. 5 5
  5812. 6 14
  5813. 18 2
  5814. 12 00000544
  5815. 10 00000740
  5816. 5 1
  5817. 6 14
  5818. 3 0
  5819. 8 14
  5820. 10 00000466
  5821. 6 14
  5822. 22 11
  5823. 0 797 [X]
  5824. 0 795 &2 &3 &4 &5 &6 &7 &8 &9 &10
  5825. 2 408 1
  5826. 6 14
  5827. 22 12
  5828. 0 797 [X]
  5829. 2 421 1
  5830. 2 418 1 "{2}" "{3}" "{4}" "{5}" "{6}" "{7}" "{8}" "{9}" "{10}"
  5831. 2 420 1
  5832. 2 407 1
  5833. 10 00000509
  5834. 0 6 "[27]"
  5835. 6 0
  5836. 11 00000807
  5837. 0 284 "user,lockwindowupdate,hh" ""
  5838. 6 1
  5839. 15
  5840. 9
  5841. 14 GetFileExtension
  5842. 0 32 2
  5843. 5 19
  5844. 21 5 [X]
  5845. 5 19
  5846. 21 6 [X]
  5847. 0 1041 &5 1 "WordStar"
  5848. 0 1041 &5 1 "Word for Windows 2.0"
  5849. 0 1041 &5 1 "WordPerfect 5.x"
  5850. 0 1041 &5 1 "WordPerfect ver 4.2"
  5851. 0 1041 &5 1 "Windows Write"
  5852. 0 1041 &5 1 "Wang (IWP)"
  5853. 0 1041 &5 1 "Samna Word"
  5854. 0 1041 &5 1 "Rich Text Format"
  5855. 0 1041 &5 1 "Professional Write"
  5856. 0 1041 &5 1 "PeachText"
  5857. 0 1041 &5 1 "Office Writer"
  5858. 0 1041 &5 1 "Microsoft Word"
  5859. 0 1041 &5 1 "Exec MemoMaker"
  5860. 0 1041 &5 1 "Enable 4.x"
  5861. 0 1041 &5 1 "E-Mail"
  5862. 0 1041 &5 1 "DisplayWrite"
  5863. 0 1041 &5 1 "DCA/RFT"
  5864. 0 1041 &5 1 "DCA/FFT"
  5865. 0 1041 &5 1 "ASCII"
  5866. 0 1041 &5 1 "AdvanceWrite"
  5867. 6 0
  5868. 5 1
  5869. 18 0
  5870. 11 00000780
  5871. 5 1
  5872. 8 7
  5873. 5 19
  5874. 6 7
  5875. 18 2
  5876. 12 00000734
  5877. 10 00000768
  5878. 5 1
  5879. 6 7
  5880. 3 0
  5881. 8 7
  5882. 10 00000658
  5883. 6 7
  5884. 22 5
  5885. 0 25 [X]
  5886. 10 00000701
  5887. 5 0
  5888. 15
  5889. 9
  5890. 0 1041 &6 1 "WS5"
  5891. 0 1041 &6 1 "DOC"
  5892. 0 1041 &6 1 "WP5"
  5893. 0 1041 &6 1 "WP4"
  5894. 0 1041 &6 1 "WRI"
  5895. 0 1041 &6 1 "WNG"
  5896. 0 1041 &6 1 "SMN"
  5897. 0 1041 &6 1 "RTF"
  5898. 0 1041 &6 1 "PW"
  5899. 0 1041 &6 1 "PEA"
  5900. 0 1041 &6 1 "OFF"
  5901. 0 1041 &6 1 "MSW"
  5902. 0 1041 &6 1 "EMM"
  5903. 0 1041 &6 1 "WPF"
  5904. 0 1041 &6 1 "TXT"
  5905. 0 1041 &6 1 "DW4"
  5906. 0 1041 &6 1 "RFT"
  5907. 0 1041 &6 1 "FFT"
  5908. 0 1041 &6 1 "ASC"
  5909. 0 1041 &6 1 "ADV"
  5910. 5 1
  5911. 8 8
  5912. 7 ""
  5913. 8 10
  5914. 5 0
  5915. 8 11
  5916. 5 -1
  5917. 0 20 "{1}" "{8}" ","
  5918. 13
  5919. 0 805 &9 [X]
  5920. 13
  5921. 18 1
  5922. 11 00001615
  5923. 16 Ltrim "{9}"
  5924. 13
  5925. 8 9
  5926. 5 0
  5927. 8 7
  5928. 5 19
  5929. 5 1
  5930. 3 1
  5931. 6 7
  5932. 18 2
  5933. 12 00001382
  5934. 10 00001582
  5935. 5 1
  5936. 6 7
  5937. 3 0
  5938. 8 7
  5939. 10 00001296
  5940. 6 9
  5941. 6 7
  5942. 5 1
  5943. 3 0
  5944. 22 5
  5945. 18 0
  5946. 11 00001569
  5947. 6 10
  5948. 7 ""
  5949. 18 1
  5950. 11 00001486
  5951. 0 16 "{10}" ", "
  5952. 13
  5953. 8 10
  5954. 6 7
  5955. 5 1
  5956. 3 0
  5957. 22 6
  5958. 0 16 "{10}" [X]
  5959. 13
  5960. 8 10
  5961. 6 11
  5962. 5 1
  5963. 3 0
  5964. 8 11
  5965. 10 00001582
  5966. 10 00001349
  5967. 6 8
  5968. 5 1
  5969. 3 0
  5970. 8 8
  5971. 10 00001192
  5972. 6 10
  5973. 28 2
  5974. 6 11
  5975. 28 3
  5976. 6 4
  5977. 15
  5978. 9
  5979. 14 CheckForFrame
  5980. 0 32 2
  5981. 0 1313 24
  5982. 13
  5983. 11 00000066
  5984. 5 1
  5985. 15
  5986. 9
  5987. 0 1313 86 0
  5988. 13
  5989. 11 00000108
  5990. 5 1
  5991. 15
  5992. 9
  5993. 0 1308
  5994. 13
  5995. 8 1
  5996. 6 1
  5997. 21 2 [X]
  5998. 0 1309 &2
  5999. 5 0
  6000. 0 1044 &2 "Table Text"
  6001. 13
  6002. 18 1
  6003. 11 00000215
  6004. 5 1
  6005. 15
  6006. 9
  6007. 6 0
  6008. 15
  6009. 9
  6010. 14 FindMsgItem
  6011. 0 32 2
  6012. 2 466 1 "{0}" 4002
  6013. 0 6 "[16423]"
  6014. 0 293
  6015. 13
  6016. 8 3
  6017. 0 293
  6018. 13
  6019. 0 20 [X] 2 ","
  6020. 13
  6021. 8 4
  6022. 5 0
  6023. 8 5
  6024. 6 0
  6025. 7 "Subject:"
  6026. 18 1
  6027. 11 00001083
  6028. 5 1
  6029. 2 452 1 4 0 12
  6030. 13
  6031. 18 0
  6032. 11 00001083
  6033. 0 293
  6034. 13
  6035. 0 20 [X] 2 ","
  6036. 13
  6037. 8 6
  6038. 2 466 1 "{0}" 4002
  6039. 0 6 "[16423]"
  6040. 6 3
  6041. 0 293
  6042. 13
  6043. 18 0
  6044. 11 00000324
  6045. 0 6 "[16423]"
  6046. 0 6 "[16423]"
  6047. 0 293
  6048. 13
  6049. 0 20 [X] 2 ","
  6050. 13
  6051. 8 7
  6052. 6 4
  6053. 0 293
  6054. 13
  6055. 0 20 [X] 2 ","
  6056. 13
  6057. 18 1
  6058. 11 00000466
  6059. 7 ""
  6060. 8 8
  6061. 10 00001344
  6062. 5 0
  6063. 15
  6064. 9
  6065. 0 6 "[20520]"
  6066. 0 24
  6067. 13
  6068. 8 8
  6069. 6 0
  6070. 7 "bcc:"
  6071. 18 0
  6072. 11 00000555
  6073. 0 6 "[46]"
  6074. 10 00001344
  6075. 0 6 "[40][36]"
  6076. 0 293
  6077. 13
  6078. 0 20 [X] 2 ","
  6079. 13
  6080. 8 4
  6081. 6 6
  6082. 6 4
  6083. 18 1
  6084. 11 00001073
  6085. 0 6 "[4136]"
  6086. 0 24
  6087. 13
  6088. 8 9
  6089. 0 806 "{9}" 1
  6090. 13
  6091. 0 39 13
  6092. 13
  6093. 18 0
  6094. 0 806 "{9}" 1
  6095. 13
  6096. 0 39 10
  6097. 13
  6098. 18 0
  6099. 1 2
  6100. 11 00000824
  6101. 0 14 "{9}"
  6102. 13
  6103. 5 1
  6104. 3 1
  6105. 0 807 "{9}" [X]
  6106. 13
  6107. 8 9
  6108. 10 00000665
  6109. 6 9
  6110. 7 ""
  6111. 18 1
  6112. 6 0
  6113. 7 "To:"
  6114. 18 0
  6115. 6 0
  6116. 7 "cc:"
  6117. 18 0
  6118. 6 0
  6119. 7 "bcc:"
  6120. 18 0
  6121. 1 2
  6122. 1 2
  6123. 1 1
  6124. 11 00000955
  6125. 0 16 "{8}" ","
  6126. 13
  6127. 8 8
  6128. 6 9
  6129. 7 ""
  6130. 18 1
  6131. 11 00001012
  6132. 0 16 "{8}" "{9}"
  6133. 13
  6134. 8 8
  6135. 0 6 "[36]"
  6136. 0 293
  6137. 13
  6138. 0 20 [X] 2 ","
  6139. 13
  6140. 8 4
  6141. 10 00000607
  6142. 5 1
  6143. 8 5
  6144. 6 5
  6145. 5 0
  6146. 18 0
  6147. 11 00001344
  6148. 2 466 1 "{0}" 4002
  6149. 0 6 "[16423][16423][39]"
  6150. 0 6 "[39]"
  6151. 2 466 1 "subjecttxt" 4003
  6152. 0 6 "[4131]"
  6153. 0 24
  6154. 13
  6155. 8 8
  6156. 6 8
  6157. 7 ""
  6158. 18 1
  6159. 11 00001317
  6160. 2 466 1 "subjecttxt" 4002
  6161. 0 6 "[27][20520]"
  6162. 0 24
  6163. 13
  6164. 8 8
  6165. 2 466 1 "subjecttxt" 4004
  6166. 6 0
  6167. 7 "Subject:"
  6168. 18 1
  6169. 11 00001675
  6170. 6 8
  6171. 8 10
  6172. 16 FindAndReplace &10 "    " " "
  6173. 16 FindAndReplace &10 "</v>" " "
  6174. 16 FindAndReplace &10 "  " " "
  6175. 16 FindAndReplace &10 ", " ","
  6176. 16 FindAndReplace &10 " ," ","
  6177. 6 10
  6178. 8 8
  6179. 0 807 "{8}" 1
  6180. 13
  6181. 7 " "
  6182. 18 0
  6183. 11 00001675
  6184. 0 14 "{8}"
  6185. 13
  6186. 5 1
  6187. 3 1
  6188. 0 806 "{8}" [X]
  6189. 13
  6190. 8 8
  6191. 10 00001565
  6192. 6 8
  6193. 28 1
  6194. 6 2
  6195. 15
  6196. 9
  6197. 14 ReplaceMsgItem
  6198. 0 32 2
  6199. 2 466 1 "{0}" 4002
  6200. 0 6 "[16423][16423][16423][20520][46]"
  6201. 0 6 "{1}"
  6202. 6 2
  6203. 15
  6204. 9
  6205. 14 ComposeReply
  6206. 0 32 2
  6207. 0 296 1
  6208. 2 109 1 "" "" 1
  6209. 0 284 "user,GetActiveWindow,H"
  6210. 13
  6211. 0 284 "user,lockwindowupdate,hh" [X]
  6212. 6 1
  6213. 7 "Forward"
  6214. 18 0
  6215. 11 00000205
  6216. 16 FindMsgItem "Subject:" &6
  6217. 10 00000277
  6218. 16 FindMsgItem "Subject:" &5
  6219. 7 "Re: "
  6220. 8 6
  6221. 0 16 "{6}" "{5}"
  6222. 13
  6223. 8 6
  6224. 16 FindMsgItem "From:" &4
  6225. 16 FindMsgItem "To:" &3
  6226. 16 GetMailUserName &7
  6227. 0 267
  6228. 13
  6229. 8 8
  6230. 6 8
  6231. 7 ""
  6232. 18 0
  6233. 11 00000423
  6234. 0 274 2
  6235. 0 302
  6236. 13
  6237. 8 8
  6238. 0 279 8
  6239. 13
  6240. 8 9
  6241. 2 109 1 "" "" 3
  6242. 0 34 1 0
  6243. 0 279 8
  6244. 13
  6245. 8 9
  6246. 16 Compose ""
  6247. 0 284 "user,GetActiveWindow,H"
  6248. 13
  6249. 0 284 "user,lockwindowupdate,hh" [X]
  6250. 6 1
  6251. 7 "Reply"
  6252. 18 0
  6253. 6 1
  6254. 7 "Forward"
  6255. 18 0
  6256. 1 2
  6257. 11 00001261
  6258. 2 466 1 "Subject:" 4002
  6259. 0 6 "[40][40]"
  6260. 0 6 "[13][13]"
  6261. 0 6 "- - - - - - - - - - - - - - - - - - - - - - - {1} History - - - - - - - - - - - - - - - - - - - - - - -"
  6262. 0 6 "[13][13]"
  6263. 2 102 1 "{8}" 9 ""
  6264. 0 6 "[40][40][36]"
  6265. 0 1039
  6266. 13
  6267. 8 10
  6268. 6 10
  6269. 5 0
  6270. 18 3
  6271. 11 00001261
  6272. 2 466 1 "Date:1" 4002
  6273. 0 6 "[4131]"
  6274. 2 188 1
  6275. 6 10
  6276. 21 11 [X]
  6277. 0 1040 &11
  6278. 5 1
  6279. 8 12
  6280. 6 10
  6281. 6 12
  6282. 18 2
  6283. 12 00001076
  6284. 10 00001261
  6285. 5 1
  6286. 6 12
  6287. 3 0
  6288. 8 12
  6289. 10 00000997
  6290. 6 12
  6291. 22 11
  6292. 0 807 [X] 1
  6293. 13
  6294. 7 "1"
  6295. 18 0
  6296. 6 12
  6297. 22 11
  6298. 0 807 [X] 2
  6299. 13
  6300. 7 "11"
  6301. 18 1
  6302. 1 1
  6303. 11 00001248
  6304. 6 12
  6305. 22 11
  6306. 2 466 1 [X] 4002
  6307. 0 800
  6308. 13
  6309. 11 00001248
  6310. 0 6 "[46]"
  6311. 10 00001041
  6312. 6 0
  6313. 5 0
  6314. 18 0
  6315. 11 00001346
  6316. 2 466 1 "To:" 4002
  6317. 0 6 "[35]"
  6318. 0 6 "{4}"
  6319. 10 00001553
  6320. 6 0
  6321. 5 1
  6322. 18 0
  6323. 11 00001553
  6324. 16 StripPhraseFromList "{7}" "{3}"
  6325. 13
  6326. 8 13
  6327. 6 13
  6328. 7 ""
  6329. 18 1
  6330. 11 00001480
  6331. 0 16 "{13}" ", "
  6332. 13
  6333. 8 13
  6334. 0 16 "{13}" "{4}"
  6335. 13
  6336. 8 13
  6337. 2 466 1 "To:" 4002
  6338. 0 6 "[35]"
  6339. 0 6 "{13}"
  6340. 2 466 1 "Subject:" 4002
  6341. 0 6 "[35]"
  6342. 0 6 "{6}"
  6343. 2 466 1 "Subject:" 4002
  6344. 0 6 "[40]"
  6345. 6 1
  6346. 7 "Forward"
  6347. 18 0
  6348. 11 00001707
  6349. 2 466 1 "To:" 4002
  6350. 0 6 "[35]"
  6351. 6 1
  6352. 7 "Reply"
  6353. 18 0
  6354. 6 1
  6355. 7 "Forward"
  6356. 18 0
  6357. 1 2
  6358. 11 00002018
  6359. 6 9
  6360. 7 "RevOn"
  6361. 18 0
  6362. 11 00002018
  6363. 0 2 "This document was saved while in revision marking mode. Would you like to enter revision marking mode?"
  6364. 13
  6365. 5 1
  6366. 18 0
  6367. 11 00002018
  6368. 5 1
  6369. 2 460 1 1 1
  6370. 13
  6371. 18 0
  6372. 11 00002018
  6373. 2 140 1 "" "" "" "" "" "" "" ""
  6374. 0 284 "user,lockwindowupdate,hh" ""
  6375. 0 296 0
  6376. 6 2
  6377. 15
  6378. 9
  6379. 14 Reply
  6380. 0 32 2
  6381. 16 menupicker
  6382. 13
  6383. 8 1
  6384. 6 1
  6385. 5 0
  6386. 18 0
  6387. 11 00000083
  6388. 6 0
  6389. 15
  6390. 9
  6391. 16 ComposeReply 0 ""
  6392. 6 0
  6393. 15
  6394. 9
  6395. 14 ReplyWithHistory
  6396. 0 32 2
  6397. 16 menupicker
  6398. 13
  6399. 8 1
  6400. 6 1
  6401. 5 0
  6402. 18 0
  6403. 11 00000094
  6404. 6 0
  6405. 15
  6406. 9
  6407. 16 ComposeReply 0 "Reply"
  6408. 6 0
  6409. 15
  6410. 9
  6411. 14 ReplyToAll
  6412. 0 32 2
  6413. 16 menupicker
  6414. 13
  6415. 8 1
  6416. 6 1
  6417. 5 0
  6418. 18 0
  6419. 11 00000088
  6420. 6 0
  6421. 15
  6422. 9
  6423. 16 ComposeReply 1 ""
  6424. 6 0
  6425. 15
  6426. 9
  6427. 14 ReplyToAllHistory
  6428. 0 32 2
  6429. 16 menupicker
  6430. 13
  6431. 8 1
  6432. 6 1
  6433. 5 0
  6434. 18 0
  6435. 11 00000095
  6436. 6 0
  6437. 15
  6438. 9
  6439. 16 ComposeReply 1 "Reply"
  6440. 6 0
  6441. 15
  6442. 9
  6443. 14 Forward
  6444. 0 32 2
  6445. 16 menupicker
  6446. 13
  6447. 8 1
  6448. 6 1
  6449. 5 0
  6450. 18 0
  6451. 11 00000085
  6452. 6 0
  6453. 15
  6454. 9
  6455. 16 ComposeReply 2 "Forward"
  6456. 6 0
  6457. 15
  6458. 9
  6459. 14 Address
  6460. 0 32 2
  6461. 16 menupicker
  6462. 13
  6463. 8 1
  6464. 6 1
  6465. 5 0
  6466. 18 0
  6467. 11 00000085
  6468. 6 0
  6469. 15
  6470. 9
  6471. 0 284 "user,GetActiveWindow,H"
  6472. 13
  6473. 8 10
  6474. 0 284 "user,lockwindowupdate,hh" "{10}"
  6475. 0 293
  6476. 13
  6477. 0 20 [X] 2 ","
  6478. 13
  6479. 8 11
  6480. 2 466 1 "curPos" 4003
  6481. 2 466 1 "To:" 4002
  6482. 0 293
  6483. 13
  6484. 0 20 [X] 2 ","
  6485. 13
  6486. 8 12
  6487. 2 466 1 "cc:" 4002
  6488. 0 293
  6489. 13
  6490. 0 20 [X] 2 ","
  6491. 13
  6492. 8 13
  6493. 2 466 1 "bcc:" 4002
  6494. 0 293
  6495. 13
  6496. 0 20 [X] 2 ","
  6497. 13
  6498. 8 14
  6499. 0 284 "user,lockwindowupdate,hh" ""
  6500. 2 466 1 "curPos" 4002
  6501. 2 466 1 "curPos" 4004
  6502. 6 11
  6503. 6 12
  6504. 18 1
  6505. 6 11
  6506. 6 13
  6507. 18 1
  6508. 6 11
  6509. 6 14
  6510. 18 1
  6511. 1 1
  6512. 1 1
  6513. 11 00000659
  6514. 0 3 "Your cursor must be in the To:, cc:, or bcc: fields to access the Address book."
  6515. 5 0
  6516. 15
  6517. 9
  6518. 16 VariableAllocated "Access"
  6519. 13
  6520. 8 15
  6521. 6 15
  6522. 11 00000757
  6523. 0 265 "Access"
  6524. 13
  6525. 8 8
  6526. 10 00000768
  6527. 7 ""
  6528. 8 8
  6529. 0 798
  6530. 13
  6531. 8 16
  6532. 0 16 "{16}" "amiqkml.dll"
  6533. 13
  6534. 8 16
  6535. 5 0
  6536. 8 17
  6537. 5 255
  6538. 8 7
  6539. 0 297 "{16}" "DisplayAddress" "IHHCCL"
  6540. 13
  6541. 8 18
  6542. 6 18
  6543. 11 00001170
  6544. 16 GetMailHost
  6545. 13
  6546. 0 284 "user,GetActiveWindow,H"
  6547. 13
  6548. 0 284 "{18}" [X] [X] &8 &6 &7
  6549. 13
  6550. 8 17
  6551. 0 298 "{18}"
  6552. 0 284 "user,SetFocus,HH" "{10}"
  6553. 6 15
  6554. 5 0
  6555. 18 0
  6556. 11 00001106
  6557. 0 271 "Access" 1
  6558. 0 264 "Access" "{8}"
  6559. 6 17
  6560. 5 0
  6561. 18 0
  6562. 11 00001170
  6563. 5 0
  6564. 15
  6565. 9
  6566. 0 284 "user,GetActiveWindow,H"
  6567. 13
  6568. 0 284 "user,lockwindowupdate,hh" [X]
  6569. 6 11
  6570. 6 12
  6571. 18 0
  6572. 11 00001333
  6573. 16 FindMsgItem "To:" &9
  6574. 2 466 1 "To:" 4002
  6575. 10 00001500
  6576. 6 11
  6577. 6 13
  6578. 18 0
  6579. 11 00001422
  6580. 16 FindMsgItem "cc:" &9
  6581. 2 466 1 "cc:" 4002
  6582. 10 00001500
  6583. 6 11
  6584. 6 14
  6585. 18 0
  6586. 11 00001500
  6587. 16 FindMsgItem "bcc:" &9
  6588. 2 466 1 "bcc:" 4002
  6589. 0 6 "[35]"
  6590. 0 807 "{9}" 1
  6591. 13
  6592. 7 " "
  6593. 18 0
  6594. 11 00001622
  6595. 0 14 "{9}"
  6596. 13
  6597. 5 1
  6598. 3 1
  6599. 0 806 "{9}" [X]
  6600. 13
  6601. 8 9
  6602. 10 00001512
  6603. 6 9
  6604. 7 ""
  6605. 18 1
  6606. 11 00001715
  6607. 0 807 "{9}" 1
  6608. 13
  6609. 7 ","
  6610. 18 1
  6611. 11 00001706
  6612. 0 6 ","
  6613. 0 6 " "
  6614. 0 6 "{6}"
  6615. 6 11
  6616. 6 14
  6617. 18 0
  6618. 11 00001795
  6619. 2 466 1 "Subject:" 4002
  6620. 10 00001911
  6621. 6 11
  6622. 6 12
  6623. 18 0
  6624. 11 00001859
  6625. 2 466 1 "cc:" 4002
  6626. 10 00001911
  6627. 6 11
  6628. 6 13
  6629. 18 0
  6630. 11 00001911
  6631. 2 466 1 "bcc:" 4002
  6632. 0 6 "[35]"
  6633. 0 284 "user,lockwindowupdate,hh" ""
  6634. 6 0
  6635. 15
  6636. 9
  6637. 14 Options
  6638. 0 32 2
  6639. 0 802
  6640. 13
  6641. 8 1
  6642. 0 31 9500 "Normal"
  6643. 0 31 9500 "Low"
  6644. 0 31 9500 "Urgent"
  6645. 16 GetFileExtension 1 "" "" ""
  6646. 0 47 112 "{1}!helper"
  6647. 0 47 9 "{1}!ActiveControlHelp"
  6648. 0 41 0 "{1}!SetOptions"
  6649. 0 41 26 "{1}!SetOptions"
  6650. 0 41 25 "{1}!SetOptions"
  6651. 0 41 9000 "{1}!SetOptions"
  6652. 0 41 23 "{1}!SetOptions"
  6653. 0 41 20 "{1}!SetOptions"
  6654. 0 41 22 "{1}!SetOptions"
  6655. 0 41 21 "{1}!SetOptions"
  6656. 0 41 9500 "{1}!SetOptions"
  6657. 0 41 24 "{1}!SetOptions"
  6658. 0 41 27 "{1}!SetOptions"
  6659. 0 26 "." "options"
  6660. 13
  6661. 8 2
  6662. 6 2
  6663. 5 1
  6664. 18 1
  6665. 11 00000539
  6666. 5 0
  6667. 15
  6668. 9
  6669. 5 1
  6670. 15
  6671. 9
  6672. 6 0
  6673. 15
  6674. 9
  6675. 14 helper
  6676. 0 32 2
  6677. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  6678. 13
  6679. 8 1
  6680. 0 798
  6681. 13
  6682. 0 16 [X] "amipro.hlp"
  6683. 13
  6684. 8 2
  6685. 5 5006
  6686. 8 3
  6687. 0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
  6688. 6 0
  6689. 15
  6690. 9
  6691. 14 DisplayActiveHelpByID
  6692. 0 32 2
  6693. 16 DisplayActiveControlHelp "{0}" "{1}"
  6694. 6 2
  6695. 15
  6696. 9
  6697. 14 ActiveControlHelp
  6698. 0 32 2
  6699. 0 284 "user,GetFocus,H"
  6700. 13
  6701. 8 3
  6702. 0 284 "user,GetNextDlgTabItem,HHHA" "{0}" "{3}" 0
  6703. 13
  6704. 8 4
  6705. 0 284 "user,SetFocus,HH" "{4}"
  6706. 0 284 "user,GetDlgCtrlID,HH" "{4}"
  6707. 13
  6708. 8 5
  6709. 16 DisplayActiveControlHelp "{0}" "{5}"
  6710. 6 2
  6711. 15
  6712. 9
  6713. 14 DisplayActiveControlHelp
  6714. 0 32 2
  6715. 5 20
  6716. 6 1
  6717. 18 0
  6718. 11 00000202
  6719. 7 "In choosing this option, a copy of your memo will be saved in your Lotus Notes or cc:Mail mailbox."
  6720. 8 3
  6721. 10 00001304
  6722. 10 00001304
  6723. 5 21
  6724. 6 1
  6725. 18 0
  6726. 11 00000357
  6727. 7 "In choosing this option, you will receive mail notification when your message is opened."
  6728. 8 3
  6729. 10 00001304
  6730. 10 00001304
  6731. 5 9500
  6732. 6 1
  6733. 18 0
  6734. 11 00000510
  6735. 7 "In choosing this option, you will set the delivery priority for your E-Mail message."
  6736. 8 3
  6737. 10 00001304
  6738. 10 00001304
  6739. 5 22
  6740. 6 1
  6741. 18 0
  6742. 11 00000707
  6743. 7 "In choosing this option, the contents of your memo will be copied into the memo area of the Lotus Notes or cc:Mail E-Mail message."
  6744. 8 3
  6745. 10 00001304
  6746. 10 00001304
  6747. 5 23
  6748. 6 1
  6749. 18 0
  6750. 11 00000891
  6751. 7 "In choosing this option, your memo is attached as an Ami Pro document into the Lotus Notes or cc:Mail E-Mail message."
  6752. 8 3
  6753. 10 00001304
  6754. 10 00001304
  6755. 5 24
  6756. 6 1
  6757. 18 0
  6758. 11 00001097
  6759. 7 "In choosing this option, your memo is converted to the selected file format(s) and attached into the Lotus Notes or cc:Mail E-Mail message."
  6760. 8 3
  6761. 10 00001304
  6762. 10 00001304
  6763. 5 27
  6764. 6 1
  6765. 18 0
  6766. 11 00001280
  6767. 7 "In choosing this option, you will suggest that the receiver use Revision Marking when editing an Ami Pro attachment."
  6768. 8 3
  6769. 10 00001304
  6770. 10 00001304
  6771. 7 ""
  6772. 8 3
  6773. 10 00001304
  6774. 0 43 "{0}" 29 "{3}"
  6775. 6 2
  6776. 15
  6777. 9
  6778. 14 SetOptions
  6779. 0 32 2
  6780. 0 44 "{0}" 9000
  6781. 13
  6782. 8 5
  6783. 6 1
  6784. 5 9000
  6785. 18 0
  6786. 11 00000225
  6787. 0 284 "user,SendMessage,JHHHJ" "{5}" 1041 0 0
  6788. 13
  6789. 8 6
  6790. 6 6
  6791. 5 0
  6792. 18 3
  6793. 11 00000196
  6794. 0 43 "{0}" 24 1
  6795. 10 00000213
  6796. 0 43 "{0}" 24 0
  6797. 5 0
  6798. 15
  6799. 9
  6800. 6 1
  6801. 5 23
  6802. 18 0
  6803. 11 00000385
  6804. 0 42 "{0}" 23
  6805. 13
  6806. 8 7
  6807. 6 7
  6808. 5 0
  6809. 18 0
  6810. 11 00000325
  6811. 0 43 "{0}" 27 0
  6812. 0 44 "{0}" 27
  6813. 13
  6814. 0 284 "user,EnableWindow,IHI" [X] "{7}"
  6815. 6 1
  6816. 5 20
  6817. 18 0
  6818. 6 1
  6819. 5 22
  6820. 18 0
  6821. 6 1
  6822. 5 23
  6823. 18 0
  6824. 6 1
  6825. 5 24
  6826. 18 0
  6827. 1 2
  6828. 1 2
  6829. 1 2
  6830. 11 00000798
  6831. 0 42 "{0}" 20
  6832. 13
  6833. 8 8
  6834. 0 42 "{0}" 22
  6835. 13
  6836. 8 9
  6837. 0 42 "{0}" 23
  6838. 13
  6839. 8 10
  6840. 0 42 "{0}" 24
  6841. 13
  6842. 8 11
  6843. 6 8
  6844. 5 1
  6845. 18 1
  6846. 6 9
  6847. 5 1
  6848. 18 1
  6849. 6 10
  6850. 5 1
  6851. 18 1
  6852. 6 11
  6853. 5 1
  6854. 18 1
  6855. 1 1
  6856. 1 1
  6857. 1 1
  6858. 11 00000742
  6859. 0 44 "{0}" 26
  6860. 13
  6861. 0 284 "user,EnableWindow,IHI" [X] 0
  6862. 10 00000798
  6863. 0 44 "{0}" 26
  6864. 13
  6865. 0 284 "user,EnableWindow,IHI" [X] 1
  6866. 6 1
  6867. 5 0
  6868. 18 1
  6869. 11 00001438
  6870. 0 42 "{0}" 20
  6871. 13
  6872. 8 12
  6873. 0 42 "{0}" 21
  6874. 13
  6875. 8 13
  6876. 0 42 "{0}" 22
  6877. 13
  6878. 8 14
  6879. 0 42 "{0}" 23
  6880. 13
  6881. 8 15
  6882. 0 42 "{0}" 24
  6883. 13
  6884. 8 16
  6885. 0 42 "{0}" 9500
  6886. 13
  6887. 8 17
  6888. 0 42 "{0}" 27
  6889. 13
  6890. 8 18
  6891. 6 16
  6892. 11 00001438
  6893. 0 284 "user,SendMessage,JHHHJ" "{5}" 1036 0 0
  6894. 13
  6895. 8 19
  6896. 7 ""
  6897. 8 20
  6898. 5 1
  6899. 8 21
  6900. 6 19
  6901. 6 21
  6902. 18 2
  6903. 12 00001182
  6904. 10 00001438
  6905. 5 1
  6906. 6 21
  6907. 3 0
  6908. 8 21
  6909. 10 00001103
  6910. 6 21
  6911. 5 1
  6912. 3 1
  6913. 8 22
  6914. 5 0
  6915. 0 284 "user,SendMessage,JHHHJ" "{5}" 1032 "{22}" 0
  6916. 13
  6917. 18 1
  6918. 11 00001425
  6919. 0 284 "user,sendmessage,HHHHC" "{5}" 1034 "{22}" &4
  6920. 6 20
  6921. 7 ""
  6922. 18 1
  6923. 11 00001396
  6924. 0 16 "{20}" ", "
  6925. 13
  6926. 8 20
  6927. 0 16 "{20}" "{4}"
  6928. 13
  6929. 8 20
  6930. 10 00001147
  6931. 5 25
  6932. 6 1
  6933. 18 0
  6934. 11 00002017
  6935. 6 20
  6936. 7 ""
  6937. 18 0
  6938. 6 16
  6939. 5 1
  6940. 18 0
  6941. 1 1
  6942. 11 00001658
  6943. 0 3 "Attach file(s) is checked, but no formats are selected. Select formats or uncheck Attach file(s)." "Send Mail Options"
  6944. 5 0
  6945. 15
  6946. 9
  6947. 0 287 "Mail" "Log" "{12}" "amipro2.ini"
  6948. 0 287 "Mail" "Receipt" "{13}" "amipro2.ini"
  6949. 0 287 "Mail" "Priority" "{17}" "amipro2.ini"
  6950. 0 287 "Mail" "CopyMessage" "{14}" "amipro2.ini"
  6951. 0 287 "Mail" "AttachAmiPro" "{15}" "amipro2.ini"
  6952. 0 287 "Mail" "AttachOther" "{20}" "amipro2.ini"
  6953. 0 287 "Mail" "RevisionMarking" "{18}" "amipro2.ini"
  6954. 10 00003928
  6955. 10 00003928
  6956. 5 26
  6957. 6 1
  6958. 18 0
  6959. 11 00002666
  6960. 6 20
  6961. 7 ""
  6962. 18 0
  6963. 6 16
  6964. 5 1
  6965. 18 0
  6966. 1 1
  6967. 11 00002237
  6968. 0 3 "Attach file(s) is checked, but no formats are selected. Select formats or uncheck Attach file(s)." "Send Mail Options"
  6969. 5 0
  6970. 15
  6971. 9
  6972. 0 271 "Log" 1
  6973. 0 271 "Receipt" 1
  6974. 0 271 "Priority" 1
  6975. 0 271 "CopyMessage" 1
  6976. 0 271 "AttachAmi" 1
  6977. 0 271 "AttachOtherFormat" 1
  6978. 0 271 "RevMarking" 1
  6979. 0 264 "Log" "{12}"
  6980. 0 264 "Receipt" "{13}"
  6981. 0 264 "Priority" "{17}"
  6982. 0 264 "CopyMessage" "{14}"
  6983. 0 264 "AttachAmi" "{15}"
  6984. 0 264 "AttachOtherFormat" "{20}"
  6985. 0 264 "RevMarking" "{18}"
  6986. 0 44 "{0}" 1
  6987. 13
  6988. 8 23
  6989. 0 284 "user,PostMessage,JHHHJ" "{0}" 273 1 1
  6990. 10 00003928
  6991. 10 00003928
  6992. 0 286 "Mail" "Log" "amipro2.ini"
  6993. 13
  6994. 0 31 20 [X]
  6995. 0 286 "Mail" "Receipt" "amipro2.ini"
  6996. 13
  6997. 0 31 21 [X]
  6998. 0 286 "Mail" "Priority" "amipro2.ini"
  6999. 13
  7000. 8 17
  7001. 0 44 "{0}" 9500
  7002. 13
  7003. 0 284 "user,sendmessage,HHHHC" [X] 1037 -1 "{17}"
  7004. 0 286 "Mail" "CopyMessage" "amipro2.ini"
  7005. 13
  7006. 8 24
  7007. 6 24
  7008. 7 ""
  7009. 18 0
  7010. 11 00002987
  7011. 5 1
  7012. 8 24
  7013. 0 286 "Mail" "AttachAmiPro" "amipro2.ini"
  7014. 13
  7015. 8 25
  7016. 6 25
  7017. 7 ""
  7018. 18 0
  7019. 11 00003082
  7020. 5 1
  7021. 8 25
  7022. 0 286 "Mail" "RevisionMarking" "amipro2.ini"
  7023. 13
  7024. 0 31 27 [X]
  7025. 6 25
  7026. 5 1
  7027. 18 1
  7028. 6 1
  7029. 7 ""
  7030. 18 0
  7031. 1 1
  7032. 11 00003253
  7033. 0 44 "{0}" 27
  7034. 13
  7035. 0 284 "user,EnableWindow,IHI" [X] 0
  7036. 0 31 22 "{24}"
  7037. 0 31 23 "{25}"
  7038. 0 286 "Mail" "AttachOther" "amipro2.ini"
  7039. 13
  7040. 8 26
  7041. 6 26
  7042. 7 ""
  7043. 18 1
  7044. 11 00003875
  7045. 5 1
  7046. 8 27
  7047. 0 31 24 "1"
  7048. 5 -1
  7049. 0 20 "{26}" "{27}" ","
  7050. 13
  7051. 0 805 &28 [X]
  7052. 13
  7053. 18 1
  7054. 11 00003875
  7055. 16 Ltrim "{28}"
  7056. 13
  7057. 8 28
  7058. 0 284 "user,SendMessage,JHHHJ" "{5}" 1036 0 0
  7059. 13
  7060. 8 19
  7061. 5 1
  7062. 8 21
  7063. 6 19
  7064. 6 21
  7065. 18 2
  7066. 12 00003638
  7067. 10 00003840
  7068. 5 1
  7069. 6 21
  7070. 3 0
  7071. 8 21
  7072. 10 00003559
  7073. 6 21
  7074. 5 1
  7075. 3 1
  7076. 8 22
  7077. 0 284 "user,sendmessage,HHHHC" "{5}" 1034 "{22}" &4
  7078. 6 4
  7079. 6 28
  7080. 18 0
  7081. 11 00003827
  7082. 0 44 "{0}" 9000
  7083. 13
  7084. 0 284 "user,SendMessage,JHHHJ" [X] 1030 1 "{22}"
  7085. 10 00003840
  7086. 10 00003603
  7087. 6 27
  7088. 5 1
  7089. 3 0
  7090. 8 27
  7091. 10 00003392
  7092. 6 1
  7093. 5 0
  7094. 18 0
  7095. 11 00003915
  7096. 5 20
  7097. 8 1
  7098. 10 00003928
  7099. 16 DisplayActiveHelpByID "{0}" "{1}"
  7100. 6 3
  7101. 15
  7102. 9
  7103. 14 FindIt
  7104. 0 32 2
  7105. 2 488 1 0 0 8196 "{0}" ""
  7106. 13
  7107. 8 4
  7108. 6 4
  7109. 5 1
  7110. 18 0
  7111. 11 00000264
  7112. 0 6 "[16422]"
  7113. 0 6 "[16424]"
  7114. 0 37
  7115. 13
  7116. 8 5
  7117. 16 StripDown "{0}" "{5}"
  7118. 13
  7119. 8 5
  7120. 6 5
  7121. 28 1
  7122. 0 293
  7123. 13
  7124. 0 20 [X] 2 ","
  7125. 13
  7126. 8 6
  7127. 6 6
  7128. 27 2
  7129. 18 5
  7130. 11 00000252
  7131. 6 6
  7132. 28 2
  7133. 5 1
  7134. 15
  7135. 9
  7136. 5 0
  7137. 15
  7138. 9
  7139. 6 3
  7140. 15
  7141. 9
  7142. 14 StripDown
  7143. 0 32 2
  7144. 0 14 "{0}"
  7145. 13
  7146. 8 3
  7147. 0 14 "{1}"
  7148. 13
  7149. 8 4
  7150. 6 4
  7151. 6 3
  7152. 3 1
  7153. 0 807 "{1}" [X]
  7154. 13
  7155. 8 5
  7156. 5 1
  7157. 8 6
  7158. 0 14 "{5}"
  7159. 13
  7160. 6 6
  7161. 18 2
  7162. 12 00000201
  7163. 10 00000365
  7164. 5 1
  7165. 6 6
  7166. 3 0
  7167. 8 6
  7168. 10 00000115
  7169. 0 806 "{5}" 1
  7170. 13
  7171. 8 7
  7172. 5 0
  7173. 0 808 0 "     :" "{7}"
  7174. 13
  7175. 18 0
  7176. 11 00000300
  7177. 10 00000365
  7178. 10 00000352
  7179. 0 14 "{5}"
  7180. 13
  7181. 5 1
  7182. 3 1
  7183. 0 807 "{5}" [X]
  7184. 13
  7185. 8 5
  7186. 10 00000168
  7187. 6 5
  7188. 15
  7189. 9
  7190. 6 2
  7191. 15
  7192. 9
  7193. 14 StripPhraseFromList
  7194. 0 32 2
  7195. 5 1
  7196. 8 3
  7197. 7 ""
  7198. 8 4
  7199. 0 20 "{1}" "{3}" ","
  7200. 13
  7201. 8 5
  7202. 6 5
  7203. 5 -1
  7204. 18 1
  7205. 11 00000583
  7206. 16 Ltrim "{5}"
  7207. 13
  7208. 8 5
  7209. 0 807 "{5}" 1
  7210. 13
  7211. 7 " "
  7212. 18 0
  7213. 11 00000249
  7214. 0 14 "{5}"
  7215. 13
  7216. 5 1
  7217. 3 1
  7218. 0 806 "{5}" [X]
  7219. 13
  7220. 8 5
  7221. 10 00000139
  7222. 0 807 "{0}" 1
  7223. 13
  7224. 7 " "
  7225. 18 0
  7226. 11 00000359
  7227. 0 14 "{0}"
  7228. 13
  7229. 5 1
  7230. 3 1
  7231. 0 806 "{0}" [X]
  7232. 13
  7233. 8 0
  7234. 10 00000249
  7235. 0 284 "user,lstrcmpi,ICC" "{5}" "{0}"
  7236. 13
  7237. 8 6
  7238. 6 6
  7239. 5 0
  7240. 18 1
  7241. 11 00000519
  7242. 6 4
  7243. 7 ""
  7244. 18 1
  7245. 11 00000492
  7246. 0 16 "{4}" ", "
  7247. 13
  7248. 8 4
  7249. 0 16 "{4}" "{5}"
  7250. 13
  7251. 8 4
  7252. 6 3
  7253. 5 1
  7254. 3 0
  7255. 8 3
  7256. 0 20 "{1}" "{3}" ","
  7257. 13
  7258. 8 5
  7259. 10 00000084
  7260. 6 4
  7261. 15
  7262. 9
  7263. 6 2
  7264. 15
  7265. 9
  7266. 14 LTrim
  7267. 0 32 2
  7268. 6 0
  7269. 7 " "
  7270. 18 0
  7271. 11 00000061
  7272. 6 1
  7273. 15
  7274. 9
  7275. 0 806 "{0}" 1
  7276. 13
  7277. 7 " "
  7278. 18 0
  7279. 11 00000171
  7280. 0 14 "{0}"
  7281. 13
  7282. 5 1
  7283. 3 1
  7284. 0 807 "{0}" [X]
  7285. 13
  7286. 8 0
  7287. 10 00000061
  7288. 6 0
  7289. 15
  7290. 9
  7291. 6 1
  7292. 15
  7293. 9
  7294. 14 VariableAllocated
  7295. 0 32 2
  7296. 0 299
  7297. 13
  7298. 8 2
  7299. 6 2
  7300. 5 0
  7301. 18 3
  7302. 11 00000169
  7303. 6 2
  7304. 21 3 [X]
  7305. 0 300 &3
  7306. 5 0
  7307. 0 1044 &3 "{0}"
  7308. 13
  7309. 18 0
  7310. 11 00000157
  7311. 5 0
  7312. 15
  7313. 9
  7314. 5 1
  7315. 15
  7316. 9
  7317. 5 0
  7318. 15
  7319. 9
  7320. 6 1
  7321. 15
  7322. 9
  7323. 14 DarkModeMacro
  7324. 0 32 2
  7325. 5 4
  7326. 21 3 [X]
  7327. 0 17 "{0}"
  7328. 13
  7329. 8 0
  7330. 7 "on"
  7331. 6 0
  7332. 18 0
  7333. 11 00000200
  7334. 0 1313 267
  7335. 13
  7336. 28 1
  7337. 2 466 1 "DarkMode" 4003
  7338. 0 284 "user,SendMessage,JHHHJ" "{1}" 11 0 ""
  7339. 10 00000428
  7340. 7 "off"
  7341. 6 0
  7342. 18 0
  7343. 11 00000428
  7344. 0 284 "user,SendMessage,JHHHJ" "{1}" 11 1 ""
  7345. 2 466 1 "DarkMode" 4002
  7346. 2 466 1 "DarkMode" 4004
  7347. 0 284 "User,GetClientRect,HHN" "{1}" &3
  7348. 0 284 "user,InvalidateRect,HHFH" "{1}" &3 1
  7349. 10 00000428
  7350. 6 2
  7351. 15
  7352. 9
  7353. 14 attach
  7354. 0 32 2
  7355. 16 menupicker
  7356. 13
  7357. 8 1
  7358. 6 1
  7359. 5 0
  7360. 18 0
  7361. 11 00000084
  7362. 6 0
  7363. 15
  7364. 9
  7365. 5 0
  7366. 16 VariableAllocated "Files"
  7367. 13
  7368. 18 0
  7369. 11 00000177
  7370. 0 271 "Files" 1
  7371. 0 264 "Files" ""
  7372. 0 802
  7373. 13
  7374. 8 2
  7375. 0 268
  7376. 13
  7377. 8 3
  7378. 0 31 9001 "{3}"
  7379. 0 47 112 "{2}!helper"
  7380. 0 41 21 "{2}!MoveIt"
  7381. 0 41 22 "{2}!MoveIt"
  7382. 0 41 20 "{2}!MoveIt"
  7383. 0 41 0 "{2}!MoveIt"
  7384. 0 26 "." "attach"
  7385. 13
  7386. 8 4
  7387. 6 0
  7388. 15
  7389. 9
  7390. 14 MoveIt
  7391. 0 32 2
  7392. 0 44 "{0}" 9002
  7393. 13
  7394. 8 4
  7395. 0 44 "{0}" 9001
  7396. 13
  7397. 8 5
  7398. 5 21
  7399. 6 1
  7400. 18 0
  7401. 11 00000342
  7402. 0 42 "{0}" 9001
  7403. 13
  7404. 8 8
  7405. 0 808 0 "{8}" "]"
  7406. 13
  7407. 5 0
  7408. 18 1
  7409. 11 00000186
  7410. 6 3
  7411. 15
  7412. 9
  7413. 0 290
  7414. 13
  7415. 0 16 [X] "{8}"
  7416. 13
  7417. 0 17 [X]
  7418. 13
  7419. 8 9
  7420. 5 -1
  7421. 0 1036 "{4}" 1040 -1 "{9}"
  7422. 13
  7423. 18 0
  7424. 11 00000316
  7425. 0 43 "{0}" 9002 "{9}"
  7426. 10 00001156
  7427. 10 00001156
  7428. 5 22
  7429. 6 1
  7430. 18 0
  7431. 11 00000469
  7432. 0 1036 "{4}" 1033 0 0
  7433. 13
  7434. 8 10
  7435. 0 1036 "{4}" 1027 "{10}" 0
  7436. 13
  7437. 8 11
  7438. 10 00001156
  7439. 10 00001156
  7440. 5 20
  7441. 6 1
  7442. 18 0
  7443. 11 00000936
  7444. 0 1036 "{4}" 1036 0 0
  7445. 13
  7446. 8 12
  7447. 5 1
  7448. 8 13
  7449. 6 12
  7450. 6 13
  7451. 18 2
  7452. 12 00000622
  7453. 10 00000766
  7454. 5 1
  7455. 6 13
  7456. 3 0
  7457. 8 13
  7458. 10 00000543
  7459. 6 13
  7460. 5 1
  7461. 3 1
  7462. 0 1036 "{4}" 1031 [X] 0
  7463. 0 42 "{0}" 9002
  7464. 13
  7465. 8 6
  7466. 6 6
  7467. 7 ""
  7468. 18 1
  7469. 11 00000753
  7470. 0 16 "{14}" ", " "{6}"
  7471. 13
  7472. 8 14
  7473. 10 00000587
  7474. 6 14
  7475. 7 ""
  7476. 18 1
  7477. 11 00000852
  7478. 0 14 "{14}"
  7479. 13
  7480. 5 2
  7481. 3 1
  7482. 0 807 "{14}" [X]
  7483. 13
  7484. 8 14
  7485. 0 264 "Files" "{14}"
  7486. 0 284 "user,EndDialog,HHI" "{0}" 0
  7487. 10 00001156
  7488. 10 00001156
  7489. 0 265 "Files"
  7490. 13
  7491. 8 15
  7492. 5 1
  7493. 8 11
  7494. 5 -1
  7495. 0 20 "{15}" "{11}" ","
  7496. 13
  7497. 0 805 &7 [X]
  7498. 13
  7499. 18 1
  7500. 11 00001156
  7501. 16 Ltrim "{7}"
  7502. 13
  7503. 8 7
  7504. 6 7
  7505. 7 ""
  7506. 18 1
  7507. 11 00001121
  7508. 0 43 "{0}" 9002 "{7}"
  7509. 6 11
  7510. 5 1
  7511. 3 0
  7512. 8 11
  7513. 10 00000972
  7514. 6 3
  7515. 15
  7516. 9
  7517. 14 SetUpReply
  7518. 0 32 2
  7519. 16 FullMenus "replymenus"
  7520. 13
  7521. 8 1
  7522. 6 1
  7523. 5 0
  7524. 18 0
  7525. 11 00000100
  7526. 6 0
  7527. 15
  7528. 9
  7529. 2 203 1
  7530. 16 ShowReplyFrames
  7531. 2 109 1 "" "" 3
  7532. 6 0
  7533. 15
  7534. 9
  7535. 14 ExtractFileName
  7536. 0 32 2
  7537. 0 271 "qkmail" 1
  7538. 0 14 "{0}"
  7539. 13
  7540. 8 3
  7541. 7 "\"
  7542. 0 15 "{0}" "{3}" 1
  7543. 13
  7544. 0 805 &2 [X]
  7545. 13
  7546. 18 1
  7547. 11 00000168
  7548. 6 3
  7549. 5 1
  7550. 3 1
  7551. 8 3
  7552. 10 00000067
  7553. 0 14 "{0}"
  7554. 13
  7555. 6 3
  7556. 3 1
  7557. 0 807 "{0}" [X]
  7558. 13
  7559. 8 0
  7560. 0 264 "qkmail" "{0}"
  7561. 6 1
  7562. 15
  7563. 9
  7564. 14 FindAndReplace
  7565. 0 32 2
  7566. 5 0
  7567. 8 5
  7568. 5 0
  7569. 0 808 "{5}" "{0}" "{1}"
  7570. 13
  7571. 0 805 &4 [X]
  7572. 13
  7573. 18 1
  7574. 11 00000279
  7575. 6 4
  7576. 5 1
  7577. 3 1
  7578. 0 806 "{0}" [X]
  7579. 13
  7580. 8 6
  7581. 0 14 "{0}"
  7582. 13
  7583. 6 4
  7584. 0 14 "{1}"
  7585. 13
  7586. 5 1
  7587. 3 1
  7588. 3 0
  7589. 3 1
  7590. 0 807 "{0}" [X]
  7591. 13
  7592. 8 7
  7593. 0 16 "{6}" "{2}" "{7}"
  7594. 13
  7595. 28 0
  7596. 10 00000037
  7597. 6 3
  7598. 15
  7599. 9
  7600. 14 TrimLeadingTrailingSingles
  7601. 0 32 2
  7602. 0 806 "{0}" 1
  7603. 13
  7604. 6 1
  7605. 18 0
  7606. 11 00000134
  7607. 0 14 "{0}"
  7608. 13
  7609. 5 1
  7610. 3 1
  7611. 0 807 "{0}" [X]
  7612. 13
  7613. 8 0
  7614. 0 807 "{0}" 1
  7615. 13
  7616. 6 1
  7617. 18 0
  7618. 11 00000230
  7619. 0 14 "{0}"
  7620. 13
  7621. 5 1
  7622. 3 1
  7623. 0 806 "{0}" [X]
  7624. 13
  7625. 28 0
  7626. 6 2
  7627. 15
  7628. 9
  7629. DIALOG Attach
  7630. -2134376448 9 49 56 260 102 "" "AmiDialog" "Attach Files" 
  7631. FONT 8 "Helv" 
  7632. 218 3 40 14 20 1342373889 "button" "OK" 0 
  7633. 218 19 40 14 2 1342373888 "button" "Cancel" 0 
  7634. 3 14 60 80 9001 1352728579 "listbox" "" 0 
  7635. 114 14 98 80 9002 1352728577 "listbox" "" 0 
  7636. 66 32 43 14 21 1342373888 "button" "Attach >>" 0 
  7637. 66 50 43 14 22 1342373888 "button" "<< Remove" 0 
  7638. 3 2 82 10 7999 1342177280 "static" "text" 0 
  7639. 112 2 56 10 1001 1342177280 "static" "Attachments:" 0 
  7640. 238 182 10 14 1 1342373888 "button" "&z" 0 
  7641. DIALOG OPTIONS
  7642. -2134376448 15 26 24 201 186 "" "AmiDialog" "Send Mail Options" 
  7643. FONT 8 "MS Sans Serif" 
  7644. 16 30 26 10 1000 1342177280 "static" "Priority:" 0 
  7645. 5 2 80 12 20 1342242819 "button" "Log (Save) message" 0 
  7646. 5 15 111 12 21 1342242819 "button" "Return receipt requested" 0 
  7647. 44 28 52 40 9500 1344339971 "combobox" "" 0 
  7648. 5 43 132 12 22 1342242819 "button" "Display memo text in E-mail message" 0 
  7649. 5 56 180 12 23 1342242819 "button" "Send this memo as a Lotus Ami Pro attachment" 0 
  7650. 5 69 190 12 24 1342242819 "button" "Send this memo as an attachment in different format(s):" 0 
  7651. 17 83 126 48 9000 1352728585 "listbox" "" 0 
  7652. 5 133 160 12 27 1342242819 "button" "Suggest that receiver use Revision Marking" 0 
  7653. 5 147 191 36 28 1342177287 "static" "" 0 
  7654. 7 154 187 24 29 1342177280 "static" "" 0 
  7655. 145 6 20 14 1 1073938433 "button" "OK" 0 
  7656. 145 6 50 14 26 1342373889 "button" "OK" 0 
  7657. 145 22 50 14 2 1342373888 "button" "Cancel" 0 
  7658. 145 38 50 14 25 1342373888 "button" "Make Default" 0 
  7659. 00116436
  7660.