|
|
| Adds carriage return to specified record text field (a record field with M4TextField type) |
 |
| AnyRecord |
The record with a text field. |
|
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;
««