аЯрЁБс>ўџ  ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџђvОЛжТ __properties_version1.00џџџџџџџџџџџџ>p__nameid_version1.0(џџџџџџџџˆ^ОЛжТ№kuОЛжТ__substg1.0_0E04001E*џџџџџџџџ§џџџџџџџџџџџ-ўџџџ 5ўџџџ !"#$%&'()*+,ўџџџ./01234ўџџџ6789:ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџF№РFpЛ‡ОЛжТ __properties_version1.00џџџџџџџџџџџџ>p__nameid_version1.0(џџџџџџџџˆ^ОЛжТ№kuОЛжТ__substg1.0_0E04001E*џџџџџџџџџџџџџџџџ§џџџ-ўџџџ 5ўџџџ !"#$%&'()*+,ўџџџ./01234ўџџџ6789:ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__substg1.0_0E03001E* џџџџ__substg1.0_0E02001E*џџџџџџџџџџџџ__substg1.0_80000102*џџџџџџџџџџџџ__substg1.0_80010102* џџџџр__substg1.0_80020102*џџџџџџџџџџџџ z__substg1.0_80030102* џџџџ>__substg1.0_80040102*џџџџџџџџџџџџ__substg1.0_80050102* џџџџ__substg1.0_001A001E*џџџџ__substg1.0_0037001E*џџџџџџџџџџџџ__substg1.0_0E1D001E*џџџџџџџџџџџџ__substg1.0_1000001E*џџџџ__substg1.0_1008001E*џџџџџџџџџџџџ__substg1.0_10090102*џџџџ __substg1.0_300B0102*џџџџџџџџџџџџ__substg1.0_800A001E*џџџџџџџџџџџџ__substg1.0_8010001E*џџџџ__substg1.0_003D001E* џџџџ__substg1.0_34140102*џџџџ__substg1.0_00020102*џџџџџџџџџџџџo ўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџ ўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџ!"#$%&'()*+,-./0123456789:;<=ўџџџ?@ABCDEFGHIJKўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџijklmnўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџNITAљПИЊ7йn602573319-1702200310.0! Ј‚агJВzsсцЩ§щLZFu–ўЭ rcpg125‚2Chtml10џї €Єф€џPVUВ5Q„ch Рset2лУ53FЧ0?о4mCя ї;0v52 `cP d3&6` Ѕ4 *\ Вg 3 CЯ—@ Ѓ#L19P G#>0% EAD#=177PTITLEW#= №Mseщ$85P/(Џ%B$? ,я%6№‚@9џ<`yР<DX €6,§>Q/7?(q4`%Я$}K€IPM.Note.HTML FirstnameDCCџџџџCCE MaxEmails MaxEmailsCLng( [MaxEmails] ) > 1""Value Must Be a Positive Integer" MaxEmailsD7SubjectSubjectDToџџџџToReplyIPM.NoteMessageREf Reply to AllIPM.NoteMessageREgForwardIPM.NoteMessageFWhReply to FolderIPM.PostPostlMessageMessagePage 6P.6Page 5P.5HTML FirstnameHTML Firstnameў ш( @€€€€€€€€€€€€€РРРџџџџџџџџџџџџ‹ˆ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ˆˆˆˆ€џџ№рр№№јј˜јјџџ@0ˆ^ОЛжТ@0ˆ^ОЛжТїєA7OЕ[ЯЄАЊJUш' This is run when we click the "Split" button Function Split_Click SplitMailing end Function ' This form sends an HTML (and it will make it HTML) e-mail to everyone in the contact folder you are sitting in when ' you hit the "Split E-mail" button. ' ' It will replace the string REPLACEFIRSTNAME with the contact's first name. Please make sure that any HTML formatting you ' use surrounds all of the REPLACEFIRSTNAME string (or the embedded HTML it will cause may make it so the application ' can't find REPLACEFIRSTNAME as a single string ' ' Please also note that embedded objects (e.g. images) will not be copied, so instead point at them on a server ' (e.g., http://www.lonelywind.com/images/mymug.jpg) Sub SplitMailing ' To keep track of our present folder Dim fldMyFolder ' A single e-mail address in a contact Dim strMyEmail ' Keep track of a new mail message Dim objNewMessage ' A single item in our folder Dim objContact ' Keep track of our success Dim blnFoundOne blnFoundOne = false ' Get our present folder Set fldMyFolder = Application.ActiveExplorer.CurrentFolder ' 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 blnFoundOne = true ' Create a new message Set objNewMessage = Application.CreateItem(0) ' Copy in our values objNewMessage.To = strMyEmail objNewMessage.Subject = Item.Subject ' This code is intentional...for some reason when I didn't set the body, the message would not ' come through with any body (even though I set an HTMLBody) objNewMessage.Body = Replace(Item.Body,"REPLACEFIRSTNAME",objContact.FirstName) objNewMessage.HTMLBody = Replace(Item.HTMLBody,"REPLACEFIRSTNAME",objContact.FirstName) ' msgbox objNewMessage.GetInspector.EditorType & " " & objNewMessage.BodyFormat ' msgbox objNewMessage.HTMLBody objNewMessage.Send End If End If Next If Not blnFoundOne Then MsgBox "No usable contacts found in """ & fldMyFolder.name & """ folder", 48, _ "No Contacts Found" End If ' Close up shop Item.Close(1) End SubаЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџ  ўџџџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџЃdОЛжТ€MessageџџџџЃdОЛжТЃdОЛжТfџџџџџџџџџџџџ&oџџџџ Žўџџџ ўџџџўџџџўџџџ ўџџџ"#$%&'()*+ўџџџ-./01234ўџџџ6ўџџџ89:;<=>?@ABCDEўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0H. G@џџЕ}чCи8 ТЏNкЮЙCЊh‡Д08K#№РF~~и—hЮІРЊ`Њ%№РF8K$№РFP›ЛPЮЕeЊ`Њ&№РFDˆ х€=2€ToлO$х€>8ToButtonд5 х€?2€CCлџ$х€@<CCButtonдх$х€A0SubjectnлЏ,ѕ €B28SubjectLabelд$х€C€Messagenд_$х€E<Splitgen\<• ђ­3,€€TahomaR ,€€To...џ4aa€Tahoma­3,€€TahomaR  ,€€CCc...a4aa€Tahoma€Hˆ(­3,!€Tahoma(€jSubject:4X!€Tahomat:ZB0 ( €SSplit E-mailaa€Tahomat:LicKeyџџџџџџџџџџџџCompObjџџџџaControlBinding џџџџџџџџџџџџxMessage-Readџџџџџџџџ ЃdОЛжТЃdОЛжТўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вq `РF@(РFџTo(РFF@`Р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 м‹$ѕ€.22€FromлO$ѕ€02@SentX&O,ѕ €124SentLabelНННQЙ$ѕ€222€ToННлF$ѕ€422€CCННл=$х€68 Sufџџџџџџџџџџџџ!Оo џџџџ, CompObjџџџџ џџџџ5aControlBinding џџџџџџџџџџџџ7bjectНл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@€џџџџD__substg1.0_00030102*џџџџhР__substg1.0_00040102*џџџџџџџџџџџџg,__substg1.0_10130102*џџџџџџџџџџџџf __substg1.0_10080102*џџџџe__substg1.0_10000102*#џџџџd__substg1.0_10110102*%џџџџџџџџc __substg1.0_10120102*/)џџџџb__substg1.0_100F0102*(џџџџa__substg1.0_10010102*џџџџџџџџџџџџ`__substg1.0_101E0102*.џџџџџџџџ___substg1.0_100A0102*$0џџџџ^__substg1.0_10020102* 'џџџџ]__substg1.0_10090102*џџџџџџџџџџџџ\__substg1.0_10100102*џџџџџџџџџџџџ[__substg1.0_10030102*џџџџџџџџџџџџZ__substg1.0_10040102*&,џџџџY __substg1.0_100E0102*џџџџџџџџџџџџX__substg1.0_101A0102*2-џџџџW__substg1.0_101B0102*џџџџџџџџџџџџV__substg1.0_10050102*џџџџџџџџџџџџU__substg1.0_10060102*+1џџџџT__substg1.0_101C0102**!џџџџS__substg1.0_101D0102*џџџџџџџџџџџџR__substg1.0_100D0102*"џџџџQ__substg1.0_100B0102*џџџџ4џџџџP__substg1.0_10070102*џџџџџџџџџџџџO__substg1.0_10140102*3џџџџN__substg1.0_10150102*џџџџџџџџџџџџM__substg1.0_100C0102*џџџџџџџџџџџџLџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€џџ€р€z€>A€-€0  #& )67 c     ј’ 0ђо?ŸN@en €€!€— € € € € €€€€€=4ђx…1…/;Mк.7€….…%9…"$……4… …7…'………6…&I…,……D…*†…2Q……p…- ˆ6P……ˆ5B…їнИЭ„…4…… 0…$… …8…(T… 5…!…R……E…+@…… ‚…0 …… C…)……3……:…#…A…ƒ…`…MaxEmailsKeywords…A……… …@………R…… T… … … … …B…ƒ…P…Q……`…………………………$…4… 5…!9…":…#0…$…%6…&7…'8…(C…)D…*E…+I…,p…-€….…/‚…0x…1†…2……3„…4ˆ5 ˆ67 РF РF