home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / PM301.ZIP / RESOURCE.ZIP / REMAIL.R < prev    next >
Encoding:
Text File  |  1993-08-23  |  5.3 KB  |  177 lines
  1. #
  2. #   REMAIL.R
  3. #   Sample programmable mail form for Pegasus Mail v3.0
  4. #   Copright (c) 1993, David Harris, All Rights Reserved.
  5. #
  6. #   You are granted the right to modify and distribute this
  7. #   form in any way you wish provided you do not sell it or
  8. #   any derivative either on its own or as part of any other
  9. #   package.
  10. #
  11. #   By using this form you agree to hold the author blameless
  12. #   for all or any damages or losses resulting from its use.
  13. #
  14. #   This form interfaces with the REMAIL command in Mercury 1.11
  15. #   to allow deferred mail.
  16. #
  17.  
  18. include defines.rh
  19. include forms.rh
  20.  
  21. string form_title     "Deferred Message Editor";
  22.  
  23. window fwindow    # The window in which the form appears
  24.    {
  25.    1, 1, 80, 25, BBLUE | LIGHTGREY | wplain,
  26.    BBLUE | LIGHTGREY, ' ', BSINGLE,
  27.    " Deferred Mail Editing Screen "
  28.    };
  29.  
  30. block field_text
  31.    {
  32.    2, 1, BBLUE | LIGHTGREY,
  33.    "To   :",
  34.    "Subj :",
  35.    "Cc   :",
  36.    "Defer message until - Year:     Month:     Day:     Hour:     Minute:"
  37.    };
  38.  
  39. data to         # The "to" field when sending files or messages
  40.    {
  41.    10, 1, 65, 179, 0, 0, 0, GT_STRING, GNOCLEAR
  42.    };
  43.  
  44. data subject    # The "subject" field when sending files or messages
  45.    {
  46.    10, 2, 63, 64, 0, 0, 0, GT_STRING, 0
  47.    };
  48.  
  49. data cc         # The "to" field when sending files or messages
  50.    {
  51.    10, 3, 65, 179, 0, 0, 0, GT_STRING, GNOCLEAR
  52.    };
  53.  
  54. data year
  55.    {
  56.    30, 4, 2, 2, 0, 0, 0, GT_INTEGER, 0
  57.    };
  58.  
  59. data month
  60.    {
  61.    41, 4, 2, 2, 0, 0, 0, GT_INTEGER, 0
  62.    };
  63.  
  64. data day
  65.    {
  66.    50, 4, 2, 2, 0, 0, 0, GT_INTEGER, 0
  67.    };
  68.  
  69. data hour
  70.    {
  71.    60, 4, 2, 2, 0, 0, 0, GT_INTEGER, 0
  72.    };
  73.  
  74. data minute
  75.    {
  76.    72, 4, 2, 2, 0, 0, 0, GT_INTEGER, 0
  77.    };
  78.  
  79. text subject_help
  80.    {
  81.    " The Subject Field \n",
  82.    "The subject is a one-line précis of the contents of the\n",
  83.    "message which will be displayed in the recipient's browse\n",
  84.    "list. You may leave this field blank, but it is considered\n",
  85.    "good e-mail etiquette to provide a meaningful subject."
  86.    };
  87.  
  88. text time_help
  89.    {
  90.    " Defer message until time \n",
  91.    "Edit this message as you would normally, and set the year, month,\n",
  92.    "day, hour and minute fields to the time when the message should\n",
  93.    "actually be sent. If you set a time in the past, the message will\n",
  94.    "be sent immediately.\n",
  95.    "\n",
  96.    "There are some restrictions on deferred messages:\n",
  97.    "   You can only set To: and CC: addresses\n",
  98.    "   The message may not have attachments\n",
  99.    "   Confirmation of reading and delivery is not supported\n",
  100.    "   Urgent mail is not supported\n",
  101.    "   You must be using the Mercury Transport v1.11 or later.\n",
  102.    "\n",
  103.    "Deferred mailing is intended to let you schedule simple reminder\n",
  104.    "messages or update notices.\n"
  105.    };
  106.  
  107. line xline_1
  108.    {
  109.    0, 5, 80, 0, LIGHTGREY, '─'
  110.    };
  111.  
  112. line xline_2
  113.    {
  114.    0, 21, 80, 0, LIGHTGREY, '─'
  115.    };
  116.  
  117. line xline_3
  118.    {
  119.    1, 20, 80, 0, BLIGHTGREY, ' '
  120.    };
  121.  
  122. editor message
  123.    {
  124.    1, 6, 77, 14, 70, 0, 0, BBLUE | LIGHTGREY
  125.    };
  126.  
  127. block help_text
  128.    {
  129.    1, 22, dim | wcentre,
  130.    "F1-Help  F2-Local user lists  F3-Address books  F6-Distribution lists",
  131.    "F7-File attachments  F9-More options  Ctrl-Enter-Send the message"
  132.    };
  133.  
  134. string year_dflt               "{year_2}";
  135. string month_dflt              "{nmonth}";
  136. string day_dflt                "{nday}";
  137. string hour_dflt               "{hour}";
  138. string minute_dflt             "{minute}";
  139. string maiser_dflt             "IN:MAISER";
  140. string subject_dflt            "Remail request";
  141.  
  142. text format
  143.    {
  144.    "Remail {field 12}-{field 13}-{field 14} {field 15}:{field 16}\n",
  145.    "To: {field 9}\n",
  146.    "From: {username}@{domain}\n",
  147.    "Date: {rfc-date}\n",
  148.    "Subject: {field 10}\n",
  149.    "Cc: {field 11}\n",
  150.    "\n",
  151.    "{message}",
  152.    };
  153.  
  154. formtable formdata
  155.    {
  156. #  Name........ Correlation. Help text.... Validation... Status...... Default
  157.    fwindow,     F_WINDOW,    0,            0,            0,           0,
  158.    0,           F_TO,        0,            0,            0,           maiser_dflt,
  159.    0,           F_SUBJECT,   0,            0,            0,           subject_dflt,
  160.    format,      F_SMTP_TEMPLATE, 0,        0,            0,           0,
  161.    field_text,  0,           0,            0,            0,           0,
  162.    help_text,   0,           0,            0,            0,           0,
  163.    xline_1,     0,           0,            0,            0,           0,
  164.    xline_2,     0,           0,            0,            0,           0,
  165.    xline_3,     0,           0,            0,            0,           0,
  166.    to,          F_STRING,    time_help,    0,            0,           0,
  167.    subject,     F_STRING,    subject_help, 0,            0,           0,
  168.    cc,          F_STRING,    time_help,    0,            0,           0,
  169.    year,        F_INTEGER,   time_help,    0,            0,           year_dflt,
  170.    month,       F_INTEGER,   time_help,    0,            0,           month_dflt,
  171.    day,         F_INTEGER,   time_help,    0,            0,           day_dflt,
  172.    hour,        F_INTEGER,   time_help,    0,            0,           hour_dflt,
  173.    minute,      F_INTEGER,   time_help,    0,            0,           minute_dflt,
  174.    message,     F_MESSAGE,   0,            0,            0,           0
  175.    };
  176.  
  177.