Sub старт_отправить()
i = 2
Do While Worksheets("Список").Cells(i, 1) <> ""
Mail_name = Worksheets("Список").Cells(i, 1)
snf = Environ$("temp") & "\1.pdf"
'Run "отправить", i
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        snf, Quality:=xlQualityStandard, IncludeDocProperties _
        :=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
            Set OutApp = CreateObject("Outlook.Application")
                OutApp.Session.Logon
                Set OutMail = OutApp.CreateItem(0)
                            With OutMail
                    .To = Mail_name
                    .CC = ""
                    .Subject = ""
                    .Body = ""
                    .Attachments.Add snf
                    .Send
                            End With
                Set OutMail = Nothing
                Set OutApp = Nothing
        Kill snf
    i = i + 1
Loop
MsgBox "Отправка писем завершена"
End Sub