Note: The other languages of the website are Google-translated. Back to English
Войти  \/ 
x
or
x
Регистрация  \/ 
x

or

Как отправить электронную почту на адреса электронной почты, указанные в ячейках Excel?

Предположим, у вас есть список адресов электронной почты, и теперь вы хотите массово отправлять сообщения электронной почты на эти адреса прямо в Excel. Как этого добиться? В этой статье будут показаны способы отправки электронной почты на несколько адресов электронной почты, указанных в ячейках Excel.

Отправка электронной почты на адреса электронной почты, указанные в ячейках Excel, с помощью VBA
Легко отправлять электронную почту на адреса электронной почты, указанные в ячейках, с помощью Kutools for Excel


Отправка электронной почты на адреса электронной почты, указанные в ячейках Excel, с помощью VBA

Следующий код VBA может помочь вам отправлять электронные письма на указанные адреса электронной почты в Excel. Пожалуйста, сделайте следующее.

1. В рабочем листе содержатся адреса электронной почты, на которые нужно отправлять электронные письма, нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. В дебюте Microsoft Visual Basic для приложений окно, пожалуйста, нажмите Инструменты > дело как показано ниже.

3. в Ссылки - VBAProject диалоговом окне найдите и проверьте Библиотека объектов Microsoft Outlook вариант, а затем щелкните OK кнопку.

4. Затем нажмите Вставить > модуль. Затем скопируйте и вставьте приведенный ниже код VBA в окно модуля.

Код VBA: отправка электронной почты на адреса электронной почты, указанные в ячейках Excel

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Внимание: Пожалуйста, укажите тему и текст вашего электронного письма в обоих .Subject = "тест" и .Body = "Уважаемый" _ & vbNewLine & vbNewLine & _ "Это тестовое письмо" & _ "отправка в Excel" строк в коде.

5. нажмите F5 ключ для запуска кода. В открытии Kutools for Excel В диалоговом окне выберите диапазон, содержащий адреса электронной почты, на которые вы будете отправлять электронные письма, а затем щелкните OK кнопка. Смотрите скриншот:

Затем создаются электронные письма на основе выбранных адресов электронной почты, как показано ниже. Пожалуйста, нажмите на Отправить кнопки для отправки этих писем.

Примечания:

1. Если в выбранных ячейках отдельно существуют три адреса электронной почты, будут созданы три сообщения электронной почты.
2. Код VBA работает только при использовании Outlook в качестве почтовой программы.

Отправить электронное письмо на адреса электронной почты, указанные в ячейках, с помощью Kutools for Excel

Этот раздел порекомендует вам Отправить письма полезности Kutools for Excel. С помощью этой утилиты вы можете легко отправлять электронные письма на адреса электронной почты, указанные в ячейках Excel. Пожалуйста, сделайте следующее.

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

1. Выберите адреса электронной почты с ячейкой заголовка на листе, затем щелкните Kutools Plus > Отправить письма.

2. Во всплывающем Отправить письма диалоговом окне выполните следующие настройки:

2.1) Выберите заголовок списка адресов электронной почты в к раскрывающийся список;
2.2) Введите тему электронного письма в поле Тема коробка;
2.3) Составление тела письма;
2.4) Проверьте Отправлять электронные письма через Outlook коробка;
2.5) Нажмите Отправить кнопка. Смотрите скриншот:

3. Затем Kutools for Excel появится диалоговое окно, в котором будет указано, сколько писем было отправлено. Пожалуйста, нажмите на OK кнопку и закройте Отправить письма диалоговое окно. Смотрите скриншот:

Примечания:

1. Вы можете перейти в Outlook Отправленные вещи папку для проверки отправляемых писем.
2. Вы также можете использовать другой сервер, нажав Настройки исходящего сервера чтобы установить собственный режим отправки.

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


Демо: отправка электронной почты на адреса электронной почты, указанные в ячейках, с помощью Kutools for Excel


Статьи по теме:


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office / Excel 2007-2019 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.