你能把员工的电子邮件地址写在表格里吗，比如写在C1里经理名字的对面？（或者甚至代替经理的名字）
如果它在C1中，您的代码应该如下所示。

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    Dim xOutApp As Object, xMailItem As Object
    Dim xName As String, lManager as Long, lTask as Long, shtTasks as Worksheet
    Set xOutApp = CreateObject("Outlook.Application")
    Set shtTasks = ActiveSheet
    xName = ActiveWorkbook.FullName

   'Loop through Managers
    lManager = 1
    Do Until lManager >= shtTasks.UsedRange.Rows.Count
        If shtTasks.Range("A" & lManager) <> "" Then 'to prevent blank emails being created on lines with no manager
        Set xMailItem = xOutApp.CreateItem(0)
        With xMailItem
            .To = shtTasks.Range("C" & lManager) 'This is the cell with the email address in it
            .Subject = "TEST"
            .Body = "Hi," & chr(13) & chr(13) & "File is now updated." & chr(13) & "Your tasks are: "

            'Loop through Tasks:
            lTask = lManager
            Do Until shtTasks.Range("B" & lTask) = ""
                .Body = .Body & " " & shtTasks.Range("B" & lTask) & ", "
                lTask = lTask + 1
            Loop
            .Body = Left(.Body, Len(.Body)-2) & "." 'replace the last comma with a full stop

            .Attachments.Add xName
            .Display
            '.Send
            Set xMailItem = Nothing
            lManager = lTask + 1 'Move to next manager
        End With
        End If
    Loop
    Set xOutApp = Nothing
End Sub