Как отправить письма из Excel по электронной почте: от простого к сложному

Отправка писем напрямую из Microsoft Excel экономит часы ручной работы, когда нужно разослать персонализированные сообщения десяткам или сотням адресатов. Например, вы подготовили в таблице данные для клиентов — и хотите автоматически отправить каждому его уникальные сведения: счета, отчёты, приглашения или напоминания. Вручную копировать данные из ячеек в письма неэффективно, да и ошибки неизбежны.

К счастью, Excel предлагает несколько способов автоматизации рассылки — от простых встроенных инструментов до продвинутых скриптов на VBA. В этой статье разберём все актуальные методы: от отправки через Microsoft Outlook до интеграции с внешними сервисами вроде Gmail или Mailchimp. Вы узнаете, какой способ подходит для вашего случая — будь то разовая рассылка или регулярная автоматическая отправка писем по расписанию.

1. Подготовка данных в Excel перед рассылкой

Прежде чем отправлять письма, убедитесь, что ваша таблица структурирована корректно. Ошибки в данных — главная причина, почему рассылка может пойти не так. Вот ключевые моменты:

• 📌 Столбцы с контактами: выделите отдельные колонки для Email, Имя, Тема письма и других переменных данных. Например, если отправляете счета, добавьте столбцы Номер счета и Сумма.
• 🔍 Проверка дубликатов: используйте функцию =ЕСЛИ(СЧЁТЕСЛИ($A$2:$A$100;A2)>1;"Дубликат";""), чтобы найти повторяющиеся email-адреса. Дубли могут привести к отправке одного письма несколько раз.
• 📧 Валидация email: проверьте формат адресов с помощью формулы =ЕСЛИ(НАЙТИ("@";A2)>1;И(НАЙТИ(".";A2)>НАЙТИ("@";A2));ЛОЖЬ);"Корректно";"Ошибка").

Если в таблице есть персонализированный текст (например, приветствие "Здравствуйте, [Имя]"), вынесите его в отдельный столбец. Это упростит дальнейшую вставку в тело письма. Также рекомендуется создать столбец статуса (например, Отправлено/Не отправлено), чтобы отслеживать прогресс рассылки.

2. Способ 1: Отправка писем через Microsoft Outlook (без VBA)

Самый простой метод — использовать встроенную интеграцию Excel с Microsoft Outlook. Он подходит для разовых рассылок небольшому количеству адресатов (до 50–100 писем). Вот как это работает:

1. Выделите диапазон ячеек с данными (включая заголовки столбцов).
2. Перейдите на вкладку Главная → Найти и выделить → Выделить группу ячеек (или нажмите Ctrl + *).
3. Нажмите Файл → Поделиться → Email → Отправить как вложение (для всей таблицы) или Отправить как тело сообщения (для выделенного диапазона).
4. В открывшемся окне Outlook отредактируйте письмо: добавьте тему, текст и при необходимости вложения.

⚠️ Внимание: Этот метод отправляет одно письмо всем адресатам сразу (в поле Кому будут перечислены все email через точку с запятой). Если нужно персонализировать каждое сообщение или отправить отдельные письма, используйте слияние:

• 📝 В Outlook создайте новое письмо и перейдите на вкладку Рассылки.
• 🔗 Нажмите Выбрать получателей → Использовать существующий список и укажите ваш файл Excel.
• 🖋️ Вставьте поля слияния (например, «Имя», «Email») в тело письма.
• 📤 Завершите слияние и отправьте письма.

3. Способ 2: Автоматизация с помощью VBA-макроса

Если вам нужно отправлять письма регулярно или обрабатывать большие объёмы данных, VBA-скрипты станут лучшим решением. Они позволяют:

• 📌 Отправлять персонализированные письма каждому адресату.
• 📎 Прикреплять индивидуальные вложения (например, PDF-счета из папки).
• ⏱️ Запускать рассылку по расписанию (с помощью Планировщика задач Windows).

Ниже приведён базовый код для отправки писем через Outlook. Скопируйте его в редактор VBA (Alt + F11 → Вставка → Модуль):

