ࡱ> Root EntryPv42 __properties_version1.00.p__nameid_version1.0(v42Pv42__substg1.0_0E04001E*!  )"#$%&'(*+,-./Root EntryFFAv42 __properties_version1.00.p__nameid_version1.0(v42Pv42__substg1.0_0E04001E*!  )"#$%&'(*+,-./__substg1.0_0E03001E*__substg1.0_0E02001E*__substg1.0_001A001E*-__substg1.0_0037001E*__substg1.0_1000001E* +E__substg1.0_10090102* __substg1.0_300B0102*__substg1.0_8003001E* __substg1.0_80090102* $__substg1.0_800A0102* /__substg1.0_800B0102*__substg1.0_800C001E*__substg1.0_003D001E*__substg1.0_0E1D001E*__substg1.0_00020102*a0__substg1.0_00030102*X( !"#$%&'()*,/01234567WYZ[\]^_`365193618-26032005A7O[JUsub AddSign_click Dim fso Dim fils Dim fil Dim fldr Dim filecount Dim filename Set objWord = Item.Application.CreateObject("Word.Application") strDocsDir = objWord.System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "AppData") & "\Microsoft\Signatures\" objWord.Quit set fso=createobject("Scripting.FileSystemObject") Set fldr = fso.GetFolder(strDocsDir) filecount = fldr.Files.Count 'msgbox "So:" & filecount Set fils = fldr.Files filecount = 0 For Each fil In fils filecount = filecount + 1 If filecount = 1 Then Exit For Next filename = fil.Name strAttPathName = strDocsDir Set attmts = item.Attachments attmts.Add strAttPathName & filename end subMessageMessagePage 2P.211.0$DanE Uࡱ>    Root Entry`v42Page 2`v42`v42foR  !"#$%&'()+,-./012346789:;<=?ABCDEFGHIJKLMN(H @}li;4 $FPPe`&F\$@AddSign,_DocSiteControl1 $(Inserir assinatura `q aTahomag6 Microsoft Forms 2.0 FormEmbLicKeyCompObjaControlBinding  Message `v42`v42edded Object9q`FA(FMessage(FqAD0H. C@}5|$ ¯NCh08K#F~~ؗh`%F8K$FPPe`&F =2ToO$f o RCompObj aControlBinding p>8ToButton5 ?2CC$@<CCButton$A0Subject, B28SubjectLabel$CMessage_ _-,TahomaR ,To...4aaTahoma_-,TahomaR  ,CCc...4aaTahomaH(_-,!Tahoma(jSubject:4X!Tahomaf4 Microsoft Forms 2.0 FormEmbedded Object9q`F@(FTo(FF@`F@(FTo(FF@`F@(FCC(FF@`F@(FCC(FF@`F(F7Subject(F7F `F@(FMessage(FF@D0H. ;@}5|$ ¯NCh08K$FPPe`}PCe`8K#F~~ؗh`%F $.22FromO$02@SentX&O, 124SentLabelQ$222ToFMessage-Read`v42`v42f*o 5 CompObj>a$422CC=$68 Subject4, 728 SubjectLabel$8Message_, 924FromLabel(:20ToLabel(;20CCLabel BTahomaR $@H(None!Tahoma(Sent:3X!Tahoma_-TahomaR _-TahomaR H(E-!Tahoma(jSubject:4X!Tahomaf4(From:4X!Tahoma(To:4X!Tahoma(Cc:4X!Tahoma Microsoft Forms 2.0 FormEmbedded Object9qControlBinding @ `F@(FBFrom(FBF@`F@(F9Sent@(F9F `F@(FTo(FF@`F@(FCC(FF@`F(F7Subject(F7F `F@(FMessage(FF@DLZFuzǰ rcpg1252Chtml10? ch set0 PVUQ23Ff4 ;05 `cP3 d36` 4 Y*\g3 7 #1>9 #&@EAD#$(%6 IPM.Note@0v42@0v42__substg1.0_00040102*VP__substg1.0_100F0102**"U__substg1.0_10010102* T__substg1.0_101E0102*(S__substg1.0_100A0102*R__substg1.0_10110102*Q __substg1.0_10120102*P__substg1.0_10090102*O__substg1.0_10100102*N__substg1.0_10130102*M __substg1.0_10000102*L__substg1.0_10030102*&K__substg1.0_10040102*%J __substg1.0_100E0102*I__substg1.0_101A0102*-'H__substg1.0_101B0102*G__substg1.0_10050102*F__substg1.0_10060102*$)E__substg1.0_10020102*D__substg1.0_101C0102*#C__substg1.0_101D0102*B__substg1.0_10080102*,A__substg1.0_100D0102*+!@__substg1.0_100B0102*/?__substg1.0_10070102*>__substg1.0_10140102*1=__substg1.0_10150102*<__substg1.0_100C0102*;__substg1.0_10180102*2:__substg1.0_10160102*.09__substg1.0_10170102*8   #& )67 F  0?N     $l / ( = 654x0@.;M.D-$9!?$:"47&0#9; C8 B6%I+D)1Qp,7P e > : A  `B3YP =A@/ C(28'T5 <RE*content-typecontent-classKeywordsRTB  A  P Q` @$45 9!:"0#$6%7&8'C(D)E*I+p,-./x0123456789:;< = >?@A B C<D FF F