Zip n mail

Local string &ZipFile = %FilePath | &zip_name; Local string &Zip_Cmd = "D:\BatchServer\Batch\PKzip25 " | &ZipFile | " -add " | &qryFile | "." | &ext; CommitWork(); &ExitCode = Exec(&Zip_Cmd, %Exec_Synchronous + %FilePath_Absolute); &email.AddAttachment(&ZipFile, %FilePath_Absolute, &zip_name, &attachDescr, "", "");