Sub SendEmailsFromExcel()
Dim OutApp As Object
Dim OutMail As Object
Dim ws As Worksheet
Dim i As Integer
Dim emailAddr As String, subject As String, body As String

' Создаём объект Outlook
Set OutApp = CreateObject("Outlook.Application")
Set ws = ThisWorkbook.Sheets("Лист1") ' Укажите имя вашего листа

' Цикл по строкам (начиная со 2-й, если 1-я — заголовки)
For i = 2 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
emailAddr = ws.Cells(i, 1).Value ' Столбец с email
subject = "Ваша тема: " & ws.Cells(i, 2).Value ' Столбец с темой
body = "Здравствуйте, " & ws.Cells(i, 3).Value & "!" & vbCrLf & vbCrLf & _
"Ваше персональное сообщение: " & ws.Cells(i, 4).Value

' Создаём письмо
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = emailAddr
.Subject = subject
.Body = body
' .Attachments.Add ("C:\Путь\к\файлу\" & ws.Cells(i, 5).Value & ".pdf") ' Раскомментируйте для вложений
.Send ' Для теста замените на .Display (откроет черновик)
End With
Next i

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

⚠️ Внимание: Перед запуском макроса:

1. Убедитесь, что в Outlook отключены предупреждения безопасности для автоматически отправляемых писем (настройка в Файл → Параметры → Центр управления безопасностью → Параметры центра управления безопасностью → Безопасность электронной почты).

2. Замените .Send на .Display, чтобы сначала проверить письма в черновиках.

3. Если используете Gmail или другой SMTP-сервер, потребуется дополнительная настройка аутентификации (см. раздел 5).

Установить доверие к центру сертификации VBA|Отключить макросы в Excel (временно)|Проверить правильность email-адресов|Сохранить файл как .xlsm (с поддержкой макросов)|Сделать резервную копию данных-->

4. Способ 3: Рассылка через Power Query и Power Automate

Для пользователей Microsoft 365 или Excel 2019/2021 удобным решением станет комбинация Power Query (для подготовки данных) и Power Automate (для автоматизации отправки). Этот метод не требует знания VBA и подходит для интеграции с облачными сервисами, такими как SharePoint или OneDrive.

Алгоритм действий:

1. Подготовка данных в Power Query:
   • Импортируйте таблицу в Power Query (Данные → Получить данные → Из таблицы/диапазона).
   • Очистите данные: удалите пустые строки, исправьте ошибки в email-адресах.
   • Добавьте столбец с персонализированным текстом (например, с помощью формулы = "Здравствуйте, " & [Имя] & "! Ваш счёт на сумму " & [Сумма] & " руб.").

Sub SendViaGmail()
Dim iMsg As Object
Dim iConf As Object
Dim Flds As Variant
Dim ws As Worksheet
Dim i As Integer

Set ws = ThisWorkbook.Sheets("Лист1")

For i = 2 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

' Настройка SMTP (Gmail)
iConf.Load -1
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' SMTP
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ваш_email@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ваш_пароль_или_пароль_приложения"
.Update
End With

' Формирование письма
With iMsg
Set .Configuration = iConf
.To = ws.Cells(i, 1).Value
.Subject = ws.Cells(i, 2).Value
.TextBody = ws.Cells(i, 3).Value
.Send
End With
Next i
End Sub

.Attachments.Add ("C:\Папка\" & ws.Cells(i, 5).Value & ".pdf")

ws.Cells(i, 6).Value = "Отправлено " & Now() ' Записываем дату/время отправки

.HTMLBody = "<html><body><h1>Здравствуйте, " & ws.Cells(i, 3).Value & "!</h1>" & _
"<p>Ваше сообщение: <strong>" & ws.Cells(i, 4).Value & "</strong></p>" & _
"<a href='https://example.com'>Перейти на сайт</a></body></html>"

.HTMLBody = "... <img src='cid:logo.png'> ..." ' Вложение с ID "logo.png"
.Attachments.Add "C:\Путь\к\logo.png", , , "logo.png"