Run VBA for all unread items in the Inbox, and not just selected items

[MWhiteDesigns]

Good afternoon,
I have the below code. But i need to adjust it to run for all unread items in the inbox, not just the selected items.

It's gotta be around the portion highlighted in red, but I don't know what to adjust.

Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
  Dim olApp As Outlook.Application
  Dim objNS As Outlook.NameSpace
  Set olApp = Outlook.Application
  Set objNS = olApp.GetNamespace("MAPI")
  ' default local Inbox
  Set Items = objNS.GetDefaultFolder(olFolderInbox).Items
End Sub


Private Sub Items_ItemAdd(ByVal item As Object)


Dim objOL As Outlook.Application
Dim objMsg As Outlook.MailItem 'Object
Dim objAttachments As Outlook.Attachments
Dim objSelection As Outlook.Selection
Dim i As Long
Dim lngCount As Long
Dim strFile As String
Dim strFolderpath As String
Dim strDeletedFiles As String


  On Error GoTo ErrorHandler
  Dim Msg As Outlook.MailItem
  If TypeName(item) = "MailItem" Then
    Set Msg = item
  
  
  ' If vbYes = MsgBox("Download the attachments of the selected emails?", vbQuestion Or vbYesNoCancel, "Attachment Downloads") Then
 
' Get the path to your My Documents folder"
strFolderpath = "K:C\Downloads Test"
On Error Resume Next


' Instantiate an Outlook Application object.
Set objOL = CreateObject("Outlook.Application")


' Get the collection of selected objects.
Set objSelection = objOL.ActiveExplorer.Selection


' Set the Attachment folder.
strFolderpath = strFolderpath & "\"




' save them to the strFolderPath folder and strip them from the item.
[COLOR=#ff0000]For Each objMsg in objSelectionobjSelection[/COLOR]


    ' strips attachments from mail items.
    ' If objMsg.class=olMail Then
    ' Get the Attachments collection of the item.
    Set objAttachments = objMsg.Attachments
    lngCount = objAttachments.Count
    strDeletedFiles = ""


    If lngCount > 0 Then


        ' We need to use a count down loop for removing items
        ' from a collection. Otherwise, the loop counter gets
        ' confused and only every other item is removed.


        For i = lngCount To 1 Step -1


            ' Save attachment before deleting from item.
            ' Get the file name.
            strFile = Format(objMsg.ReceivedTime, "yyyy-mm-dd Hmm ") + "_" + Left(objAttachments.item(i).FileName, Len(objAttachments.item(i).FileName) - 4) + Right((objAttachments.item(i).FileName), 4)


            ' Combine with the path to the Temp folder.
            strFile = strFolderpath & strFile


            ' Save the attachment as a file.
            objAttachments.item(i).SaveAsFile strFile


            ' Delete the attachment.
            objAttachments.item(i).Delete


            'write the save as path to a string to add to the message
            'check for html and use html tags in link
            If objMsg.BodyFormat <> olFormatHTML Then
                strDeletedFiles = strDeletedFiles & vbCrLf & "<file://" & strFile & ">"
            Else
                strDeletedFiles = strDeletedFiles & "<br>" & "<a href='file://" & _
                strFile & "'>" & strFile & "</a>"
            End If


            'Use the MsgBox command to troubleshoot. Remove it from the final code.
            'MsgBox strDeletedFiles


        Next i


        ' Adds the filename string to the message body and save it
      
        If objMsg.BodyFormat <> olFormatHTML Then
            objMsg.Body = vbCrLf & "The file(s) were saved to " & strDeletedFiles & vbCrLf & objMsg.Body
        Else
            objMsg.HTMLBody = "<p>" & "The file(s) were saved to " & strDeletedFiles & "</p>" & objMsg.HTMLBody
        End If
        objMsg.Save
    End If
Next


ExitSub:


Set objAttachments = Nothing
Set objMsg = Nothing
Set objSelection = Nothing
Set objOL = Nothing






  End If
ProgramExit:
  Exit Sub
ErrorHandler:
  MsgBox Err.Number & " - " & Err.Description
  Resume ProgramExit
End Sub

 

[MWhiteDesigns]

Any thoughts? This does exactly what is needed if an item is selected. I need it to run on all items in the inbox, not just the selected ones. Help! I need this as soon as possible.