Outlook 2002 VBA Skript soll nur bei bestimmten emails abgearbeitet werden

Option Explicit
Dim MyOLApp As Application
Dim myNameSpace As NameSpace

Public WithEvents olItem As MailItem
Private Sub Application_Startup()
    
Dim olItem As Outlook.MailItem
Dim olApp As Outlook.Application
Dim olTask As Outlook.TaskItem
Dim cntSelection As Integer
Dim I As Integer
Dim CurrentFolder As Outlook.MAPIFolder
Dim emailsender As Variant
Dim olExp As Outlook.Explorer
        
        Set emailsender = "abt@firma.de"  
        Set olApp = Outlook.CreateObject("Outlook.Application")  
        Set ActiveExplorer.CurrentFolder = GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail)  
        Set olExp = olApp.ActiveExplorer
        Set CurrentFolder = olExp.CurrentFolder
        Set olTask = olApp.CreateItem(olTaskItem)
                
                cntSelection = olExp.Selection.Count
        
        If cntSelection > 0 Then
        
            For Each emailsender In olItem.SenderName
            
                For I = 1 To cntSelection
                    Set olItem = olExp.Selection.Item(I)
                    olTask.Attachments.Add olItem
                    olTask.Subject = "Gesendet zu Vorgang Betreff: " & olItem.Subject  
                    olTask.Body = olItem.Body
                    olItem.Move Application.GetNamespace("MAPI").Folders.Item("Öffentliche Ordner").Folders.Item("Alle Öffentlichen Ordner").Folders.Item("Firma Ordner").Folders.Item("Abt").Folders.Item("Abt MailBackup")  
                Next
                    olTask.DueDate = DateAdd("h", 162, Now)  
                    olTask.StartDate = DateAdd("h", 0, Now)  
                    olTask.ReminderSet = True
                    olTask.ReminderTime = DateAdd("h", 24, Now)  

                    olTask.Save
                    olTask.Move Application.GetNamespace("MAPI").Folders.Item("Öffentliche Ordner").Folders.Item("Alle Öffentlichen Ordner").Folders.Item("Firma Ordner").Folders.Item("Abt").Folders.Item("Abt Tasks")  
                    olTask.Display
            Next
        Else
            MsgBox "Keine Nachrichten gestern gesendet"  
        
        End If
End Sub