Outlook - Mehrere E-Mails gleichzeitig mit einem vorgegebenen Text beantworten

Sub BewerbungenBeantworten()
    Dim ex As Explorer, mail As MailItem, itm As Object, acc As Account
    Set ex = ActiveExplorer
    Set acc = Application.Session.Accounts(1)
    If ex.Selection.Count > 0 Then
        For Each itm In ex.Selection
            If itm.Class = olMail Then
                Set mail = itm.Reply
                mail.Body = "Sehr geehrte(r) Frau/Herr " & itm.SenderName & "," & vbNewLine & _  
                            "Wir bedanken uns für Ihre Bewerbung! Leider müssen wir Ihnen mitteilen das sie nicht in unsere engere Auswahl gekommen sind." & _  
                            "Wir wünschen Ihnen trotzdem alle gute für Ihre persönliche und berufliche Laufbahn." & vbNewLine & vbNewLine & _  
                            "Mit freundlichen Grüßen" & vbNewLine & _  
                            "Ihre Firma XYZ" & _  
                            vbNewLine & mail.Body
                mail.SendUsingAccount = acc
                mail.Sender = acc.CurrentUser.AddressEntry
                mail.Send
            End If
        Next
    Else
        MsgBox "Sie haben keine Elemente ausgewählt", vbExclamation  
    End If
End Sub

Option Compare Text

Sub BewerbungenBeantworten()
    Dim ex As Explorer, mail As MailItem, itm As Object, acc As Account, senderAddress As AddressEntry
    Set ex = ActiveExplorer
    For Each acc In Application.Session.Accounts
        If acc.SmtpAddress like "mail@domain.de" Then  
            Set senderAddress = acc.CurrentUser.AddressEntry
        End If
    Next
    If senderAddress Is Nothing Then
        MsgBox "Sender-Adresse wurde nicht gefunden!", vbExclamation  
        Exit Sub
    End If
    
    If ex.Selection.Count > 0 Then
        For Each itm In ex.Selection
            If itm.Class = olMail Then
                Set mail = itm.Reply
                mail.Body = "Sehr geehrte(r) Frau/Herr " & itm.SenderName & "," & vbNewLine & _  
                            "Wir bedanken uns für Ihre Bewerbung! Leider müssen wir Ihnen mitteilen das sie nicht in unsere engere Auswahl gekommen sind." & _  
                            "Wir wünschen Ihnen trotzdem alle gute für Ihre persönliche und berufliche Laufbahn." & vbNewLine & vbNewLine & _  
                            "Mit freundlichen Grüßen" & vbNewLine & _  
                            "Ihre Firma XYZ" & _  
                            vbNewLine & mail.Body
                mail.Sender = senderAddress
                mail.Send
            End If
        Next
    Else
        MsgBox "Sie haben keine Elemente ausgewählt", vbExclamation  
    End If
End Sub