Excel VBA для отправки писем разным людям в столбце

Итак, во-первых, очень опасно угадывать адреса электронной почты из списка имен. (Вы уверены, что нет двух Пол Блартс? Если так, то только один получает отчет. Вы уверены, что нет двух пижам Тони? Если это так, то тот, кто получает отчет?) мы все это обдумали, и ты сможешь сохранить свою работу, если она пойдет не к той пижаме.

Я бы использовал scripting.dictionary для хранения электронных писем, используя имена или адреса электронной почты в качестве ключа. Тогда я мог бы проверить членство в dict, прежде чем добавить еще одно:

Не проверял, но должен дать вам jist:

Public Sub CreateEmails()
    Dim row As Long
    Dim email_address As String
    Dim email_dict As Object
    Set email_dict = CreateObject("Scripting.Dictionary")

    Set OutApp = CreateObject("Outlook.Application")
    Dim OutMail As Object

    row = 2
    Do While ThisWorkbook.Sheets("SheetWithNames").Cells(row, 6).Value <> ""
        email_address = email_address_from_name(.Cells(row, 6).Value) 'turns a name into an email
        If Not email_dict.exists(email_address) Then
            Set OutMail = OutApp.CreateItem(0)
            With OutMail
                .To = email_address
                .Subject = "Report"
                .HTMLBody = "See attached" & "<br>" & .HTMLBody
                .Attachments.Add ActiveWorkbook.FullName
                .Display
            End With
            email_dict.Add email_address, OutMail
        End If
        row = row + 1
    Loop
End Sub