125 lines
4.2 KiB
Plaintext
125 lines
4.2 KiB
Plaintext
# Property of Four Js*
|
|
# (c) Copyright Four Js 1995, 2019. All Rights Reserved.
|
|
# * Trademark of Four Js Development Tools Europe Ltd
|
|
# in the United States and elsewhere
|
|
#
|
|
# Four Js and its suppliers do not warrant or guarantee that these
|
|
# samples are accurate and suitable for your purposes. Their inclusion is
|
|
# purely for information purposes only.
|
|
|
|
ACTION DEFAULTS
|
|
ACTION send (TEXT="Send", IMAGE="mail", ACCELERATOR=CONTROL-RETURN)
|
|
ACTION attachfile (TEXT="Attach file", IMAGE="plus", ACCELERATOR=CONTROL-J)
|
|
ACTION close (IMAGE="quit", VALIDATE = NO, DEFAULTVIEW=YES)
|
|
ACTION viewattachment (DEFAULTVIEW=NO)
|
|
END
|
|
|
|
LAYOUT(TEXT="Send EMAIL")
|
|
FOLDER
|
|
PAGE p1(TEXT="Account settings")
|
|
GRID
|
|
{
|
|
[lhostname ][hostname ]
|
|
[lsmtphost ][smtphost ]
|
|
[lsmtpport ][smtpport]
|
|
[lsenderem ][senderemail ]
|
|
[lcnxtout ][cnxtimeout] (-1 = INFINITE TIMEOUT)
|
|
[chkcnf ]
|
|
[savecnf ]
|
|
}
|
|
END
|
|
END
|
|
PAGE p2(TEXT="Mail compose")
|
|
VBOX(splitter)
|
|
HBOX(splitter)
|
|
GROUP(TEXT="Recipients")
|
|
GRID
|
|
{
|
|
<T recipients >[a]
|
|
[mode|recipient ][i]
|
|
[mode|recipient ][d]
|
|
[mode|recipient ]
|
|
[mode|recipient ]
|
|
}
|
|
END
|
|
END
|
|
GROUP(TEXT="Attachments")
|
|
GRID
|
|
{
|
|
<T attachments >
|
|
[sname |fname ]
|
|
[ :add:rm]
|
|
}
|
|
END
|
|
END
|
|
END
|
|
GROUP mc(TEXT="Compose mail")
|
|
GRID
|
|
{
|
|
[s|subject ]
|
|
[mailtext ]
|
|
[ ]
|
|
[ ]
|
|
[ ]
|
|
[send]
|
|
}
|
|
END
|
|
END
|
|
END
|
|
END
|
|
PAGE p3(TEXT="SMTP Dialog log")
|
|
GRID
|
|
{
|
|
[smtplog ]
|
|
[ ]
|
|
[ ]
|
|
[ ]
|
|
}
|
|
END
|
|
END
|
|
END
|
|
|
|
ATTRIBUTES
|
|
# Configuration
|
|
# smtphost should be a simple EDIT field, but EDIT does not support STRETCH attribute.
|
|
TEXTEDIT hostname=formonly.hostname, STRETCH=X, SCROLLBARS=NONE, WANTNORETURNS;
|
|
TEXTEDIT smtphost=formonly.smtphost, STRETCH=X, SCROLLBARS=NONE, WANTNORETURNS;
|
|
TABLE recipients: UNHIDABLECOLUMNS, UNMOVABLECOLUMNS;
|
|
EDIT smtpport=formonly.smtpport;
|
|
EDIT senderemail=formonly.senderemail, SCROLL;
|
|
EDIT cnxtimeout=formonly.cnxtimeout;
|
|
BUTTON savecnf:savecnf, TEXT="Save", IMAGE="disk";
|
|
BUTTON chkcnf:chkcnf, TEXT="Check", IMAGE="refresh";
|
|
BUTTON a: srrecipients.append, IMAGE = "listadd", TEXT="";
|
|
BUTTON i: srrecipients.insert, IMAGE = "listins", TEXT="";
|
|
BUTTON d: srrecipients.delete, IMAGE = "listdel", TEXT="";
|
|
LABEL lhostname:TEXT="Hostname";
|
|
LABEL lsmtphost:TEXT="Smtp server";
|
|
LABEL lsmtpport:TEXT="Smtp port";
|
|
LABEL lsenderem:TEXT="Email";
|
|
LABEL lcnxtout:TEXT="Connection timeout";
|
|
|
|
# To
|
|
COMBOBOX mode=formonly.mode, ITEMS=("To", "CC", "BCC"), TITLE="To";
|
|
EDIT recipient=formonly.recipient, TITLE="Email";
|
|
|
|
# Subject and mail body
|
|
LABEL s: TEXT="Subject:";
|
|
EDIT subject=formonly.subject, SCROLL;
|
|
TEXTEDIT mailtext=formonly.mailtext, STRETCH=BOTH;
|
|
BUTTON send:send, TEXT="Send", IMAGE="mail";
|
|
|
|
# Attachments
|
|
TABLE attachments: DOUBLECLICK=viewattachment;
|
|
EDIT fname=formonly.fname, TITLE="Filename";
|
|
EDIT sname=formonly.sname, HIDDEN=USER, TITLE="Local Filename";
|
|
BUTTON rm: delattachment, TEXT="Remove", IMAGE="eraser";
|
|
BUTTON add: attachfile, TEXT="Attach", IMAGE="plus";
|
|
|
|
# SMTP dialog log
|
|
TEXTEDIT smtplog=formonly.logtext, STRETCH=BOTH;
|
|
|
|
INSTRUCTIONS
|
|
SCREEN RECORD srrecipients(formonly.mode, formonly.recipient);
|
|
SCREEN RECORD srattachments(formonly.fname, formonly.sname);
|