5k\ E¹~XLDJ(|vIh%<= |4A ܄1103651995`aqYIOLd|5Xf$0mH  tHId@$@ 0$?AAtcself''$'smtp' cse 'Close'$:end dm:catch  Cs script :try:end8 cself'smtp' cse 'Init' 'System'8(:if ~cself 'smtp'(L 2016 9 4 21 53 51 def 'Rvars Cs script;rc;I' ' Rvars Cs script -- Executes C# "script" and optionally returns variables "vars" values' ' script: a C# script (char string or char matrix)' ' vars: (optional) one or more C# variable names' " R: either 0 0'' or a nested vector containing the variable values" '' ':if 1=script' " rccse'ExecStmt'script" ':else' " rccse'Exec'script" ':endif' ':if rc1' " error cse'GetLastError'" ':endif' ":if 2=nc'vars'" ' :if 1=vars  vars, vars  :endif' " Rcse( 'GetValue'), vars" ':endif'L( script,tcnl,'}'(, script,tcnl,' }',@ script,tcnl,' smtp.Send(mail);'@D script,tcnl,' smtp.EnableSsl = true;'D, script,tcnl,' {',h script,tcnl,' using (SmtpClient smtp = new SmtpClient("smtp.gmail.com", 587))'h( script,tcnl,''(:endD script,tcnl,' mail.IsBodyHtml = false;'D:else@ script,tcnl,' mail.IsBodyHtml = true;'@:if ishtml:endD script,tcnl,' mail.To.Add("',item,'");'D(:for item :in to to(:endH script,tcnl,' mail.Subject = "',subject,'";'HT script,tcnl,' mail.From = new MailAddress("',email,'");'T( script,tcnl,'{'(T script,tcnl,'using (MailMessage mail = new MailMessage())'T( script,tcnl,''(8 script,tcnl,'using System.Net;'8   Def (2008 1 26 17 24 29 )"TextRepl"('RT TextRepl S;I;P;C;code;ELX' "res'/old1/new1/old2/new2/...' TextRepl text -- Replace strings in text" " ELX'ERROR (^\TCNLDM)/DM'code2000042035 1745296902 0 1959465853 611647468 1166632512 1569285634 1300850194 1170695714 1711280128 269501895 1170695680 1711281184 16776776 2112936940 416 970930813 973077435 973011643 973076923 2097084603 1170608365 1170604038 1201274873 352256002 1971457828 2147483647 251659389 91781 92110848 1385107201 2097151999 1170608365 1170604038 1201274873 352256002 1233260324 2147483647 251659389 80517 92110848 646909697 1157627903 0 485995125 209554262 1229391754 234560701 772180818 276959211 2130706431 33019 259191040 1962934272 1998532157 524220859 1157719555 534029824 326371957 1189214638 16 521537302 1527513717 1201273057 352256001 712896732 1962934272 870516813 1014768245 1437994768 209554182 1229391754 1959032522 233380873 243601326 1459617792 911212075 1603484809 352009341 922627043 1519598729 105756175 277699725 1572278099 1406993152 1393607555 1185814063 0 128087215 1359498123 1938503250 7858188 1499070464 194147499 1995944567 1201270707 755040253 5669391 1300955136 1961237752 310178691 139299600 1561097611 1170695767 402652948 153 184 2105763328 2079391744 8 5093135 303306493 1962621565 1195178011 7 4073 440320 99155968 1207959552 3 28891275 352321536 1957305404 2089544789 1569394901 344667900 1108846893 1442840576 1475087 1569390592 329937924 754676938 268187605 750507210 398120700 69497991 14414713 1435233349 262849556 492303 836042752 20248 330432513 1444192679 1955011645 2089544789 1569394901 344667900 396994861 100 611617180 611616516 608995080 3265788 1435233349 262849556 885519 957874176 1 199879757 16777216 2106321997 1985678360 262006909 8834 60978432 921458059 701695115 1140925444 1955267620 1959389995 1962618036 1527519107 1508408713 1014568098 24684729 264911690 12422 12154368 870566443 2062569742 43 251722371 3716 1957603584 611617738 1504113416 1340044639 120978623 3561 737739520 65665481 50331648 24643078 50015C(STPTR 'T S R') CALL code(0=''C)0I2 3 4 5 6 7C[1+IO]P0 5 11 17 24 28 33 37ERROR'VALUEDOMAINLENGTHWS FULLRANKLIMIT????'[P[I]P[I+1]],' ERROR'") d  2016 6 22 8 35 55 def 'retlarg Def rarg;ts;code;name;SecBase' ' 2015 10 9 14 55 32 def ''RSecBase A;B;C;D;IO;CT'' "CTIO0  R(61A)''''  D 0 0 0 0 0 1 /+\A(A) 0 0 0 3600 60 1  R 1 0 0 0 0 0 /A  B 0 693961 693930 693902 693871 693841 693810 693780 693749 693718 693688 693657 693627 [0 1 0 0 0 0 /A]  A 0 0 1 0 0 0 /A" ''C400RR+1900R<100  R(1A)D+86400B+A-(((100 1 0 0 0),300 0 0 0 0 ,96 1 0 0 0)[C]^B<693902)-((R146097)-C+(1004R)-4100R)400''' '(ts name code)rarg' ':if 0=nc name' ' retts def code' ':else' " largvget 'larg' 0" ' :if (SecBase ts)): ',name" ' : 2=larg :then retts def code' ' :else' " ret'existing older (): ',name" ' : 1=larg :then retts def code' ' :end' ':end'd:end(  Def (2016 4 8 15 13 22 )"IsNested"('retIsNested arg;tmp' ':if (dr arg)326 807  ret1' ':elseif 82=dr arg' " tmp(arg)'*'" " :if =/size 'arg tmp'  ret0" ' :else  ret1' ' :end' ':else' ' :if arg' ' ret0' ' :end' ' ret0' ':end')50( 711t6larg SendGmail rarg;script;txt;sub;Cs;item;to;subject;email;pass;ishtml;Def;Nest;TextRepl;IsNested1t60˿ ETp@l \\04 d P x!$"$#$$%&p&$XX'(D(*8)*0*+1,--1x.1`/1L01$122334L45L56 6779899;X:;D;<@=@>@?@@FABhBCCFPDF8EF$FGGH?p script,tcnl,' smtp.Credentials = new NetworkCredential("',email,'", "',pass,'");'p,i script'using System;'a, t: a:endingD) (email pass)'username@gmail.com' 'mypassword'sDH :else else use default credentialsuesHciptE:endmt', :if ishtml'?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~G      t S  f B21|dH,lT<$ |d@(  e$WP|h $$\,Dpl<P< d#   "  !