{"draftJsState":{"blocks":[{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":159,"offset":0,"style":"ITALIC"}],"text":"Как написать VBA-макрос который отправляет email прямо из Excel — настройка Outlook, готовый код, рассылка по списку получателей и кнопка запуска за один клик.","type":"unstyled","key":"39l0v"},{"data":{"embedData":{"type":"yandex-zen-publication","publicationId":"6a193ebc0972284fdf8102b8","originalUrl":"https://dzen.ru/a/ahk-vAlyKE_fgQK4","publisherId":"6702c9097ccc6316678d20d3","publisherItemId":"8138069612876788227","publisherName":"Макрос решает","publisherAvatar":{"id":"689103a6267f636280e75637","groupId":271828,"imageName":"pub_6702c9097ccc6316678d20d3_689103a6267f636280e75637","namespace":"zen-logos","meta":{"mainColor":"#001028","origFormat":"PNG"}},"title":"Макрос собирает отчёт из 10 листов Excel за 3 секунды — код и объяснение","publishTime":1780040416517,"isPublisherVerified":false,"image":{"id":"6a1942ce0972284fdf869434","groupId":271828,"imageName":"pub_6a193ebc0972284fdf8102b8_6a1942ce0972284fdf869434","namespace":"zen_doc","meta":{"mainColor":"#F0F0F0","origFormat":"PNG"},"sizes":{"orig":{"width":1672,"height":941},"scale_600":{"width":600,"height":338},"scale_1200":{"width":1200,"height":676},"scale_2400":{"width":1672,"height":941}}},"isPremium":false,"timeToReadSeconds":568}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:embed","key":"4sufi"},{"data":{"embedData":{"type":"yandex-zen-publication","publicationId":"6a14872955c6b45616a2e6d9","originalUrl":"https://dzen.ru/a/ahSHKVXGtFYWoubZ","publisherId":"6702c9097ccc6316678d20d3","publisherItemId":"8138069612876788227","publisherName":"Макрос решает","publisherAvatar":{"id":"689103a6267f636280e75637","groupId":271828,"imageName":"pub_6702c9097ccc6316678d20d3_689103a6267f636280e75637","namespace":"zen-logos","meta":{"mainColor":"#001028","origFormat":"PNG"}},"title":"Макрос удаляет дубли в Excel за секунду — без формул и ручной проверки","publishTime":1779782526249,"isPublisherVerified":false,"image":{"id":"6a148a69de0e927e81d4e547","groupId":271828,"imageName":"pub_6a14872955c6b45616a2e6d9_6a148a69de0e927e81d4e547","namespace":"zen_doc","meta":{"mainColor":"#081010","origFormat":"PNG"},"sizes":{"orig":{"width":1536,"height":1024},"scale_600":{"width":600,"height":400},"scale_1200":{"width":1200,"height":800},"scale_2400":{"width":1536,"height":1024}}},"isPremium":false,"timeToReadSeconds":556}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:embed","key":"fc2pj"},{"data":{"embedData":{"type":"yandex-zen-publication","publicationId":"6a10a08f6afa607ff5242b50","originalUrl":"https://dzen.ru/a/ahCgj2r6YH_1JCtQ","publisherId":"6702c9097ccc6316678d20d3","publisherItemId":"8138069612876788227","publisherName":"Макрос решает","publisherAvatar":{"id":"689103a6267f636280e75637","groupId":271828,"imageName":"pub_6702c9097ccc6316678d20d3_689103a6267f636280e75637","namespace":"zen-logos","meta":{"mainColor":"#001028","origFormat":"PNG"}},"title":"7 причин, по которым Excel считает неправильно — и вы об этом не знаете","publishTime":1779609743520,"isPublisherVerified":false,"image":{"id":"6a10a41845ec267cf0e6684a","groupId":271828,"imageName":"pub_6a10a08f6afa607ff5242b50_6a10a41845ec267cf0e6684a","namespace":"zen_doc","meta":{"mainColor":"#F0F0F0","origFormat":"PNG"},"sizes":{"orig":{"width":1536,"height":1024},"scale_600":{"width":600,"height":400},"scale_1200":{"width":1200,"height":800},"scale_2400":{"width":1536,"height":1024}}},"isPremium":false,"timeToReadSeconds":460}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:embed","key":"4p0oi"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"ktps"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Макрос отправляет письма прямо из Excel — без копирования и вставки","type":"header-two","key":"1q1b6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Представьте: таблица с пятьюдесятью клиентами. Каждому нужно отправить письмо с его данными — суммой заказа, датой доставки, номером счёта. Вручную это выглядит так: открыть Outlook, создать письмо, переключиться в Excel, скопировать имя, вставить в письмо, скопировать сумму, вставить, отправить. Умножить на пятьдесят.","type":"unstyled","key":"7nkpi"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Час работы. Минимум пять ошибок — не тот получатель, не та сумма, забыли вложение.","type":"unstyled","key":"58s0t"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Макрос делает то же самое за тридцать секунд. Читает таблицу строку за строкой, формирует письмо с данными конкретного клиента и отправляет через Outlook. Без вашего участия.","type":"unstyled","key":"887ad"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"В этой статье напишем такой макрос с нуля, разберём как он работает и добавим защиту от случайной рассылки.","type":"unstyled","key":"19g6k"},{"data":{"image":{"id":"6a1ac2782761533ce59e8a93"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"5mpft"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"3g09f"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Что нужно для работы макроса","type":"header-two","key":"8oqtn"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Макрос отправки писем из Excel работает через Outlook. Это значит два обязательных условия.","type":"unstyled","key":"2f99q"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":42,"offset":0,"style":"BOLD"}],"text":"Outlook должен быть установлен и настроен. Макрос использует Outlook как почтовый клиент — через него фактически отправляются письма. Если Outlook не установлен или не подключён к почтовому ящику — макрос не сработает.","type":"unstyled","key":"cp85j"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":29,"offset":0,"style":"BOLD"}],"text":"Макросы должны быть включены. Стандартное требование для любого VBA-кода. Файл → Параметры → Центр управления безопасностью → Параметры макросов → Включить все макросы. Файл сохраняется в формате .xlsm.","type":"unstyled","key":"k2gu"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Если в вашей организации используется другой почтовый клиент — Gmail, Mail.ru, Яндекс Почта — отправка через VBA возможна, но требует другого подхода: через протокол SMTP напрямую. Этот способ сложнее и требует хранения пароля в коде, поэтому для рабочих задач Outlook — оптимальный вариант.","type":"unstyled","key":"2a3nq"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Структура таблицы для рассылки","type":"header-two","key":"bp7h0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Прежде чем писать код, подготовьте таблицу. Макрос будет читать данные построчно, поэтому структура должна быть чёткой.","type":"unstyled","key":"edck"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Минимальный набор столбцов для рассылки:","type":"unstyled","key":"5gk6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Столбец A — имя получателя\nСтолбец B — email получателя\nСтолбец C — тема письма\nСтолбец D — текст письма или ключевые данные для подстановки","type":"unstyled","key":"cih4m"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Первая строка — заголовки. Данные начиная со второй строки. Никаких объединённых ячеек, никаких пустых строк внутри таблицы.","type":"unstyled","key":"7tv0p"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Если тема и текст письма одинаковые для всех — столбцы C и D не нужны, пропишем их прямо в коде.","type":"unstyled","key":"1bv29"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Простая версия — одно письмо для проверки","type":"header-two","key":"dd5s3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Начнём с самого простого варианта. Макрос отправляет одно тестовое письмо — чтобы убедиться что всё работает до запуска рассылки.","type":"unstyled","key":"8damj"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Откройте редактор VBA через Alt+F11. Вставьте новый модуль: правая кнопка → «Вставить» → «Модуль». Введите код:","type":"unstyled","key":"nn9p"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Sub ОтправитьТестовоеПисьмо()","type":"blockquote","key":"52blc"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Dim olApp As Object*","type":"blockquote","key":"aqalj"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Dim olMail As Object*","type":"blockquote","key":"avnhm"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Set olApp = CreateObject(\"Outlook.Application\")*","type":"blockquote","key":"ebdp3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Set olMail = olApp.CreateItem(0)*","type":"blockquote","key":"dg5ne"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"With olMail*","type":"blockquote","key":"2dbh9"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":".To = \"test@example.com\" ' замените на свой адрес*","type":"blockquote","key":"afe7d"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":".Subject = \"Тестовое письмо из Excel\"*","type":"blockquote","key":"4batd"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":".Body = \"Это письмо отправлено макросом VBA из Excel.\" & vbNewLine & _*","type":"blockquote","key":"382p2"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"\"Если вы получили это сообщение — всё работает.\"*","type":"blockquote","key":"7fqaa"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":".Display ' показать письмо перед отправкой*","type":"blockquote","key":"a6q89"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"' .Send ' раскомментируйте для автоматической отправки*","type":"blockquote","key":"ddkfg"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End With*","type":"blockquote","key":"8sj64"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Set olMail = Nothing*","type":"blockquote","key":"2jpod"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Set olApp = Nothing*","type":"blockquote","key":"ep8r2"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"MsgBox \"Письмо подготовлено.\", vbInformation*\nEnd Sub","type":"blockquote","key":"4opej"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":8,"offset":28,"style":"ITALIC"},{"length":8,"offset":200,"style":"ITALIC"},{"length":5,"offset":212,"style":"ITALIC"}],"text":"Обратите внимание на строку .Display — она открывает письмо в Outlook для предварительного просмотра, но не отправляет. Это безопасный режим для проверки. Когда убедитесь что всё правильно — замените .Display на .Send для автоматической отправки.","type":"unstyled","key":"9qff"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Что происходит внутри кода","type":"header-two","key":"6pc9g"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":47,"offset":0,"style":"ITALIC"}],"text":"Set olApp = CreateObject(\"Outlook.Application\") — создаём объект приложения Outlook. Это подключение к Outlook из VBA. Если Outlook не запущен — он запустится автоматически в фоне.","type":"unstyled","key":"lh4h"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":32,"offset":0,"style":"ITALIC"}],"text":"Set olMail = olApp.CreateItem(0) — создаём новый элемент почты. Число 0 означает тип «Письмо». Другие типы: 1 — встреча, 2 — контакт, 3 — задача.","type":"unstyled","key":"asv3q"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":24,"offset":0,"style":"ITALIC"},{"length":6,"offset":151,"style":"ITALIC"}],"text":"With olMail ... End With — блок который позволяет обращаться к свойствам объекта без повторения его имени. Всё что написано внутри блока применяется к olMail.","type":"unstyled","key":"6d4nm"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":3,"offset":0,"style":"ITALIC"},{"length":32,"offset":76,"style":"ITALIC"}],"text":".To — адрес получателя. Несколько получателей разделяются точкой с запятой: \"адрес1@mail.ru; адрес2@mail.ru\".","type":"unstyled","key":"avk2r"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":8,"offset":0,"style":"ITALIC"}],"text":".Subject — тема письма.","type":"unstyled","key":"cnv7o"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":5,"offset":0,"style":"ITALIC"},{"length":9,"offset":22,"style":"ITALIC"}],"text":".Body — текст письма. vbNewLine — перенос строки внутри текста.","type":"unstyled","key":"83hbn"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":8,"offset":0,"style":"ITALIC"},{"length":5,"offset":37,"style":"ITALIC"}],"text":".Display — открыть письмо в Outlook. .Send — отправить сразу без просмотра.","type":"unstyled","key":"hu6j"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":20,"offset":0,"style":"ITALIC"},{"length":19,"offset":23,"style":"ITALIC"}],"text":"Set olMail = Nothing и Set olApp = Nothing — освобождаем память после работы с объектами. Хорошая практика которая предотвращает утечки памяти при многократном запуске макроса.","type":"unstyled","key":"97d7d"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Рассылка по списку — основная версия","type":"header-two","key":"dkkhe"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Теперь главный макрос. Он читает таблицу, формирует персональное письмо для каждого получателя и отправляет.","type":"unstyled","key":"12uf6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Sub РассылкаПоСписку()","type":"blockquote","key":"538ar"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Dim olApp As Object*","type":"blockquote","key":"2m1p0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Dim olMail As Object*","type":"blockquote","key":"2f372"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Dim ws As Worksheet*","type":"blockquote","key":"e5gd7"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Dim lastRow As Long*","type":"blockquote","key":"ccklc"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Dim i As Long*","type":"blockquote","key":"2jkj7"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Dim имя As String*","type":"blockquote","key":"5irrm"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Dim email As String*","type":"blockquote","key":"bdd4h"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Dim сумма As String*","type":"blockquote","key":"7cuam"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Dim дата As String*","type":"blockquote","key":"1omt3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Dim счёт As String*","type":"blockquote","key":"8m4mt"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Dim тело As String*","type":"blockquote","key":"43ibo"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Dim отправлено As Long*","type":"blockquote","key":"3tqac"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"' Подтверждение перед запуском*","type":"blockquote","key":"24hrd"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If MsgBox(\"Запустить рассылку?\", vbYesNo + vbQuestion) = vbNo Then Exit Sub*","type":"blockquote","key":"7idso"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Set ws = ActiveSheet*","type":"blockquote","key":"s0qe"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row*","type":"blockquote","key":"5ff3a"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Set olApp = CreateObject(\"Outlook.Application\")*","type":"blockquote","key":"ct1eq"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"отправлено = 0*","type":"blockquote","key":"41shj"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Application.ScreenUpdating = False*","type":"blockquote","key":"3ft3r"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"For i = 2 To lastRow*","type":"blockquote","key":"58ms0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"' Читаем данные из таблицы*","type":"blockquote","key":"9v4fr"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"имя = ws.Cells(i, 1).Value*","type":"blockquote","key":"2pii8"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"email = ws.Cells(i, 2).Value*","type":"blockquote","key":"eke9p"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"сумма = ws.Cells(i, 3).Value*","type":"blockquote","key":"bsr4d"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"дата = ws.Cells(i, 4).Value*","type":"blockquote","key":"6t97g"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"счёт = ws.Cells(i, 5).Value*","type":"blockquote","key":"b3c4d"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"' Пропускаем строки с пустым email*","type":"blockquote","key":"8qq97"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If email = \"\" Then GoTo СледующаяСтрока*","type":"blockquote","key":"cu6lr"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"' Формируем текст письма","type":"blockquote","key":"2jc21"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"тело = \"Уважаемый(ая) \" & имя & \",\" & vbNewLine & vbNewLine & _*","type":"blockquote","key":"6s00u"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"\"Сообщаем вам информацию по вашему заказу:\" & vbNewLine & _*","type":"blockquote","key":"eq2la"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"\"Номер счёта: \" & счёт & vbNewLine & _*","type":"blockquote","key":"2itq8"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"\"Сумма к оплате: \" & сумма & \" руб.\" & vbNewLine & _*","type":"blockquote","key":"7jptm"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"\"Дата доставки: \" & дата & vbNewLine & vbNewLine & _*","type":"blockquote","key":"t9ko"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"\"С уважением,\" & vbNewLine & _*","type":"blockquote","key":"a7777"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"\"Отдел продаж\"*","type":"blockquote","key":"erkth"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"' Создаём и отправляем письмо*","type":"blockquote","key":"1ecr7"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Set olMail = olApp.CreateItem(0)*","type":"blockquote","key":"b7nrr"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"With olMail","type":"blockquote","key":"fd752"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":".To = email*","type":"blockquote","key":"2eq8q"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":".Subject = \"Информация по заказу №\" & счёт","type":"blockquote","key":"r4jr"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":".Body = тело*","type":"blockquote","key":"4s59p"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":".Send*","type":"blockquote","key":"3298j"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End With*\n","type":"blockquote","key":"9h7m4"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"' Отмечаем в таблице что письмо отправлено","type":"blockquote","key":"824uh"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"ws.Cells(i, 6).Value = \"Отправлено\"*","type":"blockquote","key":"f0s07"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"ws.Cells(i, 6).Interior.Color = RGB(200, 230, 200)*","type":"blockquote","key":"ack81"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"отправлено = отправлено + 1*\n","type":"blockquote","key":"emb88"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"СледующаяСтрока:","type":"blockquote","key":"1t0b3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Set olMail = Nothing*","type":"blockquote","key":"79cm0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Next i*","type":"blockquote","key":"3c80"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Application.ScreenUpdating = True*","type":"blockquote","key":"bejc3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Set olApp = Nothing*","type":"blockquote","key":"6lsiv"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"MsgBox \"Рассылка завершена. Отправлено писем: \" & отправлено, vbInformation*\nEnd Sub","type":"blockquote","key":"e5q9h"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"После запуска в шестом столбце таблицы появится отметка «Отправлено» с зелёной заливкой для каждой строки где письмо ушло успешно. Это удобно если рассылка прервалась — видно с какой строки продолжать.","type":"unstyled","key":"5tp0e"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Версия с вложением","type":"header-two","key":"bu4gf"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":11,"offset":80,"style":"ITALIC"}],"text":"Если к каждому письму нужно прикрепить файл — добавьте одну строку внутри блока With olMail:","type":"unstyled","key":"e9olu"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":53,"offset":0,"style":"ITALIC"}],"text":".Attachments.Add \"C:\\Документы\\Счёт_\" & счёт & \".pdf\"","type":"unstyled","key":"fa2hn"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Путь к файлу формируется динамически — к фиксированной части пути добавляется номер счёта из таблицы. Это работает если файлы названы по шаблону и лежат в одной папке.","type":"unstyled","key":"bd8pu"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Если у всех получателей одно и то же вложение — просто укажите полный путь к файлу без динамической части:","type":"unstyled","key":"723rh"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":41,"offset":0,"style":"ITALIC"}],"text":".Attachments.Add \"C:\\Документы\\Прайс.pdf\"","type":"unstyled","key":"cd9hv"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Версия с HTML-форматированием","type":"header-two","key":"j9fc"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Текстовые письма выглядят просто. Если нужно красивое письмо с жирным текстом, цветами и таблицей — используйте формат HTML.","type":"unstyled","key":"8dn34"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":5,"offset":9,"style":"ITALIC"},{"length":9,"offset":18,"style":"ITALIC"}],"text":"Замените .Body на .HTMLBody:","type":"unstyled","key":"74gun"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"With olMail","type":"blockquote","key":"7rhrn"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":".To = email*","type":"blockquote","key":"11bu2"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":".Subject = \"Информация по заказу №\" & счёт*","type":"blockquote","key":"2ds7"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":".HTMLBody = \"\" & _*","type":"blockquote","key":"9vlt6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"\"

Уважаемый(ая) \" & имя & \",

\" & _*","type":"blockquote","key":"fsvj8"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"\"

Информация по вашему заказу:

\" & _*","type":"blockquote","key":"8qvaf"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"\"\" & _*","type":"blockquote","key":"4t9j0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"\"\" & _*","type":"blockquote","key":"dut0e"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"\"\" & _*","type":"blockquote","key":"4j4pq"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"\"\" & _","type":"blockquote","key":"9ijl5"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"\"

Номер счёта	\" & счёт & \"
Сумма	\" & сумма & \" руб.
Дата доставки	\" & дата & \"

\" & _*","type":"blockquote","key":"b6ogm"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"\"

С уважением,
Отдел продаж

\" & _","type":"blockquote","key":"f8mt9"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"\"\"*","type":"blockquote","key":"2cr7v"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":".Send*\nEnd With","type":"blockquote","key":"3qru5"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"HTML в письме поддерживается всеми современными почтовыми клиентами. Таблица будет отображаться как обычная таблица, жирный текст — жирным.","type":"unstyled","key":"ajqnr"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Защита от случайной рассылки","type":"header-two","key":"9vgvq"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Главный риск при работе с рассылкой — случайно запустить и отправить письма не тем людям или с неправильными данными. Несколько правил которые защищают от этого.","type":"unstyled","key":"8la4f"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":41,"offset":0,"style":"BOLD"},{"length":8,"offset":19,"style":"ITALIC"},{"length":5,"offset":35,"style":"ITALIC"},{"length":5,"offset":157,"style":"ITALIC"}],"text":"Всегда начинайте с .Display вместо .Send. Запустите макрос в режиме просмотра, проверьте первые два-три письма вручную. Только после этого переключайтесь на .Send.","type":"unstyled","key":"5vrbp"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":38,"offset":0,"style":"BOLD"},{"length":6,"offset":64,"style":"ITALIC"}],"text":"Добавьте подтверждение перед запуском. В коде уже есть строка с MsgBox и вопросом — не удаляйте её. Одно нажатие «Нет» останавливает рассылку.","type":"unstyled","key":"ct2hk"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":27,"offset":0,"style":"BOLD"}],"text":"Тестируйте на своём адресе. Перед боевой рассылкой замените все email в таблице на свой адрес, запустите макрос, проверьте что письма приходят правильно. Потом верните настоящие адреса.","type":"unstyled","key":"c8huc"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":20,"offset":0,"style":"BOLD"}],"text":"Делайте копию файла. Макрос записывает статус отправки прямо в таблицу. Если что-то пойдёт не так — оригинал без пометок останется.","type":"unstyled","key":"bti85"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Частые ошибки","type":"header-two","key":"8trv"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":47,"offset":0,"style":"BOLD"}],"text":"Ошибка «ActiveX component can't create object». Outlook не установлен или не настроен. Проверьте что Outlook запускается и подключён к почтовому ящику.","type":"unstyled","key":"2c832"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":28,"offset":0,"style":"BOLD"}],"text":"Письма уходят но не доходят. Проверьте папку «Отправленные» в Outlook — письма там должны появиться. Если появились — проблема на стороне получателя или спам-фильтра.","type":"unstyled","key":"83gue"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":44,"offset":0,"style":"BOLD"},{"length":39,"offset":141,"style":"ITALIC"},{"length":50,"offset":289,"style":"ITALIC"}],"text":"Макрос останавливается на середине рассылки. Чаще всего причина — пустая ячейка в столбце email или некорректный адрес. В коде есть проверка If email = \"\" Then GoTo СледующаяСтрока — она пропускает пустые строки. Если адрес есть но некорректный — добавьте проверку на наличие символа «@»: If InStr(email, \"@\") = 0 Then GoTo СледующаяСтрока.","type":"unstyled","key":"65hl3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":49,"offset":0,"style":"BOLD"},{"length":7,"offset":211,"style":"ITALIC"}],"text":"Outlook запрашивает подтверждение каждого письма. Это защита безопасности Outlook от автоматической рассылки. Решение — в настройках Outlook добавить Excel в список доверенных приложений, или использовать режим Display с ручной отправкой каждого письма.","type":"unstyled","key":"d93em"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Связанные материалы","type":"header-two","key":"5thcm"},{"data":{},"depth":0,"entityRanges":[{"key":0,"length":67,"offset":161},{"key":1,"length":74,"offset":303}],"inlineStyleRanges":[],"text":"Автоматическая рассылка — логичное продолжение работы с данными в Excel. Если хотите сначала собрать данные из нескольких листов в одну таблицу — читайте статью Кнопка, которая собирает данные из всех листов Excel в одну таблицу. А как автоматически найти ошибки в таблице перед рассылкой — в материале Найдите ошибки в Excel одной кнопкой — VBA сам подсветит проблемные ячейки.","type":"unstyled","key":"640o8"},{"data":{},"depth":0,"entityRanges":[{"key":2,"length":18,"offset":104}],"inlineStyleRanges":[],"text":"Подписывайтесь на Telegram — там короткие гайды, готовые файлы и разборы реальных задач по Excel и VBA: t.me/macroschannel","type":"header-two","key":"7qtm7"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Итог","type":"header-two","key":"5bpe3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Макрос для отправки писем из Excel экономит от получаса до нескольких часов при каждой рассылке. Он не ошибается в адресах, подставляет данные точно из таблицы и отмечает каждое отправленное письмо.","type":"unstyled","key":"eh2vc"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Четыре версии кода в статье закрывают разные сценарии: тестовое письмо, рассылка по списку, письма с вложением, HTML-форматирование. Начните с тестового письма — убедитесь что Outlook настроен правильно. Потом переходите к рассылке.","type":"unstyled","key":"b7e4k"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":8,"offset":26,"style":"ITALIC"},{"length":5,"offset":42,"style":"ITALIC"}],"text":"Главное правило — сначала .Display, потом .Send. Отправленное письмо не вернёшь.","type":"unstyled","key":"bv96e"},{"data":{"embedData":{"type":"yandex-zen-publication","publicationId":"6a10a08f6afa607ff5242b50","originalUrl":"https://dzen.ru/a/ahCgj2r6YH_1JCtQ","publisherId":"6702c9097ccc6316678d20d3","publisherItemId":"8138069612876788227","publisherName":"Макрос решает","publisherAvatar":{"id":"689103a6267f636280e75637","groupId":271828,"imageName":"pub_6702c9097ccc6316678d20d3_689103a6267f636280e75637","namespace":"zen-logos","meta":{"mainColor":"#001028","origFormat":"PNG"}},"title":"7 причин, по которым Excel считает неправильно — и вы об этом не знаете","publishTime":1779609743520,"isPublisherVerified":false,"image":{"id":"6a10a41845ec267cf0e6684a","groupId":271828,"imageName":"pub_6a10a08f6afa607ff5242b50_6a10a41845ec267cf0e6684a","namespace":"zen_doc","meta":{"mainColor":"#F0F0F0","origFormat":"PNG"},"sizes":{"orig":{"width":1536,"height":1024},"scale_600":{"width":600,"height":400},"scale_1200":{"width":1200,"height":800},"scale_2400":{"width":1536,"height":1024}}},"isPremium":false,"timeToReadSeconds":460}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:embed","key":"48i4p"},{"data":{"embedData":{"type":"yandex-zen-publication","publicationId":"6a14872955c6b45616a2e6d9","originalUrl":"https://dzen.ru/a/ahSHKVXGtFYWoubZ","publisherId":"6702c9097ccc6316678d20d3","publisherItemId":"8138069612876788227","publisherName":"Макрос решает","publisherAvatar":{"id":"689103a6267f636280e75637","groupId":271828,"imageName":"pub_6702c9097ccc6316678d20d3_689103a6267f636280e75637","namespace":"zen-logos","meta":{"mainColor":"#001028","origFormat":"PNG"}},"title":"Макрос удаляет дубли в Excel за секунду — без формул и ручной проверки","publishTime":1779782526249,"isPublisherVerified":false,"image":{"id":"6a148a69de0e927e81d4e547","groupId":271828,"imageName":"pub_6a14872955c6b45616a2e6d9_6a148a69de0e927e81d4e547","namespace":"zen_doc","meta":{"mainColor":"#081010","origFormat":"PNG"},"sizes":{"orig":{"width":1536,"height":1024},"scale_600":{"width":600,"height":400},"scale_1200":{"width":1200,"height":800},"scale_2400":{"width":1536,"height":1024}}},"isPremium":false,"timeToReadSeconds":556}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:embed","key":"3j9us"},{"data":{"embedData":{"type":"yandex-zen-publication","publicationId":"6a193ebc0972284fdf8102b8","originalUrl":"https://dzen.ru/a/ahk-vAlyKE_fgQK4","publisherId":"6702c9097ccc6316678d20d3","publisherItemId":"8138069612876788227","publisherName":"Макрос решает","publisherAvatar":{"id":"689103a6267f636280e75637","groupId":271828,"imageName":"pub_6702c9097ccc6316678d20d3_689103a6267f636280e75637","namespace":"zen-logos","meta":{"mainColor":"#001028","origFormat":"PNG"}},"title":"Макрос собирает отчёт из 10 листов Excel за 3 секунды — код и объяснение","publishTime":1780040416517,"isPublisherVerified":false,"image":{"id":"6a1942ce0972284fdf869434","groupId":271828,"imageName":"pub_6a193ebc0972284fdf8102b8_6a1942ce0972284fdf869434","namespace":"zen_doc","meta":{"mainColor":"#F0F0F0","origFormat":"PNG"},"sizes":{"orig":{"width":1672,"height":941},"scale_600":{"width":600,"height":338},"scale_1200":{"width":1200,"height":676},"scale_2400":{"width":1672,"height":941}}},"isPremium":false,"timeToReadSeconds":568}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:embed","key":"dbuvh"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"cdd2n"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"84o67"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"marker","key":"LO0yK6bwq4JunQcyCkNi"}],"entityMap":{"0":{"data":{"href":"https://dzen.ru/a/aaw-SCNQcEMGVlai","url":"https://dzen.ru/a/aaw-SCNQcEMGVlai"},"mutability":"MUTABLE","type":"LINK"},"1":{"data":{"href":"https://dzen.ru/a/aawricm2mR9S6ewW","url":"https://dzen.ru/a/aawricm2mR9S6ewW"},"mutability":"MUTABLE","type":"LINK"},"2":{"data":{"href":"https://t.me/macroschannel","url":"https://t.me/macroschannel"},"mutability":"MUTABLE","type":"LINK"}}},"mentions":[]}