Besvar flere mails med samme svar

Jeg ønsker at besvare 280 konkurrence besvarelser med det samme standard svar. De 280 mails ligger seperat i en undermappe i indbakken.

Gennem en tidligere tråd på eksperten.dk har jeg fået kendskab til følgende makro:

Sub sendStandardSvarTilValgte()
    Dim ex As Explorer
    Dim mail As MailItem
    Dim str As String
    Set ex = Application.ActiveExplorer
   
    For Each mail In ex.Selection
        str = str & mail.SenderEmailAddress & "; "
    Next
   
    Set mail = Application.CreateItem(olMailItem)
   
    mail.BCC = str
    mail.Subject = "Tak for din deltagelse"
   
    mail.Display
   
End Sub

Jeg markerer de 280 mails og afspiller ovenstående makro. Desværre fejler afspilningen. Når jeg trykker på debug kan jeg se fejlen opstår ved;  For Each mail In ex.Selection.

Hvad kan den fejl skyldes og hvordan undgår jeg den?

Ser frem til at modtage jeres anbefalinger...