Table of Content
HAL Forum
procedure AddCRToText (
var record AnyRecord)
Description:
Adds carriage return to specified record text field (a record field with M4TextField type)
Parameters:
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;
Related topics:
««