主题：发送邮件的设置

以下内容为程序代码:

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