Unexpected error in Access VBA email handler loop

Initial guess is that when your code gets to an email that does not have a attachment, the error is occurring. VBA does not have what is called a short-circuited IF statement, which means it will check all parts of the IF statement, no matter if any part does not match your desired condition. To handle this, you may want to break the IF statement into nested IFs:
If Subject = ... Then
  If Attachments.Count > 0 Then
     If Attachments.Item(1).FileName = ...

Ouch.  I didn't write it, but I have to fix it--but in all fairness, I'm pretty sure that I wouldn't have done much better.  At least I know I'm not the only amateur in the world.  As you can see, I need a lot of guidance on this.  When I go in tomorrow I'll start picking at it.  Thanks, guys.

Just thinking: Maybe we need a dynamic array that can handle any number of items?  Maybe a Select Case strategy might be a better than deeply nested If statements?

Bing (the sound of lights coming on)!  Now we'll see if I can do it.  Hope you don't go on vacation! :-)

Okay. I'm a Select Case virgin.  Please be gentle.

When I try to compile this code I get an "End With without With" error.

Public Sub RunChecksRequests()

    Dim myolApp As Outlook.Application
    Dim myItems As Object
    Dim oMail As Outlook.MailItem
    Dim myNamespace As Outlook.NameSpace
    
    Set myolApp = CreateObject("Outlook.Application")
    Set myNamespace = myolApp.GetNamespace("MAPI")
    Set myItems = myNamespace.Folders("XE_IPP").Folders("Inbox").Items

    On Error GoTo 0
    
    With myolApp
        For Each oMail In myItems
            Select Case True
            Case oMail.Attachments.Count = 0 'no attachments
                    Set plnFolder = myNamespace.Folders("XE_IPP").Folders("Inbox").Folders("Plain")
                    oMail.Move rqFolder
            End Select
            Select Case True
            Case Nz(oMail.Subject = "") 'no subject
                    Set plnFolder = myNamespace.Folders("XE_IPP").Folders("Inbox").Folders("Plain")
                    oMail.Move plnFolder
            End Select
            Select Case True
            Case oMail.Subject = "IPP Share Request"
            'Block of code to test attachment
                LCase(Right(oMail.Attachments.Item(1).FileName, 5)) = ".xlsm"
                    oMail.Attachments.Item(1).SaveAsFile "G:\XE_ECMs\IPP Sharing Development\Requests\" & oMail.Attachments.Item(1).FileName
                    Set rqFolder = myNamespace.Folders("XE_IPP").Folders("Inbox").Folders("Requests")
                    oMail.Move rqFolder
                Call RequestsTurnaround
            Case oMail.Subject = "IPP Share Check"
            'Block of code to test attachments
                LCase(Right(oMail.Attachments.Item(1).FileName, 5)) = ".xlsm"
                    oMail.Attachments.Item(1).SaveAsFile "G:\XE_ECMs\IPP Sharing Development\Checks\" & oMail.Attachments.Item(1).FileName
                    Set chkFolder = myNamespace.Folders("XE_IPP").Folders("Inbox").Folders("Checks")
                    oMail.Move chkFolder
                Call ChecksTurnaround
            End Select
    End With
End Sub

Select allOpen in new window

I realize there is probably other stuff wrong with this code, too (and I'm hoping you're kind enough to point it out), but for now, I clearly have some basic understanding missing.

How and when do you "'bail"? Pretty sure I'm not using End Select properly.

You are missing the Next for your For loop. Insert between lines 41 and 42.

Thanks, Shaun.  Does the other stuff make sense to you?

Good! Just the kind of help I need.  Thanks again.

@Dale
Bad aircode on my part, good catch.
Select Case True operates very similarly to if elseif -- But nesting ifs can get very confusing in a hurry.  Select Case True lets you build more readable code when you need IF in the blocks of execution

This really was collaborative, and you all got me within striking distance.  I have some other related issues, but they will go on another thread if they prove too stubborn.  Thanks all.