Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

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

Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel добавляет расширенные функции 300 в Excel и повышает производительность на 80%
  • Super Formula Bar (легко редактировать несколько строк текста и формул); Чтение макета (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон ...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объединить дублирующиеся строки и сумму / среднее ... Предотвратить повторяющиеся клетки; Сравнить диапазоны ...
  • Выберите Дублировать или Уникальные строки; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих книгах; Случайный выбор ...
  • Точное копирование нескольких ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставьте маркеры, флажки и многое другое ...
  • Любить и быстро вставлять формулы, диапазоны, графики и рисунки; Шифровать ячейки с помощью пароля; Создать список рассылки и отправлять электронные письма ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев ...
  • Суперфильтр (сохранение и применение схем фильтрации к другим листам); Расширенный Сортировать по месяцу / неделе / ​​дню, частоте и многому другому; Специальный фильтр жирным шрифтом, курсив ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разбить данные на несколько листов; Пакетное конвертирование xls, xlsx и PDF ...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.

Отправлять электронную почту на адреса электронной почты, указанные в ячейках в 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 = "test" .Body = "Дорогой" _ & vbNewLine & vbNewLine & _ "Это тестовая электронная почта" & _ "отправка в Excel" строки в коде.

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

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

Примечания:

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

2. Код VBA работает только при использовании Outlook в качестве почтовой программы.


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

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

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни.

1. Выберите адреса электронной почты с ячейкой заголовка на листе, а затем нажмите Предприятие > Отправить письма, Смотрите скриншот:

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

2.1) Выберите заголовок списка адресов электронной почты в к выпадающий список;

2.2) Введите тему сообщения в Тема коробка;

2.3) Составление вашего тела электронной почты;

2.4). Проверьте Отправка писем через Outlook коробка;

2.5) Нажмите Отправить кнопка. Смотрите скриншот:

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

Примечания:

1. Вы можете перейти в Outlook Отправленные вещи чтобы проверить отправку писем.

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

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


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

Kutools for Excel включает в себя более удобные инструменты Excel 300. Бесплатно, без ограничений, в 60-дни. Скачайте бесплатную пробную версию прямо сейчас!


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


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
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.