Как вставить подпись Outlook при отправке электронной почты в Excel?

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

Вставить подпись в электронную почту Outlook при отправке в Excel VBA
Легко вставляйте подпись Outlook при отправке электронной почты в Excel с помощью замечательного инструмента
Дополнительные руководства по рассылке писем в Excel ...

Вставить подпись в электронную почту Outlook при отправке в Excel VBA

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

1. Откройте рабочий лист, содержащий список адресов электронной почты, на который вы хотите отправить электронное письмо, а затем нажмите другой + F11 ключи.

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

3. Теперь вам нужно заменить .Тело линии в ВБА 2 с кодом в ВБА 1. После этого переместите строку .Отображать под линией С xMailOut.

VBA 1: Шаблон отправки электронных писем с подписью Outlook по умолчанию в Excel

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

VBA 2: отправка электронной почты на адреса электронной почты, указанные в ячейках 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

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

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

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

Советы:

• 1. Вы можете изменить текст сообщения электронной почты в коде VBA 1 в зависимости от ваших потребностей.
• 2. Если после запуска кода появится диалоговое окно с предупреждением о том, что пользовательский тип не определен, закройте это диалоговое окно и затем нажмите Инструменты > Рекомендации в Microsoft Visual Basic для приложений окно. В открытии Ссылки - VBAProject окно, проверьте Библиотека объектов Microsoft Outlook поле и нажмите ОК. А затем снова запустите код.
  

Легко вставляйте подпись Outlook при отправке электронной почты в Excel с помощью замечательного инструмента

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

Во-первых, вам нужно создать список рассылки с различными полями, на основе которых вы будете отправлять электронные письма.

Вы можете вручную создать список рассылки по своему усмотрению или применить функцию «Создать список рассылки», чтобы быстро это сделать.

1. Нажмите Кутулс Плюс > Создать список рассылки.

2. в Создать список рассылки в диалоговом окне укажите нужные поля, выберите, куда выводить список, а затем щелкните значок OK кнопку.

3. Теперь образец списка рассылки создан. Поскольку это примерный список, вам необходимо изменить поля на определенное необходимое содержимое. (допускается несколько строк)

4. После этого выделите весь список (включая заголовки), нажмите Кутулс Плюс > Отправить электронную почту.

5. в Отправить письма диалоговое окно:

• 5.1) Пункты в выбранном списке рассылки автоматически помещаются в соответствующие поля;
• 5.2) Закончите тело письма;
• 5.3) Проверьте как Отправить электронную почту через Outlook и Использовать настройки подписи Outlook коробки;
• 5.4) Нажмите Отправить кнопка. Смотрите скриншот:

Теперь электронные письма отправляются. И подпись Outlook по умолчанию добавляется в конец тела письма.

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

---

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

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

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

Больше информации... Скачать бесплатно... Покупка ... 

---

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

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Больше информации... Скачать бесплатно... Покупка ...