Attribute VB_Name = "Module2"
Sub MoveItems()

    Dim myNameSpace As outlook.namespace
    Dim myInbox As outlook.folder
    Dim myDestFolder As outlook.folder
    Dim myItems As outlook.Items
    Dim myItem As Object
 
    Set myNameSpace = Application.GetNamespace("MAPI")
    Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Digalert")
    Set myItems = myInbox.Items
    Set myDestFolder = myInbox.Folders("Digalert Done")
    Set myItem = myItems.Find("[SenderName] = 'Notification@digalert.org'")
    While TypeName(myItem) <> "Nothing"
    myItem.move myDestFolder
    Set myItem = myItems.FindNext
    Wend
    
End Sub