Как вставить подпись 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 по умолчанию добавляется в конец тела письма.

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