以下内容为程序代码:

1 // 邮件提醒开始
2 OP1:=numtostr(enterprice,3);
3 ED1:=numtostr(EXITPRICE,3);
4 LIANG:=numtostr(holding,2);
5 BZJ:=numtostr(TACCOUNT(28),2);
6 址:=\'输入邮件地址\';
7 开标:=\'开仓\'+STKNAME +\'价格\'+OP1+\'方向\'+LIANG;
8 开信:=\'开仓价格\'+OP1 + \'数量\'+LIANG +\'保证金\'+BZJ;
9
10 平标:=\'平仓\'+STKNAME +\'价格\'+ED1;
11 平信:=\'平仓价格\'+ED1 + \'数量\'+LIANG +\'保证金\'+BZJ;
12
13 ST_EMAIL:=;
14 K_EMAIL:=;
15 P_EMAIL:=;
16 IF ISLASTBAR then
17 BEGIN
18     SENDMAIL(K_EMAIL,址,开标,开信); // 开仓
19     SENDMAIL(ST_EMAIL,址,平标,平信); // 止盈
20     SENDMAIL(P_EMAIL,址,平标,平信); // 平仓
21 END