home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS009.DSK / QKSEND.SMM < prev    next >
INI File  |  1993-08-11  |  47KB  |  3,150 lines

  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     QMS-PS 810
  13. [port]
  14.     LPT2:
  15. [lang]
  16.     1
  17. [desc]
  18.     Compose Lotus Mail message in Ami Pro
  19.     
  20.     
  21.     
  22.     
  23.     745092556
  24.     45
  25.     729389285
  26.     2174
  27.     15
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Body Text
  57.     2
  58.     [fnt]
  59.         Times New Roman
  60.         240
  61.         0
  62.         49152
  63.     [algn]
  64.         1
  65.         1
  66.         0
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         2
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         280
  103.         1
  104.         2
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     0
  110.     0
  111. [tag]
  112.     Body Single
  113.     3
  114.     [fnt]
  115.         Times New Roman
  116.         240
  117.         0
  118.         49152
  119.     [algn]
  120.         1
  121.         1
  122.         0
  123.         0
  124.         0
  125.     [spc]
  126.         33
  127.         273
  128.         1
  129.         0
  130.         0
  131.         1
  132.         100
  133.     [brk]
  134.         4
  135.     [line]
  136.         8
  137.         0
  138.         1
  139.         0
  140.         1
  141.         1
  142.         1
  143.         10
  144.         10
  145.         1
  146.     [spec]
  147.         0
  148.         0
  149.         
  150.         0
  151.         1
  152.         1
  153.         0
  154.         0
  155.         0
  156.         0
  157.     [nfmt]
  158.         280
  159.         1
  160.         2
  161.         .
  162.         ,
  163.         $
  164.     Body Single
  165.     0
  166.     0
  167. [tag]
  168.     Bullet
  169.     4
  170.     [fnt]
  171.         Times New Roman
  172.         240
  173.         0
  174.         49152
  175.     [algn]
  176.         1
  177.         1
  178.         0
  179.         288
  180.         288
  181.     [spc]
  182.         33
  183.         273
  184.         1
  185.         0
  186.         0
  187.         1
  188.         100
  189.     [brk]
  190.         4
  191.     [line]
  192.         8
  193.         0
  194.         1
  195.         0
  196.         1
  197.         1
  198.         1
  199.         10
  200.         10
  201.         1
  202.     [spec]
  203.         0
  204.         0
  205.         <*0>
  206.         360
  207.         1
  208.         1
  209.         0
  210.         0
  211.         0
  212.         0
  213.     [nfmt]
  214.         272
  215.         1
  216.         2
  217.         .
  218.         ,
  219.         $
  220.     Bullet
  221.     0
  222.     0
  223. [tag]
  224.     Bullet 1
  225.     5
  226.     [fnt]
  227.         Times New Roman
  228.         240
  229.         0
  230.         49152
  231.     [algn]
  232.         1
  233.         1
  234.         288
  235.         288
  236.         288
  237.     [spc]
  238.         33
  239.         273
  240.         1
  241.         0
  242.         0
  243.         1
  244.         100
  245.     [brk]
  246.         4
  247.     [line]
  248.         8
  249.         0
  250.         1
  251.         0
  252.         1
  253.         1
  254.         1
  255.         10
  256.         10
  257.         1
  258.     [spec]
  259.         0
  260.         0
  261.         <*5>
  262.         0
  263.         1
  264.         1
  265.         0
  266.         0
  267.         0
  268.         0
  269.     [nfmt]
  270.         280
  271.         1
  272.         2
  273.         .
  274.         ,
  275.         $
  276.     Bullet 1
  277.     0
  278.     0
  279. [tag]
  280.     Number List
  281.     6
  282.     [fnt]
  283.         Times New Roman
  284.         240
  285.         0
  286.         49152
  287.     [algn]
  288.         1
  289.         1
  290.         360
  291.         360
  292.         360
  293.     [spc]
  294.         33
  295.         273
  296.         1
  297.         0
  298.         0
  299.         1
  300.         100
  301.     [brk]
  302.         4
  303.     [line]
  304.         8
  305.         0
  306.         1
  307.         0
  308.         1
  309.         1
  310.         1
  311.         10
  312.         10
  313.         1
  314.     [spec]
  315.         0
  316.         0
  317.         <*:>.
  318.         360
  319.         1
  320.         1
  321.         0
  322.         16
  323.         0
  324.         0
  325.     [nfmt]
  326.         272
  327.         1
  328.         2
  329.         .
  330.         ,
  331.         $
  332.     Number List
  333.     0
  334.     0
  335. [tag]
  336.     Subhead
  337.     7
  338.     [fnt]
  339.         Times New Roman
  340.         240
  341.         0
  342.         49155
  343.     [algn]
  344.         1
  345.         1
  346.         0
  347.         0
  348.         0
  349.     [spc]
  350.         33
  351.         273
  352.         1
  353.         72
  354.         72
  355.         1
  356.         100
  357.     [brk]
  358.         4
  359.     [line]
  360.         8
  361.         0
  362.         1
  363.         0
  364.         1
  365.         1
  366.         1
  367.         10
  368.         10
  369.         1
  370.     [spec]
  371.         0
  372.         1
  373.         
  374.         0
  375.         1
  376.         1
  377.         0
  378.         0
  379.         0
  380.         0
  381.     [nfmt]
  382.         272
  383.         1
  384.         2
  385.         .
  386.         ,
  387.         $
  388.     Subhead
  389.     0
  390.     0
  391. [tag]
  392.     Title
  393.     8
  394.     [fnt]
  395.         Arial
  396.         360
  397.         0
  398.         16385
  399.     [algn]
  400.         4
  401.         1
  402.         0
  403.         0
  404.         0
  405.     [spc]
  406.         33
  407.         446
  408.         1
  409.         144
  410.         72
  411.         1
  412.         100
  413.     [brk]
  414.         16
  415.     [line]
  416.         8
  417.         0
  418.         1
  419.         0
  420.         1
  421.         1
  422.         1
  423.         10
  424.         10
  425.         1
  426.     [spec]
  427.         0
  428.         0
  429.         
  430.         0
  431.         1
  432.         1
  433.         0
  434.         0
  435.         0
  436.         0
  437.     [nfmt]
  438.         272
  439.         1
  440.         2
  441.         .
  442.         ,
  443.         $
  444.     Title
  445.     0
  446.     0
  447. [tag]
  448.     Header
  449.     9
  450.     [fnt]
  451.         Times New Roman
  452.         240
  453.         0
  454.         49152
  455.     [algn]
  456.         1
  457.         1
  458.         0
  459.         0
  460.         0
  461.     [spc]
  462.         33
  463.         273
  464.         1
  465.         0
  466.         0
  467.         1
  468.         100
  469.     [brk]
  470.         4
  471.     [line]
  472.         8
  473.         0
  474.         1
  475.         0
  476.         1
  477.         1
  478.         1
  479.         10
  480.         10
  481.         1
  482.     [spec]
  483.         0
  484.         0
  485.         
  486.         0
  487.         1
  488.         1
  489.         0
  490.         0
  491.         0
  492.         0
  493.     [nfmt]
  494.         280
  495.         1
  496.         2
  497.         .
  498.         ,
  499.         $
  500.     Header
  501.     0
  502.     0
  503. [tag]
  504.     Footer
  505.     11
  506.     [fnt]
  507.         Times New Roman
  508.         240
  509.         0
  510.         49152
  511.     [algn]
  512.         1
  513.         1
  514.         0
  515.         0
  516.         0
  517.     [spc]
  518.         33
  519.         273
  520.         1
  521.         0
  522.         0
  523.         1
  524.         100
  525.     [brk]
  526.         4
  527.     [line]
  528.         8
  529.         0
  530.         1
  531.         0
  532.         1
  533.         1
  534.         1
  535.         10
  536.         10
  537.         1
  538.     [spec]
  539.         0
  540.         0
  541.         
  542.         0
  543.         1
  544.         1
  545.         0
  546.         0
  547.         0
  548.         0
  549.     [nfmt]
  550.         280
  551.         1
  552.         2
  553.         .
  554.         ,
  555.         $
  556.     Footer
  557.     0
  558.     0
  559. [lay]
  560.     Standard
  561.     516
  562.     [rght]
  563.         16833
  564.         11908
  565.         1
  566.         1440
  567.         1440
  568.         1
  569.         1440
  570.         1440
  571.         0
  572.         1
  573.         0
  574.         1
  575.         0
  576.         2
  577.         1
  578.         1440
  579.         10465
  580.         12
  581.         1
  582.         720
  583.         1
  584.         1440
  585.         1
  586.         2160
  587.         1
  588.         2880
  589.         1
  590.         3600
  591.         1
  592.         4320
  593.         1
  594.         5040
  595.         1
  596.         5760
  597.         1
  598.         6480
  599.         1
  600.         7200
  601.         1
  602.         7920
  603.         1
  604.         8640
  605.     [hrght]
  606.     [lyfrm]
  607.         1
  608.         11200
  609.         0
  610.         0
  611.         11908
  612.         1440
  613.         0
  614.         1
  615.         3
  616.         1 0 0 0 0 0 0
  617.         0
  618.         0
  619.         1
  620.     [frmlay]
  621.         1440
  622.         11908
  623.         1
  624.         1440
  625.         72
  626.         1
  627.         792
  628.         1440
  629.         0
  630.         1
  631.         0
  632.         1
  633.         1
  634.         0
  635.         1
  636.         1440
  637.         10465
  638.         2
  639.         2
  640.         4680
  641.         3
  642.         9360
  643.     [txt]
  644. >
  645.     [frght]
  646.     [lyfrm]
  647.         1
  648.         13248
  649.         0
  650.         15393
  651.         11908
  652.         16833
  653.         0
  654.         1
  655.         3
  656.         1 0 0 0 0 0 0
  657.         0
  658.         0
  659.         2
  660.     [frmlay]
  661.         16833
  662.         11908
  663.         1
  664.         1440
  665.         792
  666.         1
  667.         15465
  668.         1440
  669.         0
  670.         1
  671.         0
  672.         1
  673.         1
  674.         0
  675.         1
  676.         1440
  677.         10465
  678.         2
  679.         2
  680.         4680
  681.         3
  682.         9360
  683.     [txt]
  684. >
  685. [elay]
  686. [l1]
  687.     0
  688. [pg]
  689.     15
  690.     46 86 32 32 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
  691.     92 0 36 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
  692.     140 0 34 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
  693.     188 0 13 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
  694.     237 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
  695.     284 0 20 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
  696.     332 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
  697.     379 0 21 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
  698.     427 0 5 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
  699.     475 0 88 0 3 0 0 65535 30 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  700.     520 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
  701.     568 0 34 0 3 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  702.     616 0 13 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
  703.     664 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
  704.     691 0 0 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
  705. [edoc]
  706. <:#284,9025>'To:        
  707.  
  708. <:#284,9025>'Subject:    
  709.  
  710. <:#284,9025>'CC:    
  711.  
  712. <:#284,9025>'Attachments:        
  713.  
  714. <:#284,9025> 'Macro to automatically create a notes mail item based on the info in an Ami Pro doc.
  715.  
  716. <:#284,9025>' Peyton McManus
  717.  
  718. <:#284,9025>' Lotus WPD 
  719.  
  720. <:#284,9025>' Feb. 10 1992
  721.  
  722. <:#284,9025>
  723.  
  724. <:#284,9025>
  725.  
  726. <:#284,9025>
  727.  
  728. @Subhead@<:#284,9025>' Defines
  729.  
  730. <:#284,9025>Define         NotesDDE(Command    )    DDEExecute(id, %1)
  731.  
  732. <:#284,9025>Define        MergeOpts()            GetInfo(165)
  733.  
  734. <:#284,9025>Define        Buffer        75
  735.  
  736. @Outline2@<:#284,9025>Define        Move        21
  737.  
  738. @Outline2@<:#284,9025>Define        Remove    22
  739.  
  740. @Outline2@<:#284,9025>Define        OK        20
  741.  
  742. @Outline2@<:#284,9025>Define        Init        0
  743.  
  744. @Outline2@<:#284,9025>Define        Frame        0
  745.  
  746. @Outline2@<:#284,9025>
  747.  
  748. <:#284,9025>Define        AnyFootNotesFlag()            GetInfo(24)
  749.  
  750. <:#284,9025>Define        GETGOTOITEMLEGALFLAG()    GetInfo(86, %1)
  751.  
  752. <:#284,9025>
  753.  
  754. @Outline2@<:#568,9025>Define SendMessage(hwnd, message, wparam, lparao) dllcall("user,SendMessage,JHHHJ", %1, %2, %3, %4)
  755.  
  756. Define    AnsiToOem(Char, Char)    DllCall("Keyboard.drv,AnsiToOem,HCC",%1,%2)
  757.  
  758. @Outline2@Define GetActiveWindow() DllCall("user,GetActiveWindow,H")
  759.  
  760. @Outline2@<:#284,9025>Define InvalidateRect(hwnd, stuff, H) DllCall("user,InvalidateRect,HHFH", %1, %2, %3)
  761.  
  762. <:#284,9025>DEFINE GetClientRect()          DLLCALL("User,GetClientRect,HHN",%1,%2)
  763.  
  764. <:#284,9025>define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)
  765.  
  766. @Outline2@<:#284,9025>Define Getfocus() DllCall("user,GetFocus,H")
  767.  
  768. @Outline2@<:#284,9025>define WM_USER        1024
  769.  
  770. @Outline2@<:#284,9025>define LB_GETCURSEL    1033
  771.  
  772. @Outline2@<:#284,9025>define LB_DELETESTRING    1027
  773.  
  774. @Outline2@<:#284,9025>define LB_GETCOUNT    1036
  775.  
  776. @Outline2@<:#284,9025>define LB_GETTEXT        1034
  777.  
  778. @Outline2@<:#284,9025>define LB_SETCURSEL    1031
  779.  
  780. @Outline2@<:#284,9025>define WM_SETREDRAW    0x000B
  781.  
  782. @Outline2@<:#284,9025>define    LB_FINDSTRING    1040
  783.  
  784. @Outline2@<:#284,9025>Define ShowCaret() dllcall("user,ShowCaret,HA", %1)
  785.  
  786. @Outline2@<:#284,9025>Define HideCaret() dllcall("user,HideCaret,HA", %1)
  787.  
  788. <:#284,9025>Define    SetFocus()        DllCall("User,SetFocus,HH",%1)
  789.  
  790. <:#284,9025>define    CloseDlg(id)    dllcall("user,PostMessage,HHHHHH", HDLG, 0X111, %1, 0, 0).
  791.  
  792. <:#284,9025>Define        GetActiveTextWin()        GetInfo(267)
  793.  
  794. <:#284,9025>
  795.  
  796. <:#568,9025><:X3,-32768;Include "Amixlate.sam!qksend">Define        ErrorMerge    "Merging could not continue.  Could not send mail.  This name may not be in the address book."
  797.  
  798. @Outline3@<:#284,9025>define    MainMenu    "&File"
  799.  
  800. @Outline3@<:#284,9025>Define    MenItem    "&Quick Send..."
  801.  
  802. @Outline3@<:#284,9025>Define    MenItemText    "Send memo on screen."
  803.  
  804. @Outline3@<:#284,9025>Define    MergeQuestion    "Would you like to merge this file to your EMail service?"
  805.  
  806. @Outline3@<:#284,9025>Define    NowMerging        "Now merging to EMail server"
  807.  
  808. @Outline3@<:#284,9025>Define    StatusMail    "Sending message to {MailTo}"
  809.  
  810. @Outline3@<:#284,9025>Define    FindTo        "To"
  811.  
  812. @Outline3@<:#284,9025>Define    FindCC    "CC"
  813.  
  814. @Outline3@<:#284,9025>Define    FindAttach    "AttachFile"
  815.  
  816. @Outline3@<:#284,9025>Define    NoSend    "Could not send mail."
  817.  
  818. @Outline3@<:#568,9025>' these are the strings that are searched to determine if there are any attachments etc... in the memo
  819.  
  820. @Outline3@<:#284,9025>' a memo may have a string like         to: WPD_Sales
  821.  
  822. @Outline3@<:#284,9025>Define    LocateTo        "to:"        
  823.  
  824. @Outline3@<:#284,9025>Define    LocateSubject        "subject:"
  825.  
  826. @Outline3@<:#284,9025>Define    LocateSubject2    "re:"    
  827.  
  828. @Outline3@<:#284,9025>Define    LocateCC        "cc:"
  829.  
  830. @Outline3@<:#284,9025>Define    LocateAttach1        "attachment:"
  831.  
  832. @Outline3@<:#284,9025>Define    LocateAttach2        "attachments:"
  833.  
  834. @Outline3@<:#284,9025>Define        SaveAttach    "Save and attach"
  835.  
  836. @Outline3@<:#284,9025>Define        JustAttach    "Attach"
  837.  
  838. @Outline3@<:#284,9025>Define    Table_Text    "Table Text"
  839.  
  840. @Outline3@<:#568,9025>Define    QuestionText    "This document may contain a table, frame or a footnote; to maintain these items, attach this file to the message.  {Text} '{filename}' to the message?"<:X~3,-32768;Include "Amixlate.sam!qksend">
  841.  
  842. <:#284,9025>
  843.  
  844. @Outline2@<:#284,9025>define IsOKToRun(menuname)    GetInfo(217, 24, %1);
  845.  
  846. <:#284,9025>
  847.  
  848. <:#284,9025>
  849.  
  850. <:#284,9025>
  851.  
  852. <:#284,9025>
  853.  
  854. @Subhead@<:#284,9025>' Declares
  855.  
  856. <:#284,9025>Declare GetAddress(cTo, cCC,cSubject, cAttachments)
  857.  
  858. <:#284,9025>Declare Findit(word, body, LowestPos)
  859.  
  860. <:#284,9025>Declare CopyClip(LowestPos)
  861.  
  862. <:#284,9025>Declare MailBox(cTo, cCC,cSubject, cAttachments)
  863.  
  864. <:#284,9025>Declare SendIt(cTo, cCC, cSubject, cAttachments)
  865.  
  866. <:#284,9025>Declare InitDDE(MailServer)
  867.  
  868. <:#284,9025>Declare MergeIt(fileName, Descrip)
  869.  
  870. <:#284,9025>Declare DarkModeMacro(Param, hWnd)
  871.  
  872. @Outline2@<:#284,9025>Declare SendParse(Id, Command, String)
  873.  
  874. @Outline2@<:#284,9025>Declare Ltrim(String)
  875.  
  876. @Outline2@<:#284,9025>Declare CheckForFrame()
  877.  
  878. @Outline2@<:#284,9025>Declare DisplayQuestion(cAttachments)
  879.  
  880. @Outline2@<:#284,9025>Declare StripDown(Word, Phrase)
  881.  
  882. @Outline2@<:#284,9025>Declare TryToExec()
  883.  
  884. <:#284,9025>declare Navigate(xapp, ExeName) ' <:f200,QCourier,0,0,255>declare user defined functions
  885.  
  886. <:#284,9025>declare getprofile(xappname)
  887.  
  888. <:#284,9025>declare writeprofile(path, xappname)
  889.  
  890. <:#284,9025>declare tryit(path, xapp)
  891.  
  892. <:#202,9025><:f200,QCourier,0,0,255>
  893.  
  894. @Outline2@<:#284,9025>
  895.  
  896. @Outline2@<:#284,9025>
  897.  
  898. @Subhead@<:#284,9025>Function Menus()
  899.  
  900. <:#284,9025>menu=MainMenu
  901.  
  902. <:#284,9025>item=MenItem
  903.  
  904. <:#284,9025>Desc = MenItemText
  905.  
  906. <:#284,9025>mac=getrunningmacrofile$()
  907.  
  908. <:#284,9025>CheckMenuItem(1, menu, item, 1)
  909.  
  910. <:#284,9025>if not CheckMenuItem(1, menu, item,, 1)
  911.  
  912. <:#284,9025>    insertmenuitem(1, menu, 13, "-", "", "")
  913.  
  914. <:#284,9025>    insertmenuitem(1, menu, 13, item, "{mac}!Main", Desc)
  915.  
  916. <:#284,9025>    return 1
  917.  
  918. <:#284,9025>else
  919.  
  920. <:#284,9025>    mactocall="{mac}!Main"
  921.  
  922. <:#284,9025>    calli mactocall()
  923.  
  924. <:#284,9025>endif
  925.  
  926. <:#284,9025>CheckMenuItem(1, menu, item, 0)
  927.  
  928. <:#284,9025>end function
  929.  
  930. <:#284,9025>
  931.  
  932. @Subhead@<:#284,9025>Function Main(Param)
  933.  
  934. <:#284,9025>DefStr cTo, cSubject, cCC, cAttachments, Id, hWnd;
  935.  
  936. <:#284,9025>If GetOpenFileCount()<<1
  937.  
  938. <:#284,9025>        Return -1
  939.  
  940. <:#284,9025>Endif
  941.  
  942. <:#284,9025>
  943.  
  944. <:#284,9025>OnError Done
  945.  
  946. <:#284,9025>FileName = StrField$(MergeOpts(), 8,",")
  947.  
  948. <:#284,9025>Descrip =  StrField$(MergeOpts(),10,",")
  949.  
  950. <:#284,9025>DarkModeMacro("on", &hWnd)
  951.  
  952. @Outline2@<:#284,9025>HourGlass(on)
  953.  
  954. @Outline2@<:#284,9025>HideCaret("")
  955.  
  956. @Outline2@<:#284,9025>
  957.  
  958. @Outline2@<:#284,9025>If FileName != ""    ' if the filename is not null, this is a merge doc
  959.  
  960. <:#284,9025>    If -1 = MergeIt(Filename, Descrip)
  961.  
  962. <:#284,9025>        ' did not want to merge    
  963.  
  964. <:#284,9025>    Else
  965.  
  966. <:#284,9025>        DarkModeMacro("off",hWnd)
  967.  
  968. <:#284,9025>        HourGlass(off)
  969.  
  970. <:#284,9025>        Return 0; ' merged now done
  971.  
  972. <:#284,9025>    Endif
  973.  
  974. <:#284,9025>Endif
  975.  
  976. <:#284,9025>
  977.  
  978. <:#284,9025>GetAddress(&cTo, &cSubject, &cCC, &cAttachments)
  979.  
  980. <:#284,9025>DarkModeMacro("off",hWnd)
  981.  
  982. <:#284,9025>If CheckForFrame()
  983.  
  984. <:#284,9025>    If DisplayQuestion(&cAttachments)
  985.  
  986. <:#284,9025>        HourGlass(off)
  987.  
  988. <:#284,9025>        Return -1
  989.  
  990. <:#284,9025>    Endif
  991.  
  992. <:#284,9025>Endif
  993.  
  994. <:#284,9025>
  995.  
  996. <:#284,9025>
  997.  
  998. <:#284,9025>HourGlass(off)
  999.  
  1000. <:#284,9025>If -1 = MailBox(&cTo, &cCC,&cSubject, &cAttachments) 
  1001.  
  1002. <:#284,9025>Else
  1003.  
  1004. <:#284,9025>    SendIt(&cTo, &cCC, &cSubject, &cAttachments)
  1005.  
  1006. <:#284,9025>Endif
  1007.  
  1008. <:#284,9025>Done:
  1009.  
  1010. <:#284,9025>StatusBarMsg("")
  1011.  
  1012. <:#284,9025>ShowCaret("")
  1013.  
  1014. <:#284,9025>
  1015.  
  1016. <:#284,9025>End Function
  1017.  
  1018. <:#284,9025>
  1019.  
  1020. <:#284,9025>
  1021.  
  1022. @Subhead@<:#284,9025>Function MergeIt(FileName, Descrip)
  1023.  
  1024. <:#284,9025>DefStr cTo, cCC, cSubject, cAttachments;
  1025.  
  1026. <:#284,9025>If Not Decide(MergeQuestion,"Ami Pro")
  1027.  
  1028. <:#284,9025>    Return -1
  1029.  
  1030. <:#284,9025>Endif
  1031.  
  1032. <:#284,9025>StatusBarMsg(NowMerging)
  1033.  
  1034. <:#284,9025>MergeMacro(0,Filename, Descrip)
  1035.  
  1036. <:#284,9025>GetAddress(&cTo, &cSubject, &cCC, &cAttachments)
  1037.  
  1038. <:#284,9025>SendIt(&cTo, &cCC, &cSubject, &cAttachments)
  1039.  
  1040. <:#284,9025>
  1041.  
  1042. <:#284,9025>While 1  = MergeAction(2)
  1043.  
  1044. <:#284,9025>    GetAddress(&cTo, &cSubject, &cCC, &cAttachments)
  1045.  
  1046. <:#284,9025>    If 0 = SendIt(&cTo, &cCC, &cSubject, &cAttachments)
  1047.  
  1048. <:#284,9025>    Pause(020)
  1049.  
  1050. <:#284,9025>    Else
  1051.  
  1052. <:#284,9025>        ' Sendit returned a -1 so something is not right
  1053.  
  1054. <:#284,9025>        Message(ErrorMerge, "Ami Pro")
  1055.  
  1056. <:#284,9025>        MergeAction(4)    ' stop the merge
  1057.  
  1058. <:#284,9025>        Break;
  1059.  
  1060. <:#284,9025>    Endif
  1061.  
  1062. <:#284,9025>Wend
  1063.  
  1064. <:#284,9025>StatusBarMsg("")
  1065.  
  1066. <:#284,9025>Return 0;
  1067.  
  1068. <:#284,9025>End Function
  1069.  
  1070. <:#284,9025>
  1071.  
  1072. <:#284,9025>
  1073.  
  1074. <:#284,9025>
  1075.  
  1076. @Subhead@<:#284,9025>Function SendIt(cTo, cCC, cSubject, cAttachments)
  1077.  
  1078. <:#284,9025>DefStr Id, Person, ccPerson, MailServer, Stuff, Stat;
  1079.  
  1080. <:#284,9025>HourGlass(on)
  1081.  
  1082. <:#284,9025>MailTo = *cTo;
  1083.  
  1084. <:#284,9025>MailCC = *cCC;
  1085.  
  1086. <:#284,9025>MailSubject = *cSubject;
  1087.  
  1088. <:#284,9025>AttachFile = *cAttachments;
  1089.  
  1090. <:#284,9025>x = 1;
  1091.  
  1092. <:#284,9025>y = 1;
  1093.  
  1094. <:#284,9025>
  1095.  
  1096. <:#284,9025>If  0= Assign(&id,  InitDDE(&MailServer))
  1097.  
  1098. <:#284,9025>    HourGlass(off)
  1099.  
  1100. <:#284,9025>    Return -1;
  1101.  
  1102. <:#284,9025>Endif
  1103.  
  1104. If MailServer = "Notes"
  1105.  
  1106.     AnsiToOem(MailTo, &Mailto)
  1107.  
  1108.     AnsiToOem(MailCC, &MailCC)
  1109.  
  1110.     AnsiToOem(MailSubject, &MailSubject)
  1111.  
  1112.     AnsiToOem(AttachFile, &AttachFile)
  1113.  
  1114. Endif
  1115.  
  1116.  
  1117.  
  1118. <:#284,9025>NotesDDE("NewMessage")
  1119.  
  1120. <:#284,9025>StatusBarMsg(StatusMail)
  1121.  
  1122. <:#284,9025>
  1123.  
  1124. <:#284,9025>SendParse(Id, FindTo, Mailto)
  1125.  
  1126. <:#284,9025>SendParse(Id, FindCC, MailCC)
  1127.  
  1128. <:#284,9025>SendParse(Id, FindAttach,Ucase$(AttachFile))
  1129.  
  1130. <:#284,9025>
  1131.  
  1132. <:#284,9025>If "" != MailSubject
  1133.  
  1134. <:#284,9025>    NotesDDE("Subject {MailSubject}")
  1135.  
  1136. <:#284,9025>Endif
  1137.  
  1138. <:#284,9025>
  1139.  
  1140. <:#284,9025>If MailServer = "Notes"
  1141.  
  1142. <:#284,9025>    If IsOkToRun(Paste)    ' If we can copy something from this doc, we will paste
  1143.  
  1144. <:#284,9025>        If -1 = NotesDDE("PasteClip")
  1145.  
  1146. <:#284,9025>            Message(NoSend,"Ami Pro")
  1147.  
  1148. <:#284,9025>            DDETerminate(Id)
  1149.  
  1150. <:#284,9025>            HourGlass(off)
  1151.  
  1152. <:#284,9025>            Return -1
  1153.  
  1154. <:#284,9025>        Endif
  1155.  
  1156. <:#284,9025>    Endif
  1157.  
  1158. <:#284,9025>Else
  1159.  
  1160. <:#284,9025>    ' This is the ccMail side
  1161.  
  1162. <:#284,9025>    If IsOkToRun(Paste)    ' If we can copy something from this doc, we will paste
  1163.  
  1164. <:#284,9025>        If -1 =Assign(&Stat, NotesDDE("Paste"))
  1165.  
  1166. <:#284,9025>            Message(NoSend,"Ami Pro")
  1167.  
  1168. <:#284,9025>            DDETerminate(Id)
  1169.  
  1170. <:#284,9025>            HourGlass(off)
  1171.  
  1172. <:#284,9025>            Return -1
  1173.  
  1174. <:#284,9025>    Endif
  1175.  
  1176. <:#284,9025>        Endif
  1177.  
  1178. <:#284,9025>Endif
  1179.  
  1180. <:#284,9025>
  1181.  
  1182. <:#284,9025>NotesDDE("Send")
  1183.  
  1184. <:#284,9025>DDETerminate(Id)
  1185.  
  1186. <:#284,9025>HourGlass(off)
  1187.  
  1188. <:#284,9025>End Function
  1189.  
  1190. <:#284,9025>
  1191.  
  1192. <:#284,9025>
  1193.  
  1194. <:#284,9025>
  1195.  
  1196. @Subhead@<:#284,9025>Function SendParse(id, Command, String)
  1197.  
  1198. <:#284,9025>DefStr Item;
  1199.  
  1200. <:#284,9025>x = 1
  1201.  
  1202. <:#284,9025>While -1 != Assign(&Item, StrField$(String, x,","))
  1203.  
  1204. <:#284,9025>    Item = Ltrim(Item)
  1205.  
  1206. <:#284,9025>    If Command = FindAttach
  1207.  
  1208. <:#284,9025>        If  FindFirst$(Item,0)
  1209.  
  1210. <:#284,9025>            NotesDDE("{Command} {Item}")
  1211.  
  1212. <:#284,9025>        Endif
  1213.  
  1214. <:#284,9025>    Else
  1215.  
  1216. <:#284,9025>        If "" != Item
  1217.  
  1218. <:#284,9025>            NotesDDE("{Command} {Item}")
  1219.  
  1220. <:#284,9025>        Endif
  1221.  
  1222. <:#284,9025>    Endif
  1223.  
  1224. <:#284,9025>    x = x + 1
  1225.  
  1226. <:#284,9025>Wend
  1227.  
  1228. <:#284,9025>End Function
  1229.  
  1230. <:#284,9025>
  1231.  
  1232. <:#284,9025>' These are searched in the doc to locate key field info
  1233.  
  1234. <:#284,9025>
  1235.  
  1236. @Subhead@<:#284,9025>Function GetAddress(cTo, cSubject, cCC, cAttachments)
  1237.  
  1238. <:#284,9025>LowestPos= 0;
  1239.  
  1240. <:#284,9025>Findit(LocateTo, &cTo, &LowestPos)
  1241.  
  1242. <:#284,9025>If 0 = Findit(LocateSubject, &cSubject, &LowestPos)
  1243.  
  1244. <:#284,9025>    Findit(LocateSubject2, &cSubject, &LowestPos)
  1245.  
  1246. <:#284,9025>Endif
  1247.  
  1248. <:#284,9025>Findit(LocateCC, &cCC, &LowestPos)
  1249.  
  1250. <:#284,9025>If 0 = Findit(LocateAttach1,&cAttachments, &LowestPos)
  1251.  
  1252. <:#284,9025>    Findit(LocateAttach2,&cAttachments, &LowestPos)
  1253.  
  1254. <:#284,9025>Endif
  1255.  
  1256. <:#284,9025>CopyClip(LowestPos)
  1257.  
  1258. <:#284,9025>End Function
  1259.  
  1260. <:#284,9025>
  1261.  
  1262. @Subhead@<:#284,9025>Function FindIt(Word, body, LowestPos)
  1263.  
  1264. <:#284,9025>Stat = Replace(0,0,8196,Word,"")
  1265.  
  1266. <:#284,9025>If Stat = 1
  1267.  
  1268. <:#284,9025>    Type("<[>CtrlUp]")
  1269.  
  1270. <:#284,9025>    Type ("<[>CtrlDown]")
  1271.  
  1272. <:#284,9025>    para = GetTextBeforeCursor$()
  1273.  
  1274. <:#284,9025>    Para = StripDown(Word, Para);
  1275.  
  1276. <:#284,9025>    *Body = Para;
  1277.  
  1278. <:#284,9025>    pos = StrField$(CursorPosition$(),2,",")
  1279.  
  1280. <:#284,9025>    If Pos << *LowestPos;
  1281.  
  1282. <:#284,9025>        *LowestPos = Pos;
  1283.  
  1284. <:#284,9025>    Endif
  1285.  
  1286. <:#284,9025>    Return 1
  1287.  
  1288. <:#284,9025>Endif
  1289.  
  1290. <:#284,9025>Return 0
  1291.  
  1292. <:#284,9025>End Function
  1293.  
  1294. <:#284,9025>
  1295.  
  1296. <:#284,9025>
  1297.  
  1298. @Subhead@<:#284,9025>Function StripDown(Word, Phrase)
  1299.  
  1300. <:#284,9025>LenWord = Len(word)
  1301.  
  1302. <:#284,9025>LenPhrase = Len(Phrase)
  1303.  
  1304. <:#284,9025>
  1305.  
  1306. <:#284,9025>Temp = Right$(phrase,LenPhrase - LenWord)
  1307.  
  1308. <:#284,9025>For t =1 to Len(Temp)
  1309.  
  1310. <:#284,9025>    Char = Left$(Temp, 1)
  1311.  
  1312. <:#284,9025>    If 0 = Instr(0, "     :",Char)
  1313.  
  1314. <:#284,9025>        Break;
  1315.  
  1316. <:#284,9025>    Else
  1317.  
  1318. <:#284,9025>    Temp = Right$(Temp, Len(Temp) - 1)
  1319.  
  1320. <:#284,9025>    Endif
  1321.  
  1322. <:#284,9025>Next
  1323.  
  1324. <:#284,9025>Return Temp
  1325.  
  1326. <:#284,9025>End Function
  1327.  
  1328. <:#284,9025>
  1329.  
  1330. <:#284,9025>
  1331.  
  1332. <:#284,9025>
  1333.  
  1334. @Subhead@<:#284,9025>Function CopyClip(LowestPos)
  1335.  
  1336. <:#284,9025>IgnoreKeyboard(2)
  1337.  
  1338. <:#284,9025>Question = QuestionText
  1339.  
  1340. <:#284,9025>y = StrField$(CursorPosition$(),2,",")
  1341.  
  1342. <:#284,9025>If LowestPos = 0
  1343.  
  1344. <:#284,9025>    Type ("<[>CtrlHome]")
  1345.  
  1346. <:#284,9025>Else
  1347.  
  1348. <:#284,9025>    While y <;>LowestPos 
  1349.  
  1350. <:#284,9025>            Type ("<[>Down]")
  1351.  
  1352. <:#284,9025>            y = StrField$(CursorPosition$(),2,",")
  1353.  
  1354. <:#284,9025>    Wend
  1355.  
  1356. <:#284,9025>    Type ("<[>left]<[>CtrlDown]<[>Right]")
  1357.  
  1358. <:#284,9025>Endif
  1359.  
  1360. <:#284,9025>Type ("<[>ShiftCtrlEnd]")
  1361.  
  1362. <:#284,9025>If IsOkToRun(copy)
  1363.  
  1364. <:#284,9025>    Copy()
  1365.  
  1366. <:#284,9025>Else
  1367.  
  1368. <:#568,9025>    ClipboardWrite("",1)    ' nothing to copy, clean the clipboard so we don't paste other data
  1369.  
  1370. <:#284,9025>Endif
  1371.  
  1372. <:#284,9025>Type ("<[>Esc]")
  1373.  
  1374. <:#284,9025>End Function
  1375.  
  1376. <:#284,9025>
  1377.  
  1378. <:#284,9025>
  1379.  
  1380. <:#284,9025>
  1381.  
  1382. @Subhead@<:#284,9025>Function DisplayQuestion(cAttachMents)
  1383.  
  1384. <:#284,9025>Attach = *cAttachments;
  1385.  
  1386. <:#284,9025>If FileChanged(0,0)
  1387.  
  1388. <:#284,9025>    Text = SaveAttach
  1389.  
  1390. <:#284,9025>Else
  1391.  
  1392. <:#284,9025>    Text = JustAttach
  1393.  
  1394. <:#284,9025>Endif
  1395.  
  1396. <:#284,9025>FileName = GetDocInfo$(1)
  1397.  
  1398. <:#284,9025>Stat = MultiDecide(QuestionText,3, "Ami Pro")
  1399.  
  1400. <:#284,9025>Switch Stat
  1401.  
  1402. <:#284,9025>    Case 2    ' Cancel
  1403.  
  1404. <:#284,9025>        Return 1;
  1405.  
  1406. <:#284,9025>        Break;
  1407.  
  1408. <:#284,9025>    Case 6    ' Yes
  1409.  
  1410. <:#284,9025>        Filename = GetOpenFileName$()
  1411.  
  1412. <:#284,9025>        If FileName = ""
  1413.  
  1414. <:#284,9025>            If SaveAs
  1415.  
  1416. <:#284,9025>                FileName = GetOpenFileName$()
  1417.  
  1418. <:#284,9025>            Else
  1419.  
  1420. <:#284,9025>                Return 0;
  1421.  
  1422. <:#284,9025>            Endif
  1423.  
  1424. <:#284,9025>        Else
  1425.  
  1426. <:#284,9025>            Save()
  1427.  
  1428. <:#284,9025>        Endif        
  1429.  
  1430. <:#284,9025>        ' now I will add the file to the attachment list
  1431.  
  1432. <:#284,9025>        If  Attach="";
  1433.  
  1434. <:#284,9025>            *cAttachments = FileName;
  1435.  
  1436. <:#284,9025>        Else
  1437.  
  1438. <:#284,9025>            *cAttachments = StrCat$(attach, ",","{FileName}")
  1439.  
  1440. <:#284,9025>        Endif
  1441.  
  1442. <:#284,9025>        Return 0;
  1443.  
  1444. <:#284,9025>    Case 7    ' No
  1445.  
  1446. <:#284,9025>        Return 0;
  1447.  
  1448. <:#284,9025>        Break;
  1449.  
  1450. <:#284,9025>EndSwitch
  1451.  
  1452. <:#284,9025>End Function
  1453.  
  1454. <:#284,9025>
  1455.  
  1456. <:#284,9025>
  1457.  
  1458. @Subhead@<:#284,9025>Function CheckForFrame()
  1459.  
  1460. <:#284,9025>If AnyFootNotesFlag()
  1461.  
  1462. <:#284,9025>    Return 1
  1463.  
  1464. <:#284,9025>Endif
  1465.  
  1466. <:#284,9025>If GetGotoItemLegalFlag(Frame)
  1467.  
  1468. <:#284,9025>    Return 1; 
  1469.  
  1470. <:#284,9025>endif
  1471.  
  1472. <:#284,9025>Count = GetStyleCount()
  1473.  
  1474. <:#284,9025>Dim StyleName(Count)
  1475.  
  1476. <:#284,9025>GetStyleNames(&StyleName)
  1477.  
  1478. <:#284,9025>If 0 != ArraySearch(&StyleName, Table_Text)
  1479.  
  1480. <:#284,9025>    Return 1
  1481.  
  1482. <:#284,9025>Endif
  1483.  
  1484. <:#284,9025>End Function
  1485.  
  1486. <:#284,9025>
  1487.  
  1488. <:#284,9025>
  1489.  
  1490. <:#284,9025>
  1491.  
  1492. @Subhead@<:#284,9025>Function DarkModeMacro(Param, hWnd)
  1493.  
  1494. @Outline2@<:#284,9025>
  1495.  
  1496. @Outline2@<:#284,9025>Dim A(4)
  1497.  
  1498. @Outline2@<:#284,9025>Param = lCase$(Param)
  1499.  
  1500. @Outline2@<:#284,9025>switch Param
  1501.  
  1502. @Outline2@<:#284,9025>    Case "on";
  1503.  
  1504. @Outline2@<:#284,9025>        *hWnd = GetActiveTextWin()
  1505.  
  1506. @Outline2@<:#284,9025>        MarkBookMark("DarkMode",AddBookMark)
  1507.  
  1508. @Outline2@<:#284,9025>        SendMessage(hWnd, WM_SETREDRAW, 0, "")
  1509.  
  1510. @Outline2@<:#284,9025>    Case "off"
  1511.  
  1512. @Outline2@<:#284,9025>        SendMessage(hWnd, WM_SETREDRAW,1,"")
  1513.  
  1514. @Outline2@<:#284,9025>        MarkBookMark("DarkMode",FindBookMark)
  1515.  
  1516. @Outline2@<:#284,9025>        MarkBookMark("DarkMode", DeleteBookMark)
  1517.  
  1518. @Outline2@<:#284,9025>        GetClientRect(hWnd, &A)
  1519.  
  1520. @Outline2@<:#284,9025>        InvalidateRect(hWnd, &A,1)
  1521.  
  1522. @Outline2@<:#284,9025>    Default
  1523.  
  1524. @Outline2@<:#284,9025>        ' Didn't understand
  1525.  
  1526. @Outline2@<:#284,9025>EndSwitch
  1527.  
  1528. @Outline2@<:#284,9025>End Function
  1529.  
  1530. <:#284,9025>
  1531.  
  1532. @Subhead@<:#284,9025>Function InitDDE(MailServer)
  1533.  
  1534. <:#284,9025>IgnoreKeyboard(2)
  1535.  
  1536. <:#284,9025>DefStr TempId, Char;
  1537.  
  1538. <:#284,9025>Attempt = 0
  1539.  
  1540. <:#284,9025>Count = 1;
  1541.  
  1542. <:#284,9025>While Count << 7
  1543.  
  1544. <:#284,9025>    If AppIsRunning("Lotus Notes")
  1545.  
  1546. <:#284,9025>        AppName = "Notes";
  1547.  
  1548. <:#284,9025>        *MailServer = "Notes";
  1549.  
  1550. <:#284,9025>    Elseif AppIsRunning("cc:Mail")
  1551.  
  1552. <:#284,9025>        AppName = "wMail";
  1553.  
  1554. <:#284,9025>        *MailServer = "ccMail";
  1555.  
  1556. <:#284,9025>    Else
  1557.  
  1558. <:#284,9025>        ' We need to exec one
  1559.  
  1560. <:#284,9025>        If Attempt = 0
  1561.  
  1562. <:#284,9025>            Stat = TryToExec()
  1563.  
  1564. <:#284,9025>            Attempt = 1    ' don't try to exec again
  1565.  
  1566. <:#284,9025>        Endif
  1567.  
  1568. <:#284,9025>    Endif
  1569.  
  1570. <:#284,9025>    If 0 != Assign (&TempId , DDEInitiate(AppName,"SendMail"))
  1571.  
  1572. <:#284,9025>        ' we have a real id
  1573.  
  1574. <:#284,9025>        Break;
  1575.  
  1576. <:#284,9025>    Endif
  1577.  
  1578. <:#284,9025>    Count = Count + 1
  1579.  
  1580. <:#284,9025>Wend
  1581.  
  1582. <:#284,9025>Return TempId;
  1583.  
  1584. <:#284,9025>End Function
  1585.  
  1586. <:#284,9025>
  1587.  
  1588. <:#284,9025>
  1589.  
  1590. @Subhead@<:#284,9025>Function TryToExec()
  1591.  
  1592. <:#284,9025>defStr I, char, path, Findexe;
  1593.  
  1594. <:#284,9025>AppName = GetProfileString$("LotusMail","Application", "Win.ini")
  1595.  
  1596. <:#284,9025>FullName = GetProfileString$("LotusMail","Program","Win.Ini")
  1597.  
  1598. <:#284,9025>If 0 !=Assign(&i, Len(FullName))
  1599.  
  1600. <:#284,9025>    While "\" != Assign(&Char, Mid$(FullName, i, 1))
  1601.  
  1602. <:#284,9025>         i = i - 1
  1603.  
  1604. <:#284,9025>    Wend
  1605.  
  1606. <:#284,9025>    Path = Left$(FullName, i)
  1607.  
  1608. <:#284,9025>    TempExeName = Right$(Fullname, Len(FullName) - i )
  1609.  
  1610. <:#284,9025>    if tryit(Path, TempExeName) <;> 31 ' <:f200,QCourier,0,0,255>if we launch, get out<:f>
  1611.  
  1612. <:#284,9025>        return 1
  1613.  
  1614. <:#284,9025>    endif
  1615.  
  1616. <:#284,9025>Endif
  1617.  
  1618. <:#284,9025>' if we are here, we did not start app and we need to ask what app to start
  1619.  
  1620. <:#284,9025>StoredPath = Strfield$(GetProfile("mail"),1,",")
  1621.  
  1622. <:#284,9025>StoredExe = Strfield$(GetProfile("mail"),2,",")
  1623.  
  1624. <:#284,9025>if tryit(StoredPath, StoredExe) <;> 31 ' <:f200,QCourier,0,0,255>if we launch, get out<:f>
  1625.  
  1626. <:#284,9025>    return 1
  1627.  
  1628. <:#284,9025>endif
  1629.  
  1630. <:#284,9025>Text = "your mail service."
  1631.  
  1632. <:#284,9025>if assign(&path, Navigate(Text, &FindExe)) <<<;> 0 ' <:f200,QCourier,0,0,255>show me where the exe is
  1633.  
  1634. <:#284,9025>    if tryit(path, FindExe) <;> 31
  1635.  
  1636. <:#284,9025>        writeprofile(path, Findexe)
  1637.  
  1638. <:#284,9025>        Return 1
  1639.  
  1640. <:#284,9025>    endif
  1641.  
  1642. <:#284,9025>endif
  1643.  
  1644. <:#284,9025>Return 0
  1645.  
  1646. <:#284,9025>End function
  1647.  
  1648. <:#284,9025>
  1649.  
  1650. <:#284,9025>
  1651.  
  1652. @Subhead@<:#284,9025>function tryit(path, app) ' <:f200,QCourier,0,0,255>this function attemts to exec the app
  1653.  
  1654. <:#284,9025>doschdir(path)
  1655.  
  1656. <:#284,9025>return exec(strcat$(path, app), "",2)
  1657.  
  1658. <:#284,9025>end function
  1659.  
  1660. <:#284,9025>
  1661.  
  1662. @Subhead@<:#284,9025>function writeprofile(path, ExeName) ' <:f200,QCourier,0,0,255>save the path if exec works
  1663.  
  1664. <:#284,9025>writeprofilestring("LotusApps", "Mail", StrCat$(path","ExeName), "amipro2.ini")
  1665.  
  1666. <:#284,9025>end function
  1667.  
  1668. <:#284,9025>
  1669.  
  1670. @Subhead@<:#284,9025>function getprofile(appname) ' <:f200,QCourier,0,0,255>get the path of successful exec
  1671.  
  1672. <:#284,9025>defstr path;
  1673.  
  1674. <:#284,9025>if assign(&path, getprofilestring$("LotusApps", appname, "amipro2.ini")) <<<;> ""
  1675.  
  1676. <:#284,9025>    return path
  1677.  
  1678. <:#284,9025>endif
  1679.  
  1680. <:#284,9025>return getprofilestring$("LotusApps", appname, "amipro.ini")
  1681.  
  1682. <:#284,9025>end function
  1683.  
  1684. <:#284,9025>
  1685.  
  1686. @Subhead@<:#284,9025>function Navigate(app, FindExe ) ' <:f200,QCourier,0,0,255>ask user for location of exe
  1687.  
  1688. <:#284,9025>defstr box;
  1689.  
  1690. <:#284,9025>Mac = GetRunningMacroFile$()
  1691.  
  1692. <:#284,9025>filledit(9001, "*.exe")
  1693.  
  1694. <:#284,9025>filledit(8007, app)
  1695.  
  1696. @Outline3@<:#284,9025>DlgKeyInterrupt(112, "{mac}!DisplayHelp")
  1697.  
  1698. @Outline3@<:#284,9025>
  1699.  
  1700. <:#284,9025>if assign(&box, dialogbox(".", "findapp")) <<<;> 1
  1701.  
  1702. <:#284,9025>    return 0
  1703.  
  1704. <:#284,9025>endif
  1705.  
  1706. <:#284,9025>*Findexe = GetdialogField$(9001);
  1707.  
  1708. <:#284,9025>return getcurrentdir$();
  1709.  
  1710. <:#284,9025>end function
  1711.  
  1712. <:#284,9025>
  1713.  
  1714. <:#284,9025>
  1715.  
  1716. <:#202,9025><:f200,QCourier,0,0,255>
  1717.  
  1718. @Subhead@<:#284,9025>function DisplayHelp()
  1719.  
  1720. @Outline2@<:#284,9025>' two defines needed for help.  The help name and panel number are defined above
  1721.  
  1722. @Outline2@<:#284,9025>define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2)
  1723.  
  1724. @Outline2@<:#568,9025>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  1725.  
  1726. @Outline2@<:#284,9025>prohWnd = FindWindowa("AmiProWndA", 0)
  1727.  
  1728. @Outline2@<:#284,9025>helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp")
  1729.  
  1730. @Outline2@<:#284,9025>PanelNum= 135 
  1731.  
  1732. @Outline2@<:#284,9025>WinHelpa(prohWnd, helpfile, 0x0001, Panelnum)
  1733.  
  1734. @Outline2@<:#284,9025>end function
  1735.  
  1736. @Subhead@<:#284,9025>
  1737.  
  1738. <:#284,9025>
  1739.  
  1740. <:#284,9025>
  1741.  
  1742. <:#284,9025>
  1743.  
  1744. @Subhead@<:#284,9025>function MailBox(cTo, cCC,cSubject, cAttachments)
  1745.  
  1746. @Outline2@<:#284,9025>Mac = GetRunningMacroFile$()
  1747.  
  1748. @Outline2@<:#284,9025>IgnoreKeyBoard(2)
  1749.  
  1750. @Outline2@<:#284,9025>if *cTo != "";
  1751.  
  1752. @Outline2@<:#284,9025>    'find out if the box should pop; if it shouldn't, we're done, return 1
  1753.  
  1754. @Outline3@<:#284,9025>    inifile="AMIPRO2.INI"
  1755.  
  1756. @Outline3@<:#284,9025>    showbox=getprofilestring$("AmiMailer", "DisplayBox", inifile)
  1757.  
  1758. @Outline3@<:#284,9025>    if showbox= ""
  1759.  
  1760. @Outline3@<:#284,9025>        showbox="yes"
  1761.  
  1762. @Outline3@<:#284,9025>        WriteProfileString("AmiMailer", "DisplayBox", showbox, inifile)
  1763.  
  1764. @Outline3@<:#284,9025>    endif
  1765.  
  1766. @Outline3@<:#284,9025>    if showbox="no"
  1767.  
  1768. @Outline3@<:#284,9025>        return 1
  1769.  
  1770. @Outline3@<:#284,9025>    endif
  1771.  
  1772. @Outline2@<:#284,9025>endif
  1773.  
  1774. @Outline2@<:#284,9025>AllocGlobalVar("Files",1)
  1775.  
  1776. @Outline2@<:#284,9025>Attach = *cAttachments;
  1777.  
  1778. @Outline2@<:#284,9025>SetGlobalVar("Files",Attach);
  1779.  
  1780. @Outline2@<:#284,9025>
  1781.  
  1782. @Outline2@<:#284,9025>filledit(8000, cTo)
  1783.  
  1784. @Outline2@<:#284,9025>filledit(8001, cCC)
  1785.  
  1786. @Outline2@<:#284,9025>filledit(8002, cSubject)
  1787.  
  1788. @Outline2@<:#284,9025>SetDlgCallBack(21,"{Mac}!Attacher")
  1789.  
  1790. @Outline3@<:#284,9025>DlgKeyInterrupt(112, "{mac}!DisplayHelp")
  1791.  
  1792. @Outline3@<:#284,9025>
  1793.  
  1794. @Outline2@<:#284,9025>box=dialogbox(".", "mailbox")
  1795.  
  1796. @Outline2@<:#284,9025>if box != 1
  1797.  
  1798. @Outline2@<:#284,9025>    FreeGlobalVar("Files")
  1799.  
  1800. @Outline2@<:#284,9025>    return -1
  1801.  
  1802. @Outline2@<:#284,9025>endif
  1803.  
  1804. @Outline2@<:#284,9025>*cTo=GetDialogField$(8000 );
  1805.  
  1806. @Outline2@<:#284,9025>*cCC=GetDialogField$(8001 );
  1807.  
  1808. @Outline2@<:#284,9025>*cSubject=GetDialogField$(8002 );
  1809.  
  1810. @Outline2@<:#284,9025>*cAttachMents = GetGlobalVar$("files");
  1811.  
  1812. @Outline2@<:#284,9025>FreeGlobalVar("Fil.es")
  1813.  
  1814. @Outline2@<:#284,9025>Checkbox=GetDialogField$(20 )
  1815.  
  1816. @Outline2@<:#284,9025>if CheckBox= 1
  1817.  
  1818. @Outline2@<:#284,9025>    WriteProfileString("AmiMailer", "DisplayBox", "no", inifile)
  1819.  
  1820. @Outline2@<:#284,9025>Else
  1821.  
  1822. @Outline2@<:#284,9025>    WriteProfileString("AmiMailer", "DisplayBox", "yes", inifile)
  1823.  
  1824. @Outline2@<:#284,9025>
  1825.  
  1826. @Outline2@<:#284,9025>endif
  1827.  
  1828. @Outline2@<:#284,9025>return 1
  1829.  
  1830. @Outline2@<:#284,9025>end function
  1831.  
  1832. @Function@<:#284,9025>
  1833.  
  1834. @Function@<:#284,9025>
  1835.  
  1836. @Function@<:#284,9025>
  1837.  
  1838. @Subhead@<:#284,9025>function attacher(Hdlg, id, value)
  1839.  
  1840. @Outline2@<:#284,9025>DefStr Data;
  1841.  
  1842. @Outline2@<:#284,9025>rmac=GetRunningMacroFile$()
  1843.  
  1844. @Outline2@<:#284,9025>pathnow = GetCurrentDir$()
  1845.  
  1846. @Outline2@<:#284,9025>FillEdit(7999, "{pathnow}")
  1847.  
  1848. @Outline2@<:#284,9025>SetDlgCallBack (21,"{rmac}!MoveIt")
  1849.  
  1850. @Outline2@<:#284,9025>SetDlgCallBack (22,"{rmac}!MoveIt")
  1851.  
  1852. @Outline2@<:#284,9025>SetDlgCallBack (20,"{rmac}!MoveIt")
  1853.  
  1854. @Outline2@<:#284,9025>SetDlgCallBack(0, "{rMac}!MoveIt")
  1855.  
  1856. @Outline3@<:#284,9025>DlgKeyInterrupt(112, "{rmac}!DisplayHelp")
  1857.  
  1858. @Outline2@<:#284,9025>box = dialogbox(".", "Attach")
  1859.  
  1860. @Outline2@<:#284,9025>SetFocus(Hdlg)
  1861.  
  1862. @Outline2@<:#284,9025>end function
  1863.  
  1864. @Function@<:#284,9025>
  1865.  
  1866. @Function@<:#284,9025>
  1867.  
  1868. @Subhead@<:#284,9025>Function MoveIt(Hdlg, Id, Value)
  1869.  
  1870. @Function@<:#284,9025>hAttach = GetDlgItem(Hdlg, 9002)
  1871.  
  1872. @Function@<:#284,9025>HFiles = GetDlgItem(Hdlg, 9001)
  1873.  
  1874. @Function@<:#284,9025>DefStr Item, Data;
  1875.  
  1876. @Function@<:#284,9025>Switch Id
  1877.  
  1878. @Function@<:#284,9025>    Case Move
  1879.  
  1880. @Outline2@<:#284,9025>        Name = GetDlgItemText(Hdlg, 9001)
  1881.  
  1882. @Outline2@<:#284,9025>        if Instr(0,Name, "]") !=0
  1883.  
  1884. @Outline2@<:#284,9025>            exit function
  1885.  
  1886. @Outline2@<:#284,9025>        endif
  1887.  
  1888. @Outline2@<:#284,9025>        Filename=lcase$(strcat$(GetCurrentDir$(), Name))
  1889.  
  1890. @Outline2@<:#284,9025>        If -1 = AppSendMessage(hAttach,LB_FINDSTRING, -1, Filename)
  1891.  
  1892. @Outline2@<:#284,9025>            setdlgitemtext(hdlg, 9002, Filename)
  1893.  
  1894. @Function@<:#284,9025>        Endif
  1895.  
  1896. @Function@<:#284,9025>        Break;
  1897.  
  1898. @Function@<:#284,9025>    Case Remove
  1899.  
  1900. @Outline2@<:#284,9025>        idx = AppSendMessage (hAttach, LB_GETCURSEL, 0, 0)
  1901.  
  1902. @Outline2@<:#284,9025>        x=AppSendMessage (hAttach, LB_DELETESTRING, idx, 0)
  1903.  
  1904. @Function@<:#284,9025>        Break;
  1905.  
  1906. @Function@<:#284,9025>    Case OK
  1907.  
  1908. @Outline2@<:#284,9025>        count = AppSendMessage (hAttach, LB_GETCOUNT, 0, 0) 
  1909.  
  1910. @Outline2@<:#284,9025>        for i=1 to count
  1911.  
  1912. @Outline2@<:#284,9025>            AppSendMessage(hAttach, LB_SETCURSEL, i - 1, 0)
  1913.  
  1914. @Outline2@<:#284,9025>            Item = GetDlgItemText(Hdlg, 9002)
  1915.  
  1916. @Outline2@<:#284,9025>            If Item != ""
  1917.  
  1918. @Outline2@<:#284,9025>                Stuff = StrCat$(Stuff, ", ",Item)
  1919.  
  1920. @Outline2@<:#284,9025>            Endif
  1921.  
  1922. @Outline2@<:#284,9025>        next
  1923.  
  1924. @Outline2@<:#284,9025>        If Stuff != ""
  1925.  
  1926. @Outline2@<:#284,9025>            Stuff = Right$(Stuff, Len(Stuff) - 2)
  1927.  
  1928. @Outline2@<:#284,9025>        Endif
  1929.  
  1930. @Outline2@<:#284,9025>        SetGlobalVar("Files",Stuff)
  1931.  
  1932. @Outline2@<:#284,9025>        'sendkeys("<[>altz]")
  1933.  
  1934. <:#284,9025>        CloseDlg(2)
  1935.  
  1936. @Outline2@<:#284,9025>        Break;
  1937.  
  1938. @Function@<:#284,9025>    Default
  1939.  
  1940. @Function@<:#284,9025>        ' this is my Init function, 
  1941.  
  1942. @Outline2@<:#284,9025>        Files = GetGlobalVar$("Files")
  1943.  
  1944. @Outline2@<:#284,9025>        x = 1
  1945.  
  1946. @Outline2@<:#284,9025>        While -1 != Assign(&Data, StrField$(Files, x,","))
  1947.  
  1948. @Outline2@<:#284,9025>            Data = Ltrim(Data)
  1949.  
  1950. @Outline2@<:#284,9025>            If Data != ""
  1951.  
  1952. @Outline2@<:#284,9025>                setdlgitemtext(hdlg, 9002, Data)
  1953.  
  1954. @Outline2@<:#284,9025>            Endif
  1955.  
  1956. @Outline2@<:#284,9025>            x = x + 1;
  1957.  
  1958. @Outline2@<:#284,9025>        Wend
  1959.  
  1960. @Function@<:#284,9025>EndSwitch
  1961.  
  1962. @Function@<:#284,9025>End Function
  1963.  
  1964. @Function@<:#284,9025>
  1965.  
  1966. @Function@<:#284,9025>
  1967.  
  1968. @Function@<:#284,9025>
  1969.  
  1970. @Subhead@<:#284,9025>Function LTrim(String)
  1971.  
  1972. @Function@<:#284,9025>If String = " "
  1973.  
  1974. @Function@<:#284,9025>    Exit Function
  1975.  
  1976. @Function@<:#284,9025>Endif
  1977.  
  1978. @Function@<:#284,9025>While Left$(String,1) =" "
  1979.  
  1980. @Function@<:#284,9025>    String = Right$(String,  Len(String) - 1 )
  1981.  
  1982. @Function@<:#284,9025>Wend
  1983.  
  1984. @Function@<:#284,9025>Return String
  1985.  
  1986. @Function@<:#284,9025>End Function
  1987.  
  1988. @Function@<:#284,9025>
  1989.  
  1990. <:#284,9025>
  1991.  
  1992. <:#284,9025>
  1993.  
  1994. @Subhead@<:#284,9025>' dialogs
  1995.  
  1996. <:#284,9025>
  1997.  
  1998. <:#284,9025>
  1999.  
  2000. <:#284,9025>DIALOG    Attach
  2001.  
  2002. <:#284,9025>-2134376448    9    49    56    256    102    ""    "AmiDialog"    "Attach Files"
  2003.  
  2004. <:#284,9025>FONT    8    "Helv"
  2005.  
  2006. <:#284,9025>213    3    40    14    20    1342373889    "button"    "OK"    0 
  2007.  
  2008. <:#284,9025>213    19    40    14    2    1342373888    "button"    "Cancel"    0 
  2009.  
  2010. <:#284,9025>3    14    60    80    9001    1352728579    "listbox"    ""    0 
  2011.  
  2012. <:#284,9025>111    14    98    80    9002    1352728577    "listbox"    ""    0 
  2013.  
  2014. <:#284,9025>66    32    43    14    21    1342373888    "button"    "Move <;><;>"    0 
  2015.  
  2016. <:#284,9025>66    50    43    14    22    1342373888    "button"    "<<<< Remove"    0 
  2017.  
  2018. <:#284,9025>3    2    82    10    7999    1342177280    "static"    "text"    0 
  2019.  
  2020. <:#284,9025>112    2    56    10    1001    1342177280    "static"    "Attachments:"    0 
  2021.  
  2022. <:#284,9025>238    182    10    14    1    1342373888    "button"    "&z"    0 
  2023.  
  2024. @Function@<:#284,9025>END DIALOG
  2025.  
  2026. @Function@<:#284,9025>
  2027.  
  2028. <:#284,9025>
  2029.  
  2030. @Function@<:#284,9025>
  2031.  
  2032. <:#284,9025>DIALOG    mailbox
  2033.  
  2034. <:#568,9025>-2134376448    9    55    58    198    57    ""    "AmiDialog"    "Confirm Mail to Send"
  2035.  
  2036. <:#284,9025>FONT    8    "Helv"
  2037.  
  2038. <:#284,9025>4    8    28    10    1000    1342177280    "static"    "To:"    0 
  2039.  
  2040. <:#284,9025>38    6    108    12    8000    1350631552    "edit"    ""    0 
  2041.  
  2042. <:#284,9025>4    22    28    10    1001    1342177280    "static"    "cc:"    0 
  2043.  
  2044. <:#284,9025>38    20    108    12    8001    1350631552    "edit"    ""    0 
  2045.  
  2046. <:#284,9025>4    36    28    10    1002    1342177280    "static"    "Subject:"    0 
  2047.  
  2048. <:#284,9025>38    34    108    12    8002    1350631552    "edit"    ""    0 
  2049.  
  2050. <:#284,9025>153    4    40    14    1    1342373889    "button"    "OK"    0 
  2051.  
  2052. <:#284,9025>153    20    40    14    2    1342373888    "button"    "Cancel"    0 
  2053.  
  2054. <:#284,9025>153    36    40    14    21    1342373888    "button"    "Attach..."    0 
  2055.  
  2056. @Function@<:#284,9025>END DIALOG
  2057.  
  2058. @Function@<:#284,9025>
  2059.  
  2060. @Function@<:#284,9025>
  2061.  
  2062. @Function@<:#284,9025>DIALOG findapp
  2063.  
  2064. <:#284,9025>-2134376448 7 70 35 200 97 "" "" "Find Application"
  2065.  
  2066. <:#284,9025>FONT 8 "Helv"
  2067.  
  2068. <:#284,9025>7 34 59 8 1000 1342177280 "static" "&Program path:" 0 
  2069.  
  2070. <:#284,9025>6 45 60 44 9001 1352728579 "listbox" "" 0 
  2071.  
  2072. <:#284,9025>155 5 40 14 1 1342373889 "button" "OK" 0 
  2073.  
  2074. <:#284,9025>155 21 40 14 2 1342373888 "button" "Cancel" 0 
  2075.  
  2076. <:#284,9025>68 34 80 8 7999 1342177280 "static" "" 0 
  2077.  
  2078. <:#284,9025>7 6 142 9 1006 1342177280 "static" "Change into the directory that contains" 0 
  2079.  
  2080. <:#284,9025>7 16 107 8 8007 1342177280 "static" "" 0 
  2081.  
  2082. <:#284,9025>END DIALOG
  2083.  
  2084. @Function@<:#284,9025>
  2085.  
  2086. >
  2087.  
  2088. [Embedded]
  2089. 00035224
  2090. >
  2091. [macsum] 26
  2092. Menus 0 0 6 96
  2093. Main 324 1 9 113
  2094. MergeIt 994 2 5 158
  2095. SendIt 1547 4 13 185
  2096. SendParse 2611 3 3 246
  2097. GetAddress 2933 4 2 266
  2098. FindIt 3205 3 4 279
  2099. StripDown 3485 2 6 297
  2100. CopyClip 3866 1 5 315
  2101. DisplayQuestion 4354 1 5 339
  2102. CheckForFrame 5063 0 3 377
  2103. DarkModeMacro 5282 2 2 394
  2104. InitDDE 5714 1 7 414
  2105. TryToExec 6150 0 11 443
  2106. tryit 6946 2 1 474
  2107. writeprofile 7029 2 1 479
  2108. getprofile 7128 1 2 483
  2109. Navigate 7302 2 3 491
  2110. DisplayHelp 7524 0 4 507
  2111. MailBox 7710 4 7 520
  2112. attacher 8493 3 5 567
  2113. MoveIt 8742 3 13 582
  2114. LTrim 9915 1 1 633
  2115. Attach 10102 0 -1 648
  2116. mailbox 10622 0 -1 664
  2117. findapp 11134 0 -1 679
  2118. [macse]
  2119. 14 Menus
  2120. 7 "&File"
  2121. 8 1
  2122. 7 "&Quick Send..."
  2123. 8 2
  2124. 7 "Send memo on screen."
  2125. 8 3
  2126. 0 802
  2127. 13
  2128. 8 4
  2129. 0 518 1 "{1}" "{2}" 1
  2130. 0 518 1 "{1}" "{2}" 1
  2131. 13
  2132. 1 3
  2133. 11 00000260
  2134. 0 527 1 "{1}" 13 "-" "" ""
  2135. 0 527 1 "{1}" 13 "{2}" "{4}!Main" "{3}"
  2136. 5 1
  2137. 15
  2138. 9
  2139. 10 00000289
  2140. 7 "{4}!Main"
  2141. 8 5
  2142. 16 "{5}"
  2143. 0 518 1 "{1}" "{2}" 0
  2144. 6 0
  2145. 15
  2146. 9
  2147. 14 Main
  2148. 0 1050
  2149. 13
  2150. 5 1
  2151. 18 5
  2152. 11 00000058
  2153. 5 -1
  2154. 15
  2155. 9
  2156. 20 00000618
  2157. 0 1313 165
  2158. 13
  2159. 0 20 [X] 8 ","
  2160. 13
  2161. 8 8
  2162. 0 1313 165
  2163. 13
  2164. 0 20 [X] 10 ","
  2165. 13
  2166. 8 9
  2167. 16 DarkModeMacro "on" &7
  2168. 0 296 1
  2169. 0 284 "user,HideCaret,HA" ""
  2170. 6 8
  2171. 7 ""
  2172. 18 1
  2173. 11 00000366
  2174. 5 -1
  2175. 16 MergeIt "{8}" "{9}"
  2176. 13
  2177. 18 0
  2178. 11 00000315
  2179. 10 00000366
  2180. 16 DarkModeMacro "off" "{7}"
  2181. 0 296 0
  2182. 5 0
  2183. 15
  2184. 9
  2185. 16 GetAddress &2 &3 &4 &5
  2186. 16 DarkModeMacro "off" "{7}"
  2187. 16 CheckForFrame
  2188. 13
  2189. 11 00000520
  2190. 16 DisplayQuestion &5
  2191. 13
  2192. 11 00000520
  2193. 0 296 0
  2194. 5 -1
  2195. 15
  2196. 9
  2197. 0 296 0
  2198. 5 -1
  2199. 16 MailBox &2 &4 &3 &5
  2200. 13
  2201. 18 0
  2202. 11 00000595
  2203. 10 00000618
  2204. 16 SendIt &2 &4 &3 &5
  2205. 0 789 ""
  2206. 0 284 "user,ShowCaret,HA" ""
  2207. 6 1
  2208. 15
  2209. 9
  2210. 14 MergeIt
  2211. 0 2 "Would you like to merge this file to your EMail service?" "Ami Pro"
  2212. 13
  2213. 1 3
  2214. 11 00000121
  2215. 5 -1
  2216. 15
  2217. 9
  2218. 0 789 "Now merging to EMail server"
  2219. 2 110 4 0 "{0}" "{1}"
  2220. 16 GetAddress &3 &5 &4 &6
  2221. 16 SendIt &3 &4 &5 &6
  2222. 5 1
  2223. 2 116 1 2
  2224. 13
  2225. 18 0
  2226. 11 00000519
  2227. 16 GetAddress &3 &5 &4 &6
  2228. 5 0
  2229. 16 SendIt &3 &4 &5 &6
  2230. 13
  2231. 18 0
  2232. 11 00000372
  2233. 0 274 020
  2234. 10 00000506
  2235. 0 3 "Merging could not continue.  Could not send mail.  This name may not be in the address book." "Ami Pro"
  2236. 2 116 1 4
  2237. 10 00000519
  2238. 10 00000231
  2239. 0 789 ""
  2240. 5 0
  2241. 15
  2242. 9
  2243. 6 2
  2244. 15
  2245. 9
  2246. 14 SendIt
  2247. 0 296 1
  2248. 27 0
  2249. 8 11
  2250. 27 1
  2251. 8 12
  2252. 27 2
  2253. 8 13
  2254. 27 3
  2255. 8 14
  2256. 5 1
  2257. 8 15
  2258. 5 1
  2259. 8 16
  2260. 5 0
  2261. 16 InitDDE &8
  2262. 13
  2263. 0 805 &5 [X]
  2264. 13
  2265. 18 0
  2266. 11 00000173
  2267. 0 296 0
  2268. 5 -1
  2269. 15
  2270. 9
  2271. 6 8
  2272. 7 "Notes"
  2273. 18 0
  2274. 11 00000396
  2275. 0 284 "Keyboard.drv,AnsiToOem,HCC" "{11}" &11
  2276. 0 284 "Keyboard.drv,AnsiToOem,HCC" "{12}" &12
  2277. 0 284 "Keyboard.drv,AnsiToOem,HCC" "{13}" &13
  2278. 0 284 "Keyboard.drv,AnsiToOem,HCC" "{14}" &14
  2279. 0 11 "{5}" "NewMessage"
  2280. 0 789 "Sending message to {11}"
  2281. 16 SendParse "{5}" "To" "{11}"
  2282. 16 SendParse "{5}" "CC" "{12}"
  2283. 0 18 "{14}"
  2284. 13
  2285. 16 SendParse "{5}" "AttachFile" [X]
  2286. 7 ""
  2287. 6 13
  2288. 18 1
  2289. 11 00000630
  2290. 0 11 "{5}" "Subject {13}"
  2291. 6 8
  2292. 7 "Notes"
  2293. 18 0
  2294. 11 00000838
  2295. 0 1313 217 24 155
  2296. 13
  2297. 11 00000825
  2298. 5 -1
  2299. 0 11 "{5}" "PasteClip"
  2300. 13
  2301. 18 0
  2302. 11 00000825
  2303. 0 3 "Could not send mail." "Ami Pro"
  2304. 0 9 "{5}"
  2305. 0 296 0
  2306. 5 -1
  2307. 15
  2308. 9
  2309. 10 00001013
  2310. 0 1313 217 24 155
  2311. 13
  2312. 11 00001013
  2313. 5 -1
  2314. 0 11 "{5}" "Paste"
  2315. 13
  2316. 0 805 &10 [X]
  2317. 13
  2318. 18 0
  2319. 11 00001013
  2320. 0 3 "Could not send mail." "Ami Pro"
  2321. 0 9 "{5}"
  2322. 0 296 0
  2323. 5 -1
  2324. 15
  2325. 9
  2326. 0 11 "{5}" "Send"
  2327. 0 9 "{5}"
  2328. 0 296 0
  2329. 6 4
  2330. 15
  2331. 9
  2332. 14 SendParse
  2333. 5 1
  2334. 8 5
  2335. 5 -1
  2336. 0 20 "{2}" "{5}" ","
  2337. 13
  2338. 0 805 &4 [X]
  2339. 13
  2340. 18 1
  2341. 11 00000310
  2342. 16 Ltrim "{4}"
  2343. 13
  2344. 8 4
  2345. 6 1
  2346. 7 "AttachFile"
  2347. 18 0
  2348. 11 00000225
  2349. 0 280 "{4}" 0
  2350. 13
  2351. 11 00000212
  2352. 0 11 "{0}" "{1} {4}"
  2353. 10 00000277
  2354. 7 ""
  2355. 6 4
  2356. 18 1
  2357. 11 00000277
  2358. 0 11 "{0}" "{1} {4}"
  2359. 6 5
  2360. 5 1
  2361. 3 0
  2362. 8 5
  2363. 10 00000024
  2364. 6 3
  2365. 15
  2366. 9
  2367. 14 GetAddress
  2368. 5 0
  2369. 8 5
  2370. 16 Findit "to:" &0 &5
  2371. 5 0
  2372. 16 Findit "subject:" &1 &5
  2373. 13
  2374. 18 0
  2375. 11 00000127
  2376. 16 Findit "re:" &1 &5
  2377. 16 Findit "cc:" &2 &5
  2378. 5 0
  2379. 16 Findit "attachment:" &3 &5
  2380. 13
  2381. 18 0
  2382. 11 00000241
  2383. 16 Findit "attachments:" &3 &5
  2384. 16 CopyClip "{5}"
  2385. 6 4
  2386. 15
  2387. 9
  2388. 14 FindIt
  2389. 2 488 1 0 0 8196 "{0}" ""
  2390. 13
  2391. 8 4
  2392. 6 4
  2393. 5 1
  2394. 18 0
  2395. 11 00000256
  2396. 0 6 "[16422]"
  2397. 0 6 "[16424]"
  2398. 0 37
  2399. 13
  2400. 8 5
  2401. 16 StripDown "{0}" "{5}"
  2402. 13
  2403. 8 5
  2404. 6 5
  2405. 28 1
  2406. 0 293
  2407. 13
  2408. 0 20 [X] 2 ","
  2409. 13
  2410. 8 6
  2411. 6 6
  2412. 27 2
  2413. 18 5
  2414. 11 00000244
  2415. 6 6
  2416. 28 2
  2417. 5 1
  2418. 15
  2419. 9
  2420. 5 0
  2421. 15
  2422. 9
  2423. 6 3
  2424. 15
  2425. 9
  2426. 14 StripDown
  2427. 0 14 "{0}"
  2428. 13
  2429. 8 3
  2430. 0 14 "{1}"
  2431. 13
  2432. 8 4
  2433. 6 4
  2434. 6 3
  2435. 3 1
  2436. 0 807 "{1}" [X]
  2437. 13
  2438. 8 5
  2439. 5 1
  2440. 8 6
  2441. 0 14 "{5}"
  2442. 13
  2443. 6 6
  2444. 18 2
  2445. 12 00000193
  2446. 10 00000357
  2447. 5 1
  2448. 6 6
  2449. 3 0
  2450. 8 6
  2451. 10 00000107
  2452. 0 806 "{5}" 1
  2453. 13
  2454. 8 7
  2455. 5 0
  2456. 0 808 0 "     :" "{7}"
  2457. 13
  2458. 18 0
  2459. 11 00000292
  2460. 10 00000357
  2461. 10 00000344
  2462. 0 14 "{5}"
  2463. 13
  2464. 5 1
  2465. 3 1
  2466. 0 807 "{5}" [X]
  2467. 13
  2468. 8 5
  2469. 10 00000160
  2470. 6 5
  2471. 15
  2472. 9
  2473. 6 2
  2474. 15
  2475. 9
  2476. 14 CopyClip
  2477. 0 32 2
  2478. 7 "This document may contain a table, frame or a footnote; to maintain these items, attach this file to the message.  {3} '{4}' to the message?"
  2479. 8 2
  2480. 0 293
  2481. 13
  2482. 0 20 [X] 2 ","
  2483. 13
  2484. 8 5
  2485. 6 0
  2486. 5 0
  2487. 18 0
  2488. 11 00000265
  2489. 0 6 "[16420]"
  2490. 10 00000378
  2491. 6 5
  2492. 6 0
  2493. 18 3
  2494. 11 00000355
  2495. 0 6 "[40]"
  2496. 0 293
  2497. 13
  2498. 0 20 [X] 2 ","
  2499. 13
  2500. 8 5
  2501. 10 00000265
  2502. 0 6 "[37][16424][39]"
  2503. 0 6 "[20515]"
  2504. 0 1313 217 24 154
  2505. 13
  2506. 11 00000451
  2507. 2 154 1
  2508. 10 00000464
  2509. 0 1038 "" 1
  2510. 0 6 "[27]"
  2511. 6 1
  2512. 15
  2513. 9
  2514. 14 DisplayQuestion
  2515. 27 0
  2516. 8 2
  2517. 0 34 0 0
  2518. 13
  2519. 11 00000097
  2520. 7 "Save and attach"
  2521. 8 3
  2522. 10 00000114
  2523. 7 "Attach"
  2524. 8 3
  2525. 0 279 1
  2526. 13
  2527. 8 4
  2528. 0 21 "This document may contain a table, frame or a footnote; to maintain these items, attach this file to the message.  {3} '{4}' to the message?" 3 "Ami Pro"
  2529. 13
  2530. 8 5
  2531. 5 2
  2532. 6 5
  2533. 18 0
  2534. 11 00000369
  2535. 5 1
  2536. 15
  2537. 9
  2538. 10 00000697
  2539. 10 00000697
  2540. 5 6
  2541. 6 5
  2542. 18 0
  2543. 11 00000643
  2544. 0 267
  2545. 13
  2546. 8 4
  2547. 6 4
  2548. 7 ""
  2549. 18 0
  2550. 11 00000523
  2551. 24 104
  2552. 13
  2553. 11 00000498
  2554. 0 267
  2555. 13
  2556. 8 4
  2557. 10 00000510
  2558. 5 0
  2559. 15
  2560. 9
  2561. 10 00000532
  2562. 2 103 1
  2563. 6 2
  2564. 7 ""
  2565. 18 0
  2566. 11 00000586
  2567. 6 4
  2568. 28 0
  2569. 10 00000618
  2570. 0 16 "{2}" "," "{4}"
  2571. 13
  2572. 28 0
  2573. 5 0
  2574. 15
  2575. 9
  2576. 10 00000697
  2577. 5 7
  2578. 6 5
  2579. 18 0
  2580. 11 00000697
  2581. 5 0
  2582. 15
  2583. 9
  2584. 10 00000697
  2585. 6 1
  2586. 15
  2587. 9
  2588. 14 CheckForFrame
  2589. 0 1313 24
  2590. 13
  2591. 11 00000058
  2592. 5 1
  2593. 15
  2594. 9
  2595. 0 1313 86 0
  2596. 13
  2597. 11 00000100
  2598. 5 1
  2599. 15
  2600. 9
  2601. 0 1308
  2602. 13
  2603. 8 1
  2604. 6 1
  2605. 21 2 [X]
  2606. 0 1309 &2
  2607. 5 0
  2608. 0 1044 &2 "Table Text"
  2609. 13
  2610. 18 1
  2611. 11 00000207
  2612. 5 1
  2613. 15
  2614. 9
  2615. 6 0
  2616. 15
  2617. 9
  2618. 14 DarkModeMacro
  2619. 5 4
  2620. 21 3 [X]
  2621. 0 17 "{0}"
  2622. 13
  2623. 8 0
  2624. 7 "on"
  2625. 6 0
  2626. 18 0
  2627. 11 00000192
  2628. 0 1313 267
  2629. 13
  2630. 28 1
  2631. 2 466 1 "DarkMode" 4003
  2632. 0 284 "user,SendMessage,JHHHJ" "{1}" 11 0 ""
  2633. 10 00000420
  2634. 7 "off"
  2635. 6 0
  2636. 18 0
  2637. 11 00000420
  2638. 0 284 "user,SendMessage,JHHHJ" "{1}" 11 1 ""
  2639. 2 466 1 "DarkMode" 4002
  2640. 2 466 1 "DarkMode" 4004
  2641. 0 284 "User,GetClientRect,HHN" "{1}" &3
  2642. 0 284 "user,InvalidateRect,HHFH" "{1}" &3 1
  2643. 10 00000420
  2644. 6 2
  2645. 15
  2646. 9
  2647. 14 InitDDE
  2648. 0 32 2
  2649. 5 0
  2650. 8 4
  2651. 5 1
  2652. 8 5
  2653. 6 5
  2654. 5 7
  2655. 18 5
  2656. 11 00000412
  2657. 0 1032 "Lotus Notes"
  2658. 13
  2659. 11 00000154
  2660. 7 "Notes"
  2661. 8 6
  2662. 7 "Notes"
  2663. 28 0
  2664. 10 00000298
  2665. 0 1032 "cc:Mail"
  2666. 13
  2667. 11 00000236
  2668. 7 "wMail"
  2669. 8 6
  2670. 7 "ccMail"
  2671. 28 0
  2672. 10 00000298
  2673. 6 4
  2674. 5 0
  2675. 18 0
  2676. 11 00000298
  2677. 16 TryToExec
  2678. 13
  2679. 8 7
  2680. 5 1
  2681. 8 4
  2682. 5 0
  2683. 0 8 "{6}" "SendMail"
  2684. 13
  2685. 0 805 &2 [X]
  2686. 13
  2687. 18 1
  2688. 11 00000379
  2689. 10 00000412
  2690. 6 5
  2691. 5 1
  2692. 3 0
  2693. 8 5
  2694. 10 00000040
  2695. 6 2
  2696. 15
  2697. 9
  2698. 6 1
  2699. 15
  2700. 9
  2701. 14 TryToExec
  2702. 0 286 "LotusMail" "Application" "Win.ini"
  2703. 13
  2704. 8 5
  2705. 0 286 "LotusMail" "Program" "Win.Ini"
  2706. 13
  2707. 8 6
  2708. 5 0
  2709. 0 14 "{6}"
  2710. 13
  2711. 0 805 &1 [X]
  2712. 13
  2713. 18 1
  2714. 11 00000416
  2715. 7 "\"
  2716. 0 15 "{6}" "{1}" 1
  2717. 13
  2718. 0 805 &2 [X]
  2719. 13
  2720. 18 1
  2721. 11 00000273
  2722. 6 1
  2723. 5 1
  2724. 3 1
  2725. 8 1
  2726. 10 00000172
  2727. 0 806 "{6}" "{1}"
  2728. 13
  2729. 8 3
  2730. 0 14 "{6}"
  2731. 13
  2732. 6 1
  2733. 3 1
  2734. 0 807 "{6}" [X]
  2735. 13
  2736. 8 7
  2737. 16 tryit "{3}" "{7}"
  2738. 13
  2739. 5 31
  2740. 18 3
  2741. 11 00000416
  2742. 5 1
  2743. 15
  2744. 9
  2745. 16 GetProfile "mail"
  2746. 13
  2747. 0 20 [X] 1 ","
  2748. 13
  2749. 8 8
  2750. 16 GetProfile "mail"
  2751. 13
  2752. 0 20 [X] 2 ","
  2753. 13
  2754. 8 9
  2755. 16 tryit "{8}" "{9}"
  2756. 13
  2757. 5 31
  2758. 18 3
  2759. 11 00000581
  2760. 5 1
  2761. 15
  2762. 9
  2763. 7 "your mail service."
  2764. 8 10
  2765. 16 Navigate "{10}" &4
  2766. 13
  2767. 0 805 &3 [X]
  2768. 13
  2769. 5 0
  2770. 18 1
  2771. 11 00000772
  2772. 16 tryit "{3}" "{4}"
  2773. 13
  2774. 5 31
  2775. 18 3
  2776. 11 00000772
  2777. 16 writeprofile "{3}" "{4}"
  2778. 5 1
  2779. 15
  2780. 9
  2781. 5 0
  2782. 15
  2783. 9
  2784. 6 0
  2785. 15
  2786. 9
  2787. 14 tryit
  2788. 0 781 "{0}"
  2789. 0 16 "{0}" "{1}"
  2790. 13
  2791. 0 22 [X] "" 2
  2792. 13
  2793. 15
  2794. 9
  2795. 6 2
  2796. 15
  2797. 9
  2798. 14 writeprofile
  2799. 0 16 "{0}" "," "{1}"
  2800. 13
  2801. 0 287 "LotusApps" "Mail" [X] "amipro2.ini"
  2802. 6 2
  2803. 15
  2804. 9
  2805. 14 getprofile
  2806. 0 286 "LotusApps" "{0}" "amipro2.ini"
  2807. 13
  2808. 0 805 &2 [X]
  2809. 13
  2810. 7 ""
  2811. 18 1
  2812. 11 00000113
  2813. 6 2
  2814. 15
  2815. 9
  2816. 0 286 "LotusApps" "{0}" "amipro.ini"
  2817. 13
  2818. 15
  2819. 9
  2820. 6 1
  2821. 15
  2822. 9
  2823. 14 Navigate
  2824. 0 802
  2825. 13
  2826. 8 4
  2827. 0 31 9001 "*.exe"
  2828. 0 31 8007 "{0}"
  2829. 0 47 112 "{4}!DisplayHelp"
  2830. 0 26 "." "findapp"
  2831. 13
  2832. 0 805 &3 [X]
  2833. 13
  2834. 5 1
  2835. 18 1
  2836. 11 00000171
  2837. 5 0
  2838. 15
  2839. 9
  2840. 0 27 9001
  2841. 13
  2842. 28 1
  2843. 0 290
  2844. 13
  2845. 15
  2846. 9
  2847. 6 2
  2848. 15
  2849. 9
  2850. 14 DisplayHelp
  2851. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  2852. 13
  2853. 8 1
  2854. 0 798
  2855. 13
  2856. 0 16 [X] "HelpPack.hlp"
  2857. 13
  2858. 8 2
  2859. 5 135
  2860. 8 3
  2861. 0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
  2862. 6 0
  2863. 15
  2864. 9
  2865. 14 MailBox
  2866. 0 802
  2867. 13
  2868. 8 5
  2869. 0 32 2
  2870. 27 1
  2871. 7 ""
  2872. 18 1
  2873. 11 00000268
  2874. 7 "AMIPRO2.INI"
  2875. 8 6
  2876. 0 286 "AmiMailer" "DisplayBox" "{6}"
  2877. 13
  2878. 8 7
  2879. 6 7
  2880. 7 ""
  2881. 18 0
  2882. 11 00000224
  2883. 7 "yes"
  2884. 8 7
  2885. 0 287 "AmiMailer" "DisplayBox" "{7}" "{6}"
  2886. 6 7
  2887. 7 "no"
  2888. 18 0
  2889. 11 00000268
  2890. 5 1
  2891. 15
  2892. 9
  2893. 0 271 "Files" 1
  2894. 27 3
  2895. 8 8
  2896. 0 264 "Files" "{8}"
  2897. 0 31 8000 "{0}"
  2898. 0 31 8001 "{1}"
  2899. 0 31 8002 "{2}"
  2900. 0 41 21 "{5}!Attacher"
  2901. 0 47 112 "{5}!DisplayHelp"
  2902. 0 26 "." "mailbox"
  2903. 13
  2904. 8 9
  2905. 6 9
  2906. 5 1
  2907. 18 1
  2908. 11 00000506
  2909. 0 266 "Files"
  2910. 5 -1
  2911. 15
  2912. 9
  2913. 0 27 8000
  2914. 13
  2915. 28 0
  2916. 0 27 8001
  2917. 13
  2918. 28 1
  2919. 0 27 8002
  2920. 13
  2921. 28 2
  2922. 0 265 "files"
  2923. 13
  2924. 28 3
  2925. 0 266 "Fil.es"
  2926. 0 27 20
  2927. 13
  2928. 8 10
  2929. 6 10
  2930. 5 1
  2931. 18 0
  2932. 11 00000715
  2933. 0 287 "AmiMailer" "DisplayBox" "no" "{6}"
  2934. 10 00000759
  2935. 0 287 "AmiMailer" "DisplayBox" "yes" "{6}"
  2936. 5 1
  2937. 15
  2938. 9
  2939. 6 4
  2940. 15
  2941. 9
  2942. 14 attacher
  2943. 0 802
  2944. 13
  2945. 8 5
  2946. 0 290
  2947. 13
  2948. 8 6
  2949. 0 31 7999 "{6}"
  2950. 0 41 21 "{5}!MoveIt"
  2951. 0 41 22 "{5}!MoveIt"
  2952. 0 41 20 "{5}!MoveIt"
  2953. 0 41 0 "{5}!MoveIt"
  2954. 0 47 112 "{5}!DisplayHelp"
  2955. 0 26 "." "Attach"
  2956. 13
  2957. 8 7
  2958. 0 284 "User,SetFocus,HH" "{0}"
  2959. 6 3
  2960. 15
  2961. 9
  2962. 14 MoveIt
  2963. 0 44 "{0}" 9002
  2964. 13
  2965. 8 4
  2966. 0 44 "{0}" 9001
  2967. 13
  2968. 8 5
  2969. 5 21
  2970. 6 1
  2971. 18 0
  2972. 11 00000334
  2973. 0 42 "{0}" 9001
  2974. 13
  2975. 8 8
  2976. 0 808 0 "{8}" "]"
  2977. 13
  2978. 5 0
  2979. 18 1
  2980. 11 00000178
  2981. 6 3
  2982. 15
  2983. 9
  2984. 0 290
  2985. 13
  2986. 0 16 [X] "{8}"
  2987. 13
  2988. 0 17 [X]
  2989. 13
  2990. 8 9
  2991. 5 -1
  2992. 0 1036 "{4}" 1040 -1 "{9}"
  2993. 13
  2994. 18 0
  2995. 11 00000308
  2996. 0 43 "{0}" 9002 "{9}"
  2997. 10 00001161
  2998. 10 00001161
  2999. 5 22
  3000. 6 1
  3001. 18 0
  3002. 11 00000461
  3003. 0 1036 "{4}" 1033 0 0
  3004. 13
  3005. 8 10
  3006. 0 1036 "{4}" 1027 "{10}" 0
  3007. 13
  3008. 8 11
  3009. 10 00001161
  3010. 10 00001161
  3011. 5 20
  3012. 6 1
  3013. 18 0
  3014. 11 00000941
  3015. 0 1036 "{4}" 1036 0 0
  3016. 13
  3017. 8 12
  3018. 5 1
  3019. 8 13
  3020. 6 12
  3021. 6 13
  3022. 18 2
  3023. 12 00000614
  3024. 10 00000758
  3025. 5 1
  3026. 6 13
  3027. 3 0
  3028. 8 13
  3029. 10 00000535
  3030. 6 13
  3031. 5 1
  3032. 3 1
  3033. 0 1036 "{4}" 1031 [X] 0
  3034. 0 42 "{0}" 9002
  3035. 13
  3036. 8 6
  3037. 6 6
  3038. 7 ""
  3039. 18 1
  3040. 11 00000745
  3041. 0 16 "{14}" ", " "{6}"
  3042. 13
  3043. 8 14
  3044. 10 00000579
  3045. 6 14
  3046. 7 ""
  3047. 18 1
  3048. 11 00000844
  3049. 0 14 "{14}"
  3050. 13
  3051. 5 2
  3052. 3 1
  3053. 0 807 "{14}" [X]
  3054. 13
  3055. 8 14
  3056. 0 264 "Files" "{14}"
  3057. 0 284 "user,PostMessage,HHHHHH" "{0}" 273 2 0 0
  3058. 10 00001161
  3059. 10 00001161
  3060. 0 265 "Files"
  3061. 13
  3062. 8 15
  3063. 5 1
  3064. 8 11
  3065. 5 -1
  3066. 0 20 "{15}" "{11}" ","
  3067. 13
  3068. 0 805 &7 [X]
  3069. 13
  3070. 18 1
  3071. 11 00001161
  3072. 16 Ltrim "{7}"
  3073. 13
  3074. 8 7
  3075. 6 7
  3076. 7 ""
  3077. 18 1
  3078. 11 00001126
  3079. 0 43 "{0}" 9002 "{7}"
  3080. 6 11
  3081. 5 1
  3082. 3 0
  3083. 8 11
  3084. 10 00000977
  3085. 6 3
  3086. 15
  3087. 9
  3088. 14 LTrim
  3089. 6 0
  3090. 7 " "
  3091. 18 0
  3092. 11 00000053
  3093. 6 1
  3094. 15
  3095. 9
  3096. 0 806 "{0}" 1
  3097. 13
  3098. 7 " "
  3099. 18 0
  3100. 11 00000163
  3101. 0 14 "{0}"
  3102. 13
  3103. 5 1
  3104. 3 1
  3105. 0 807 "{0}" [X]
  3106. 13
  3107. 8 0
  3108. 10 00000053
  3109. 6 0
  3110. 15
  3111. 9
  3112. 6 1
  3113. 15
  3114. 9
  3115. DIALOG Attach
  3116. -2134376448 9 49 56 256 102 "" "AmiDialog" "Attach Files" 
  3117. FONT 8 "Helv" 
  3118. 213 3 40 14 20 1342373889 "button" "OK" 0 
  3119. 213 19 40 14 2 1342373888 "button" "Cancel" 0 
  3120. 3 14 60 80 9001 1352728579 "listbox" "" 0 
  3121. 111 14 98 80 9002 1352728577 "listbox" "" 0 
  3122. 66 32 43 14 21 1342373888 "button" "Move >>" 0 
  3123. 66 50 43 14 22 1342373888 "button" "<< Remove" 0 
  3124. 3 2 82 10 7999 1342177280 "static" "text" 0 
  3125. 112 2 56 10 1001 1342177280 "static" "Attachments:" 0 
  3126. 238 182 10 14 1 1342373888 "button" "&z" 0 
  3127. DIALOG mailbox
  3128. -2134376448 9 55 58 198 57 "" "AmiDialog" "Confirm Mail to Send" 
  3129. FONT 8 "Helv" 
  3130. 4 8 28 10 1000 1342177280 "static" "To:" 0 
  3131. 38 6 108 12 8000 1350631552 "edit" "" 0 
  3132. 4 22 28 10 1001 1342177280 "static" "cc:" 0 
  3133. 38 20 108 12 8001 1350631552 "edit" "" 0 
  3134. 4 36 28 10 1002 1342177280 "static" "Subject:" 0 
  3135. 38 34 108 12 8002 1350631552 "edit" "" 0 
  3136. 153 4 40 14 1 1342373889 "button" "OK" 0 
  3137. 153 20 40 14 2 1342373888 "button" "Cancel" 0 
  3138. 153 36 40 14 21 1342373888 "button" "Attach..." 0 
  3139. DIALOG findapp
  3140. -2134376448 7 70 35 200 97 "" "" "Find Application" 
  3141. FONT 8 "Helv" 
  3142. 7 34 59 8 1000 1342177280 "static" "&Program path:" 0 
  3143. 6 45 60 44 9001 1352728579 "listbox" "" 0 
  3144. 155 5 40 14 1 1342373889 "button" "OK" 0 
  3145. 155 21 40 14 2 1342373888 "button" "Cancel" 0 
  3146. 68 34 80 8 7999 1342177280 "static" "" 0 
  3147. 7 6 142 9 1006 1342177280 "static" "Change into the directory that contains" 0 
  3148. 7 16 107 8 8007 1342177280 "static" "" 0 
  3149. 00035249
  3150.