У нас вы можете посмотреть бесплатно Macro envio masivo de emails con excel y outlook или скачать в максимальном доступном качестве, видео которое было загружено на ютуб. Для загрузки выберите вариант из формы ниже:
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием видео, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса ClipSaver.ru
Herramienta para el envío masivo de emails, la cual te puede servir para personalizar tus correos de manera ágil y segura. Sub EnvioMasEmail() Dim A As Outlook.Application Dim email As Outlook.Mailitem Set A = New Outlook.Application For i = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row Set email = A.createItem(emailItem) With email .To = Cells(i, 1).Value .Subject = Cells(i, 2).Value .Body = Cells(i, 3).Value .Display .Send End With Next i Set email = Nothing Set A = Nothing End Sub