VBA - MS Outlook - Runtime Error: Array out of bounds

 
 
Sub AutoDel_1()
'*************************************************  *********
' Project to segregate/delete emails where subject line
' commences as per strSearch below e.g. Read: ...
'
' REFERENCES:
' Absolute Beginners Guide to VBA, QUE, PaulMcFedries
' http://www.mcfedries.com/abgvba/Chapter11.txt
'_________________________________________________  _________
'DECLARATIONS
'VARIABLES
Dim ns As NameSpace
Dim ib As MAPIFolder
Dim msg As MailItem
' Dim fldr As MAPIFolder experimented with - nogo
Dim strSearch1 As String
Dim strSearch2 As String
Dim strSearch3 As String
' Dim strsubject As String experimented with - nogo
 
'ASSIGN OBJECTS TO VARS.
Set ns = ThisOutlookSession.Session
Set ib = ns.GetDefaultFolder(olFolderInbox)
'Set fldr = ns.GetFolderFromID(AutoDel)
'INITIALISE VARS.
strSearch1 = Read:
strSearch2 = Delivered:
strSearch3 = "Delivery Status Notification (Relay)"
 
'CODE
For Each msg In ib.Items
'find opening words in the subject line and test = Read: or = Delivered: etc.
'if first appearance of str Read etc. is at position 1 then Move to AutoDel folder which exists
'Set strSubject = MailItem.subject experimented with - nogo
 
If InStr(1, msg.subject, strSearch1, 1) = 1 Then	 'first position in subject line, textual search
msg.Move ns.Folders(1).Folders(AutoDel)				 runtime error '-2147352567 (80020009)' Array index out of bounds
 
ElseIf InStr(1, msg.subject, strSearch2, 1) = 1 Then
MailItem.Move (AutoDel)
 
ElseIf InStr(1, msg.subject, strSearch3, 1) = 1 Then
MailItem.Move (AutoDel)
 
End If
 
Next