ࡱ>  Root EntryU~0OutlookVbaDataBЈVBAB0hUserForm1 0BBS/ . ,-+012F8=>?@ABCDERTV PROJECTwm qPROJECTf&o  !"#$%&'()*+,-.0123456789:;=>?@ABCDEFGHIJKLMNOPQRSVxWXYZ[\]^_`abcdefghijklmnopqrsuvwyz{|}~ID="{4DF9837F-E6A1-4B17-B8C5-7BC1D7627521}" Document=ThisOutlookSession/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Module=Module1 Name="Project1" HelpContextID="0" VersionCompatible32="393222000" CMG="686A8F5593559355935593" DPB="4B49ACD38ED48ED48E" GC="2E2CC9F04F3033313331CC" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisOutlookSession=44, 7, 713, 486, UserForm1=0, 0, 0, 0, C, 22, 22, 811, 511, C rU~}  ItemCancel Module1=88, 88, 757, 429, C 9, C okSessionUserForThisOutlookSessionThisOutlookSessionUserForj-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#K*prU~~~~~~~~~~~~X !]DP` 3225 ClientLeft = 45 ClientTop = 330 ClientWidth = 4710 StartUpPosition = 1 'CenterOwner End ons*#f*\R0*#2*\R0*#14*\ Microsoft Forms 2.0 FormEmbedded Object9q   }t 9P m1UserForm1Module1Module1p CompObj aVBFrame ThisOutlookSession& 3YUserForm1 OutlookProjectData&U+__SRP_2 h__SRP_3y__SRP_0  qRoot Entry 0OutlookVbaDataBPnVBABUserForm1 0BB__SRP_7gModule1t_VBA_PROJECT<_ dir/&DigitalSignature"Tt Checker: tYour message mentions an attachment, but doesn't have one. 0Send the message anyway?  4You forgot the attachment!VBE6.DLL  i    `   S   Subject+s.exd#M"0* pHdProject1,@ Z= n Po> %J< rst dole>stdole f%\*\G{0002`0430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Automation^ADOfficDOA>ficD D2DF8D04C-5BFA-101B-BHDE5DAAB452D1Dgram Files\Microso(ft 6\MSO9.DLL#  9.0 Ob Library#CMSForms>!SFr ms3D452EE1 -E08FXA-8-02608C4D0BB4NFM20& [L&/;!1elAl00}#:0l# 50F b816@08C-A9C7-40B1-AB02-6DCFD3E AEF176DOCUME~1\A DMINILOCALSTem@p\VBE\T.xexdb<".E .`M A"BB3@ ThisOutlookSessG$hsOuE@lpok@seqs@onT2f@HB1XB,bj"""+ Usera 1GUherM12//0#("]odule]ou!2a o(|!bap  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DP4  "#$%&'()*+,-567N:;<GHIJKLMOQU!PROJECTwm qPROJECT f&o  !"#$%&'()*+,-.0123456789:;=>?@ABCDEFGHIJKLMNOPQRSVxWXYZ[\]^_`abcdefghijklmnopqrsuvwyz{|}~LL#Visual Basic For Applications*\G{00062FFF-0000-0000-C000-000000000046}#9.1#0#C:\Program Files\Microsoft Office\Office10\msoutl.olb#Microsoft Outlook 10.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\System32\FM20.DLL#Microsoft ForID="{4DF9837F-E6A1-4B17-B8C5-7BC1D7627521}" Document=ThisOutlookSession/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Module=Module1 Name="Project1" HelpContextID="0" VersionCompatible32="393222000" CMG="E9EB0ED612D612D612D612" DPB="A4A6433645F046F046F0" GC="5F5DB8FFC801820282027D" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisOutlookSession=44, 7, 713, 486, UserForm1=0, 0, 0, 0, C, 22, 22, 811, 511, rU~}  ItemCancelC Module1=88, 88, 757, 429, C C okSessionUserForThisOutlookSessionThisOutlookSessionUserForj-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#K*prU~~~~~~~~~~~~X !]DP`ms 2.0 Object Library *\G{8166088C-A9C7-40B1-AB02-6DCFD3EAEF17}#2.0#0#C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\VBE\MSForms.exd#M,N=0  *H #ThisOutlookSessionicrosoft Forms 2.0 Object Library.E .`M   Po>B3$ThisOutlookSession01426d6ca9$ThisOutlookSessionjXUserForm10240e17ebf;UserForm10Module1044276a59b<Module1|0P0t gtF0̝%sHICTz<6DI&=90&') Outlook,V 3225 ClientLeft = 45 ClientTop = 330 ClientWidth = 4710 StartUpPosition = 1 'CenterOwner End ons*#f*\R0*#2*\R0*#14*\ Microsoft Forms 2.0 FormEmbedded Object9q   }t 9P m1UserForm1Module1Module1p CompObj aVBFrame ThisOutlookSession& 9YUserForm1 OutlookProjectData&U+__SRP_2 h__SRP_3y__SRP_0  qModule1t_VBA_PROJECT<_ dir/&DigitalSignature"T VBAWin16~Win32MacVBA6# Project1 stdole`OfficeuMSFormsC ThisOutlookSession^ _EvaluateApplication_ItemSend)ItemzCancelintRes|strMsgG& strThismsgintOldmsgstartGBodylLCase: Attachments_Count0vChrK~MsgBoxRvbYesNovbDefaultButton2 vbExclamationvbNo% UserForm1) Module1bJunk_ItBSendKeysN Application*ItemSendM _B_var_LeftQ _B_var_LCas__SRP_1__SRP_5BModule1F__SRP_6t Checker: tYour message mentions an attachment, but doesn't have one. 0Send the message anyway?  4You forgot the attachment!VBE6.DLL  i    `   S   Subject+s.exd#M"0* pHdProject1,@ Z= n Po> %J< rst dole>stdole f%\*\G{0002`0430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Automation^ADOfficDOA>ficD D2DF8D04C-5BFA-101B-BHDE5DAAB452D1Dgram Files\Microso(ft 6\MSO9.DLL#  9.0 Ob Library#CMSForms>!SFr ms3D452EE1 -E08FXA-8-02608C4D0BB4NFM20& [L&/;!1elAl00}#:0l# 50F b816@08C-A9C7-40B1-AB02-6DCFD3E AEF176DOCUME~1\A DMINILOCALSTem@p\VBE\T.xexdb<".E .`M A"BB3@ ThisOutlookSessG$hsOuE@lpok@seqs@onT2f@HB1XB,bj"""+ Usera 1GUherM12//0#("]odule]ou!2a o(|!bap  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00062FFF-0000-0000-C000-000000000046}#9.1#0#C:\Program Files\Microsoft Office\Office10\msoutl.olb#Microsoft Outlook 10.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{8166088C-A9C7-40B1-AB02-6DCFD3EAEF17}#2.0#0#C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\VBE\MSForms.exd#M,N=0  *H #ThisOutlookSessionicrosoft Forms 2.0 Object Library.E .`M   Po>B3$ThisOutlookSession01426d6ca9$ThisOutlookSessionjXUserForm10240e17ebf;UserForm10Module1044276a59b<Module1|0P0t gtF0̝%sHICTz<6DI&=90&') Outlook,V VBAWin16~Win32MacVBA6# Project1 stdole`OfficeuMSFormsC ThisOutlookSession^ _EvaluateApplication_ItemSend)ItemzCancelintRes|strMsgG& strThismsgintOldmsgstartGBodylLCase: Attachments_Count0vChrK~MsgBoxRvbYesNovbDefaultButton2 vbExclamationvbNo% UserForm1) Module1bJunk_ItBSendKeysN Application*ItemSendM _B_var_LeftQ _B_var_LCase' _B_var_Chr\;SubjectRPl ;=6Attribute VB_Name = "UsedkB3|xME010 *H 0R +7D0B0 +74;#$N:0 0 *H OHKq  000nB=2GB}!p&0  *H 010U Dan Evans0 021231230000Z 081231230000Z010U Dan Evans0\0  *H K0HAs,ޭ4Zr&hNLHhM7@,4~% pw/ A^0\0U% 0 +0EU>0<be<@Gd8010U Dan EvansnB=2GB}!p&0  *H A Y"|a˄fGčc%0'Nj#SH3100(010U Dan EvansnB=2GB}!p&0 *H p0 +7 100 *H  1  +70 +7 10  +70 *H  1;>{wtdԏV0  *H @r ڶS_PVŹeX=nj3{07(/証Ģ@OCERTFء8Lr5TD<SelfSignedCerts7I@WdSg0sW$;|RЅ6"n 000nB=2GB}!p&0  *H 010U Dan Evans0 021231230000Z 081231230000Z010U Dan Evans0\0  *H K0HAs,ޭ4Zr&hNLHhM7@,4~% pw/ A^0\0U% 0 +0EU>0<be<@Gd8010U Dan EvansnB=2GB}!p&0  *H A Y"|a˄fGčc%0'Nj#SH3(VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = e' _B_var_Chr\;SubjectRPl ;=6Attribute VB_Name = "UsedkB3|xMEP808@Po> p%Attribute VB_Name = "Module1" e VB_Name = "UserForm1" " Bas0{21456AA1-9BEA-4858-8DPLWB30xME(SPSSS0{41F1622D-EA10-4D26-B4C0-F3E2E86A7772}{D2882C14-8AE6-40D4-B248-637F66725E59}x0(%X0 %`X0hPo>xAttribute VB_Name = "UserForm1" " Bas0{41F1622D-EA10-4D26-B4C0-F3E2E86A7772}{D2882C14-8AE6-40D4-B248-637F66725E59} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizD(rU @,`#nxrU 0  ! Q 9 9 iY8RB3j#<&|^Mj5f(!:F!lfAvPsx!lfAvPs&|^Mj5f(!MEPSLSS6"N0{0006F03A-P808@Po> p%Attribute VB_Name = "Module1" e VB_Name = "UserForm1" " Bas0{21456AA1-9BEA-4858-8DPLWB30xME(SPSSS0{41F1622D-EA10-4D26-B4C0-F3E2E86A7772}{D2882C14-8AE6-40D4-B248-637F66725E59}x0(%X0 %`X0hPo>xAttribute VB_Name = "UserForm1" " Bas0{41F1622D-EA10-4D26-B4C0-F3E2E86A7772}{D2882C14-8AE6-40D4-B248-637F66725E59} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizD(rU @,`#nxrU 0  ! Q 9 9 iY0000-0000-C000-000000000046} `J@..i `i `hv you` ptten`"l8`$j%H %x %8RB3j#<&|^Mj5f(!:F!lfAvPsx!lfAvPs&|^Mj5f(!MEPSLSS6"N0{0006F03A-0000-0000-C000-000000000046} `J@..i `i `hv you` ptten`"l8`$j%H %x %`x `x ``x H`x 0(X XH @8 @( @ .24608 @ @ @ @ @ P @Po>$*\Rffff*01426d6ca9*\R0*#f*\R0*#1*\R0*#14*\R0*#24."  B LP  Z h` > 2 8@HP `x `x ``x H`x 0(X XH @8 @( @ .24608 @ @ @ @ @ P @Po>$*\Rffff*01426d6ca9*\R0*#f*\R0*#1*\R0*#14*\R0*#24."  B LP  Z h` > 2 8@HP ,(X Z  .(DH V ` T Jx :"<2  08@H P ; VBA program for outlook, (c) Dan Evans. dan@danevans.co.ukhNLE Will check if your outgoing email mentions an attachment, but you've forgotten to attach it7 v1.01 of 23/9/01 - OK for "Attach" as well as "attach"+ v1.00 of 21/9/01 - Initial working version]]]] !&-----Original Message-----'$T intOldmsgstart is the location of where old/re/fwd msg starts. Will be 0 if new msg $ dkP The above if/then/else will set strThismsg to be the text of this message only, excluding old/fwd/re msgM IE if the original included message is mentioning an attachment, ignore that+ "$(attach !*!,Dan Evans' Attachment Checker: $. $.:Your message mentions an attachment, but doesn't have one. $. $.Send the message anyway?'   2 4 6 You forgot the attachment!$0'  8 cancel send'kkkob v1.02 of 16/10/02 - No change to code, but tested works with Outlook 2002 as well as Outlook 2000 !& !L '"f S v1.03 of 10/8/04 - Modified to search through subject line as well as message bodyVLAkCJ !& $$ !L '"C Also includes the subject line at the end of the strThismsg stringAttribute VB_Name = "ThisOutlookSession"D Bas0{0006F03A-0CA$0046} |G lobalSpacIFalse dCreatablPredec$laIdTru BExposeTemplateDerivBustomizD 2P Sub Applicat_ItemSend(ByVal  As Object, C ancelBoolean)  'A program for o, (c) Dan Evans. dan @eco.ukWill check if you going email HmenOs %a ttach, S 'vM'Agotten to" itC(v1.03 of 10/8/04 - ModifiM@ search through su< line as we@(m@age bo,dyA.A2B6/I02No2an@ code)testworBkith D \20 0123/9/01iOKY"B"M(">@' '0B1EIniti@v!WverI Dim intResxInt@eger s trMsgStnrmOldstart  = In%@(.BX, "-OrigiZn,MC_"@'+ is 8e loY!where old/re/fwd QObe 0NnewS!!If- =`Then  Ceb + " +"f.SG EaJLefti ) nd IfA@ above`/t@/e wahset O` text!t issXonly,A excludA$$`%C!' IEa#ao0in?`Ya.taLtigDno 0tha q' Also+"5sjmt"8 eo@ Na "DFLC($3)@G`) >F7 @;L#gs.Count0 C< ]OƗF Ce r:" &`r((13)%0!"Y%$#does@n't ha`:oxne.V # anyway?`}A I!w= Box! , vbYe s+ DefaultButtoDn2MvbE?am¿&" (!!n c# vb A& ' cCs@84 = cρEY /f`hAqeS@=LC@(g)>X) >. 2BCc^s.Count`0 3O TF'  CAer:" &A`r(13)%0y!"YAerdoesn't ha1one.V BS anyway?tA`@an= Box! , vPbYes+ DefaultBu tton2DvbE6amB&d" (!aeac- vbpG ' ZccksmS l= pAE( //A45@C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA A i`/F1 4a ` 0  4X)xWHkjH8  8`1l6H8:lMX@H H:(8(]t6H8"xWHA8(X]36H8:X H H8  :(    : `1p6H82''8:( NHH4pMX,(X Z  .(DH V ` T Jx :"<2  08@H P ; VBA program for outlook, (c) Dan Evans. dan@danevans.co.ukhNLE Will check if your outgoing email mentions an attachment, but you've forgotten to attach it7 v1.01 of 23/9/01 - OK for "Attach" as well as "attach"+ v1.00 of 21/9/01 - Initial working version]]]] !&-----Original Message-----'$T intOldmsgstart is the location of where old/re/fwd msg starts. Will be 0 if new msg $ dkP The above if/then/else will set strThismsg to be the text of this message only, excluding old/fwd/re msgM IE if the original included message is mentioning an attachment, ignore that+ "$(attach !*!,Dan Evans' Attachment Checker: $. $.:Your message mentions an attachment, but doesn't have one. $. $.Send the message anyway?'   2 4 6 You forgot the attachment!$0'  8 cancel send'kkkob v1.02 of 16/10/02 - No change to code, but tested works with Outlook 2002 as well as Outlook 2000 !& !L '"f S v1.03 of 10/8/04 - Modified to search through subject line as well as message bodyVLAkCJ !& $$ !L '"C Also includes the subject line at the end of the strThismsg stringAttribute VB_Name = "ThisOutlookSession"D Bas0{0006F03A-0CA$0046} |G lobalSpacIFalse dCreatablPredec$laIdTru BExposeTemplateDerivBustomizD 2P Sub Applicat_ItemSend(ByVal  As Object, C ancelBoolean)  'A program for o, (c) Dan Evans. dan @eco.ukWill check if you going email HmenOs %a ttach, S 'vM'Agotten to" itC(v1.03 of 10/8/04 - ModifiM@ search through su< line as we@(m@age bo,dyA.A2B6/I02No2an@ code)testworBkith D \20 0123/9/01iOKY"B"M(">@' '0B1EIniti@v!WverI Dim intResxInt@eger s trMsgStnrmOldstart  = In%@(.BX, "-OrigiZn,MC_"@'+ is 8e loY!where old/re/fwd QObe 0NnewS!!If- =`Then  Ceb + " +"f.SG EaJLefti ) nd IfA@ above`/t@/e wahset O` text!t issXonly,A excludA$$`%C!' IEa#ao0in?`Ya.taLtigDno 0tha q' Also+"5sjmt"8 eo@ Na "DFLC($3)@G`) >F7 @;L#gs.Count0 C< ]OƗF Ce r:" &`r((13)%0!"Y%$#does@n't ha`:oxne.V # anyway?`}A I!w= Box! , vbYe s+ DefaultButtoDn2MvbE?am¿&" (!!n c# vb A& ' cCs@84 = cρEY /f`hAqee}F7 @;L#gs@.Count 0 C< ] Cer:" &`r(13)%0!"Y%$#2doesn't ha`:one.V A# anywxay?`}A I!w=b Box! ,@ vbYesPI+DefaultButton2&vbEamm`` bS !7a31vbpG h' cos S Yp= SuAE, ~ `30485$T intOldmsgst1 4a ` 0  4X)xWHkjH8  8`1l6H8:lMX@H H:(8(]t6H8"xWHA8(X]36H8:X H H8  :(    : `1p6H82''8:( NHH4pMX@^ pv6H8kv 0lpx4 H84X~( (08@HPX`Jl`x `x `x `x `x @`x `x `x  `x  a a)   ThisOutlookSession UserForm1Module1Project1F@C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA A i`/F5C:\Program Files\Microsoft Office\Office10\msoutl.olbOutlook a p0FC:\WINNT\System32\stdole2.tlbstdole qL-[DR 1C:\Program Files\Microsoft Office\Office\MSO9.DLLOffice a.E .`M C:\WINNT\System32\FM20.DLLMSForms ii@^ pv6H8kv 0lpx4 H84X~( (08@HPX`Jl`x `x `x `x `x @`x `x `x  `x  a a)   ThisOutlookSession UserForm1Module1Project1F@C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA A i`/F5C:\Program Files\Microsoft Office\Office10\msoutl.olbOutlook a p0FC:\WINNT\System32\stdole2.tlbstdole qL-[DR 1C:\Program Files\Microsoft Office\Office\MSO9.DLLOffice a.E .`M C:\WINNT\System32\FM20.DLLMSForms iifǩ@m 2C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\VBE\MSForms.exd Aii0F&|^Mj5f(!:F!lfAvPs0F ApplicationApplication_ItemSend @Body 4-----Original Message----- attachAttachments Count <Dan Evans' Attachmen