ࡱ>  Root Entrypq __properties_version1.00;__nameid_version1.0(j}__substg1.0_0E04001E*3 : !"$%&'()*+,-./012456789;<=>?Root EntryFFb __properties_version1.00;__nameid_version1.0(j}__substg1.0_0E04001E*3 : !"$%&'()*+,-./012456789;<=>?__substg1.0_0E03001E* __substg1.0_0E02001E*__substg1.0_80000102*# __substg1.0_80010102* p __substg1.0_80020102*__substg1.0_80030102* >__substg1.0_80040102*__substg1.0_80050102* __substg1.0_001A001E*__substg1.0_0037001E*__substg1.0_0E1D001E*__substg1.0_10090102* __substg1.0_300B0102*__substg1.0_800A001E*__substg1.0_8010001E*__substg1.0_003D001E* __substg1.0_34140102*__substg1.0_00020102*j __substg1.0_00030102*c__substg1.0_00040102*b,  !"#$%&'()*+,-./0123456789:<=>?@ABCDEFdefghiNITA7n105485019-1702200310.0þӨ@I>LZFuc" rcpg1252Chtml10 PVU5Qch set253F0<C ;/052 `cP d36` d4 *\g3 CG !19!$PEAD!177TITLE!*Mse#M85}/'_#"+#6PIPM.Note.HTML E-mail SplitterDCCCCE MaxEmails MaxEmailsCLng( [MaxEmails] ) > 1""Value Must Be a Positive Integer" MaxEmailsD7SubjectSubjectDToToReplyIPM.NoteMessageREf Reply to AllIPM.NoteMessageREgForwardIPM.NoteMessageFWhReply to FolderIPM.PostPostlMessageMessagePage 6P.6Page 5P.5HTML E-mail SplitterHTML E-mail Splitter ( @ww{ppp `````wwwwp6 &(( @83w8x7pp{pwwwww{f`f`f`ffffff`ffff`fff`fwwwffwf``wwwwwwwwww( {wp p`p``p``pppp@0j@0j p >A-0  #&A7O[JUConst 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.HTMLBody = Item.HTMLBody 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ࡱ>   Root EntryPkMessagePkPkfo   !"#$&'()*+,-./12345678:<=>?@ABCDEFGHI0H. G@}A: ¯NCh08K#F~~ؗh`%F8K$FPPe`&F  =2ToO$>8ToButton5 ?2CC$@<CCButton$A0Subjectn, B28SubjectLabel$CMessagen_$E<Splitgen:0F28MaxEmailsLabel:#( G0 MaxEmailsLab: g1,TahomaR ,To...e4aaTahomaeg1,TahomaR  ,CCc...ae4aaTahomaeH(g1,!Tahomae(jSubject:4X!Tahomat:@1 ( SSplit E-mailaaTahomat:( Max E-mails:hr!Tahomat:H(,!Tahomat:  Microsoft Forms 2.0 FormEmbedded Object9q `F@(FTo(FLicKeyCompObjaControlBinding Message-Read PkPkF@`F@(FTo(FF@`F@(FCC(FF@`F@(FCC(FF@`F(F7Subject(F7F `F@(FMessage(FF@D0H. ;@}5|$ ¯NCh08K$FPPe`}PCe`8K#F~~ؗh`%f%o 0 CompObj 9aControlBinding ;F $.22FromO$02@SentX&O, 124SentLabelQ$222ToF$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 Object9q `F@(FBFrom(FBF@`F@(F9Sent@(F9F `F@(FTo(FF@`F@(FCC(FF@`F(F7Subject(F7F `F@(FMessage(FF@D__substg1.0_10130102*a __substg1.0_10080102*`__substg1.0_10000102*!___substg1.0_10110102*#^ __substg1.0_10120102*-']__substg1.0_100F0102*&\__substg1.0_10010102*[__substg1.0_101E0102*,Z__substg1.0_100A0102*".Y__substg1.0_10020102*%X__substg1.0_10090102*W__substg1.0_10100102*V__substg1.0_10030102*U__substg1.0_10040102*$*T __substg1.0_100E0102*S__substg1.0_101A0102*0+R__substg1.0_101B0102*Q__substg1.0_10050102*P__substg1.0_10060102*)/O__substg1.0_101C0102*(N__substg1.0_101D0102*M__substg1.0_100D0102* L__substg1.0_100B0102*2K__substg1.0_10070102*J__substg1.0_10140102*1I__substg1.0_10150102*H__substg1.0_100C0102*G )67 c     0?N@en !     =4x1/;M.7.%9"$4 7'6&I,D*2Qp- 6P5Bݸ4 0$ 8(T 5!RE+@ 0  C)3:#A`MaxEmailsKeywordsA @R T    BPQ`$4 5!9":#0$%6&7'8(C)D*E+I,p-./0x12345 67 F F