|
|
| Puts a line of text on specified record & line |
 |
| Mailp |
Record name |
| Line |
line number |
| tstr |
String to put in |
|
procedure AddMailSignature(var record MailVc Mailp,string frompers)
begin
record ConfSignVc csp;
string 255 tstr;
Integer i,cscnt;
LongInt l;
Integer line;
if (FindUserInMailbox(frompers,tstr,l)) then begin
csp.SerNr = l;
if (ReadFirstMain(csp,1,true)) then begin
AddCRToText(Mailp);
AddCRToText(Mailp);
AddCRToText(Mailp);
line = LineTextCnt(Mailp);//this is the only place addsignature might fail
cscnt = LineTextCnt(csp);
for (i=0;i<cscnt;i=i+1) begin
tstr = LineTextGet(csp,i);
LineTextPut(Mailp,line,tstr);
line = line + 1;
end;
end;
end;
return;
end;
««