аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџЙгLР €__properties_version1.00џџџџџџџџџџџџ1А__nameid_version1.0(џџџџџџџџѓЎLРЙгLР__substg1.0_0E04001E*џџџџџџџџ§џџџџџџџџџџџ0ўџџџ ўџџџ/ !"#$%&'()*+,-.ўџџџ81234567ўџџџ9:;<=ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџF№РF#ьLР €__properties_version1.00џџџџџџџџџџџџ1А__nameid_version1.0(џџџџџџџџѓЎLРЙгLР__substg1.0_0E04001E*џџџџџџџџџџџџџџџџ§џџџ0ўџџџ ўџџџ/ !"#$%&'()*+,-.ўџџџ81234567ўџџџ9:;<=ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__substg1.0_0E03001E* џџџџ__substg1.0_0E02001E*џџџџџџџџџџџџ__substg1.0_80000102*џџџџџџџџ __substg1.0_80010102*џџџџџџџџџџџџ ј__substg1.0_80020102*џџџџ‚__substg1.0_80030102*џџџџ џџџџ >__substg1.0_80040102*џџџџ џџџџ __substg1.0_80050102*џџџџџџџџџџџџЫ__substg1.0_001A001E*џџџџ0 __substg1.0_0037001E*џџџџџџџџџџџџ/__substg1.0_0E1D001E*џџџџџџџџџџџџ__substg1.0_300B0102*џџџџ.__substg1.0_8009001E* џџџџ-__substg1.0_003D001E* џџџџ__substg1.0_00020102*џџџџџџџџџџџџa __substg1.0_00030102*џџџџYШўџџџўџџџўџџџўџџџўџџџўџџџ ўџџџўџџџ !"#$%&'()*+,ўџџџўџџџўџџџўџџџўџџџ23456789:;ўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџZ[\]^_`ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDCCџџџџE MaxEmails MaxEmailsCLng( [MaxEmails] ) > 1""Value Must Be a Positive Integer"D7SubjectDToA7OЕ[ЯЄАЊJUшConst defMaxEmails = 99 ' Function that sets our default split value when we open our message Function Item_Open Item.GetInspector.ModifiedFormPages("Message").MaxEmails.value = defMaxEmails End Function ' This is run when we click the "Split" button Function Split_Click ' How many e-mail addresses will we BCC in one message Dim MyMaxEmails ' Keeps track of whether we were given a bad Max E-mail value Dim BadValue ' Get our Max E-mails value MyMaxEmails = Item.GetInspector.ModifiedFormPages("Message").MaxEmails.value ' Check the value If Not IsNumeric(MyMaxEmails) Then BadValue = True ElseIf MyMaxEmails < 1 Then BadValue = True Else BadValue = False End If ' You know, normally I would have "Or'd" the two checks above, but for some ' reason it never worked...so... If BadValue Then MsgBox "Max E-mails """ & MyMaxEmails & """ not legit...", vbOKOnly, _ "Bad Max E-mails Value" Else SplitMailing End If end Function ' This splits up our mailing Sub SplitMailing ' To count how many e-mails we've reached Dim lngCount ' To keep track of our present folder Dim fldMyFolder ' A single e-mail address in a contact Dim strMyEmail ' Variable to hold our max count Dim lngMaxEmails ' Keep track of a new mail message Dim objNewMessage ' Keep track of whether we ever got a contact Dim intGotOne ' A single item in our folder Dim objContact ' How many e-mails will cause us to split? lngMaxEmails = Clng(Item.GetInspector.ModifiedFormPages("Message").MaxEmails.value) ' Get our present folder Set fldMyFolder = Application.ActiveExplorer.CurrentFolder ' Initialize our count lngCount = 1 ' haven't found one yet intGotOne = 0 ' Go through each item, looking for contacts... For Each objContact In fldMyFolder.Items ' Are we a contact? If objContact.Class = 40 Then ' now figure out if we have an e-mail address to use If objContact.Email1Address <> "" Then strMyEmail = objContact.Email1Address ElseIf objContact.Email2Address <> "" Then strMyEmail = objContact.Email2Address ElseIf objContact.Email3Address <> "" Then strMyEmail = objContact.Email3Address Else strMyEmail = "" End If ' Did we figure out an e-mail address If strMyEmail <> "" Then ' Are we in the need of a new message? If lngCount = 1 or lngCount > lngMaxEmails Then ' If we are the first "found" e-mail address... If lngCount = 1 Then intGotOne = 1 ' We've gone over our limit... Else objNewMessage.Send ' objNewMessage.Display lngCount = 1 End If ' Create a new message Set objNewMessage = Application.CreateItem(0) ' Copy in our values objNewMessage.To = Item.To objNewMessage.Subject = Item.Subject objNewMessage.Body = Item.Body objNewMessage.Bcc = strMyEmail ' nothin' new...just add this address to it... Else objNewMessage.BCC = objNewMessage.BCC & ";" & strMyEmail End If ' increment lngCount = lngCount + 1 End If End If Next ' Close up shop Item.Close(1) ' If we got a message...then we can go on If intGotOne Then ' objNewMessage.Display objNewMessage.Send Else MsgBox "No e-mail addresses found in folder """ & fldMyFolder.Name & """" End If End SubџџџџReplyIPM.NoteMessageREf Reply to AllIPM.NoteMessageREgForwardIPM.NoteMessageFWhReply to FolderIPM.PostPostlMessageMessagePage 6P.6Page 5P.5E-Mail Splitter IIE-Mail Splitter IIў ш( @€€€€€€€€€€€€€РРРџџџџџџџџџџџџ‹ˆwџћ№Иw{џћИpћџpџћpћ€ џћџ€`ћџћ€``џћџ€`р`џћ€ррџћџ€ћџћ€ћџћџ€wwwwpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџрџџрџџ№џџ№џџјџџјџџџџџџџџџџ˜џџјџџјџџџџџџ6 ш&(( @€€€€€€€€€€€€€РРРџџџџџџџџџџџџˆ‡83w8ћџћx‹ˆ7pˆћџћџїџ‹ˆƒpћџћџћџ{џћˆ‡ћџћџћћџћѓpџћџћџїџћџwwћџћџћїћwwџјћџћџїwћџћј{џћџћџћџћџјћџћџћџћџћјџћџћџћџћџјћџћџћџћјf`џћџћџћџјf`f`ћџћџћџћјfffћџћџћџјfff`fџџџћџћјfff`fџћџјцff`fwwwћџћјцfюцfћџћџћџјюрwf`ћџћџћџћјю`џћџћџћџјћџћџћџћјџћџћџћџћџјћџћџћџћџћјџћџћџћџћџјћџћџћџћџћјwwwwwwwwwwџџџџџџџџџрџџќјјќўўџџџ€џ€џ€Чƒ€Чџ€џ€џ€џ€џ€џ€џџџџџџџџ( Р€€€€€€€€€РРР€€€џџџџџџџџџџџџ{wˆџћ№Зˆ‹џћЗ€ћџ€џћ€ћp џћџp`ћџћp``џћџp`р`џћpррџћџpћџћpћџћџpˆˆˆˆ€џџ№рр№№јј˜јјџџBCDEFGHIўџџџџџџџџџџџџџџџџџџџџџџџџџџџ9.0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Эую‚žHЂsœBšжЇџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџ  ўџџџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ„ЧLР€Messageџџџџ„ЧLР„ЧLРfџџџџџџџџџџџџ†oџџџџ і ўџџџ ўџџџўџџџўџџџ !"#$ўџџџ&'()*+,-./ўџџџ12345678ўџџџ:ўџџџ<=>?@ABCDEFGHIўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0H. G@џџГ}ЁAД: ТЏNкЮЙCЊh‡Д08K#№РF~~и—hЮІРЊ`Њ%№РF8K$№РFP›ЛPЮЕeЊ`Њ&№РF ЄŠ х€=2€To‡лO$х€>8ToButtonд5 х€?2€CC‡лџ$х€@<CCButtonдх$х€A0SubjectnлЏ,ѕ €B28SubjectLabelд$х€C€Messagenд_$х€E<Splitgen:•0ѕ€F28MaxEmailsLabel:#(х €G0 MaxEmailsLab:џ ўg1,€€TahomaR ,€€To...e4aa€Tahomaeg1,€€TahomaR  ,€€CCc...ae4aa€Tahomae€Hˆ(g1,!€Tahomae(€jSubject:4X!€Tahomat:@ы1 ( €SSplit E-mailaa€Tahomat:( €Max E-mails:hr!€Tahomat:€Hˆ(,!€Tahomat: ўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вq `РF@(РFџTo(РFLicKeyџџџџџџџџџџџџCompObjџџџџaControlBinding џџџџџџџџџџџџˆMessage-Readџџџџџџџџ „ЧLР„ЧLРF@`РF@(РFџTo(РFF@`РF@(РFџCC(РFF@`РF@(РFџCC(РFF@`РFР(РF7џSubject(РF7FР `РF@€(РFЬЬЬЬЬЬЬЬMessage(РFF@€D0H. ;@џџА}ѓ5|$ ТЏNкЮЙCЊh‡Д08K$№РFP›ЛPЮЕeЊ`Ња}PCЮЕeЊ`Њ8K#№РF~~и—hЮІРЊ`Њ%№fџџџџџџџџџџџџ%Оo џџџџ0 CompObjџџџџ џџџџ9aControlBinding џџџџџџџџџџџџ;РF м‹$ѕ€.22€FromлO$ѕ€02@SentX&O,ѕ €124SentLabelНННQЙ$ѕ€222€ToННлF$ѕ€422€CCННл=$х€68 SubjectНл4,ѕ €728 SubjectLabelд$х€8€MessageНд_,ѕ €924FromLabelНННдЙ(ѕ€:20ToLabelНдА(ѕ€;20CCLabelНдЇ ВBН€€TahomaR $@„Hˆ(€€ШNone!€TahomaНН(€Sent:ННН3X!€TahomaНН_-€€TahomaR _-€€TahomaR „Hˆ(€E-!€TahomaНН(€jSubject:4X!€TahomaННf4Э(€From:ННН4X!€TahomaНН(€To:Н4X!€TahomaНН(€Cc:Н4X!€TahomaННўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вq `РF@(РFBџFrom(РFBF@џџџџ`РF@(РF9Sent@(РF9F `РF@(РFџTo(РFF@џџџџ`РF@(РFџCC(РFF@џџџџ`РFР(РF7џSubject(РF7FР `РF@€(РFЬЬЬЬЬЬЬЬMessage(РFF@€џџџџDIPM.Notestg1.0_10040102@0ѓЎLР@0ѓЎLРїєEEE€ џџ€ј€‚О€>О€О€ЫО   #& )67 c    0О__substg1.0_00040102*џџџџџџџџџџџџX,__substg1.0_10130102*џџџџџџџџџџџџW __substg1.0_10080102*џџџџV__substg1.0_10000102*џџџџU__substg1.0_10110102* џџџџџџџџT __substg1.0_10120102**$џџџџS__substg1.0_100F0102*#џџџџR__substg1.0_10010102*џџџџџџџџџџџџQ__substg1.0_101E0102*)џџџџџџџџP__substg1.0_10020102*"џџџџO__substg1.0_10090102*џџџџџџџџџџџџN__substg1.0_100A0102*+џџџџM__substg1.0_10100102*џџџџџџџџџџџџ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_101C0102*%џџџџD__substg1.0_101D0102*џџџџџџџџџџџџC__substg1.0_100D0102*џџџџB__substg1.0_100B0102*џџџџ/џџџџA__substg1.0_10070102*џџџџџџџџџџџџ@__substg1.0_10140102*.џџџџ?__substg1.0_10150102*џџџџ0џџџџ>__substg1.0_100C0102*џџџџџџџџџџџџ=__substg1.0_10180102*џџџџџџџџџџџџ<џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџо?Џon €€!€љo € € € € €€€€=EJ…5x…0….;Mк.8€…-…$9…!$……4……7…&………6…%I…+……D…)†…2Q……p…, ˆ7P……ˆ6B…їнИЭ„…4… …8…'… … 0…#T… 5… …R……E…*@…… ‚…/ ……C…(……3……:…"…A…`…ƒ…1MaxEmailsKeywords…A……… …@………R…T… … … … … …B…P…Q……`…………………………$…4…5… 9…!:…"0…#…$6…%7…&8…'C…(D…)E…*I…+p…,€…-….‚…/x…0ƒ…1†…2……3„…4J…5ˆ6 ˆ78 РF РF