Как да вмъкна подпис на Outlook при изпращане на имейл в Excel?

Да предположим, че искате да изпратите имейл директно в Excel, как можете да добавите подписа на Outlook по подразбиране в имейла? Тази статия предоставя два метода, които да ви помогнат да добавите подпис на Outlook, когато изпращате имейл в Excel.

Вмъкване на подпис в имейл на Outlook при изпращане чрез Excel VBA
Вмъквайте лесно подпис на Outlook, когато изпращате имейл в Excel с невероятен инструмент
Още уроци за изпращане на имейли в Excel...

Вмъкване на подпис в имейл на Outlook при изпращане чрез Excel VBA

Например, има списък с имейл адреси в работен лист, за изпращане на имейли до всички тези адреси в Excel и добавяне на подписа на Outlook по подразбиране в имейлите. Моля, приложете следния VBA код, за да го постигнете.

1. Отворете работния лист, който съдържа списъка с имейл адреси, до които искате да изпратите имейл, и след това натиснете Друг + F11 ключове.

2. В откриването Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модул, и след това копирайте по-долу VBA 2 в прозореца с код на модула.

3. Сега трябва да замените .Тяло подравнявам VBA 2 с кода в VBA 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 за Excel изскача поле за избор, моля, изберете имейл адресите, на които ще изпращате имейли, и след това щракнете OK.

След това се създават имейли. Можете да видите, че подписът по подразбиране на Outlook е добавен в края на тялото на имейла.

Съвет:

• 1. Можете да промените тялото на имейла във VBA код 1 въз основа на вашите нужди.
• 2. След изпълнение на кода, ако се появи диалогов прозорец за грешка, който предупреждава, че дефинираният от потребителя тип не е дефиниран, моля, затворете този диалогов прозорец и след това отидете на щракване Инструменти > Препратки в Microsoft Visual Basic за приложения прозорец. В откриването Препратки – VBAProject прозорец, проверете Обектна библиотека на Microsoft Outlook и кликнете OK. И след това стартирайте кода отново.
  

Вмъквайте лесно подпис на Outlook, когато изпращате имейл в Excel с невероятен инструмент

Ако сте начинаещ във VBA, тук силно препоръчваме Изпращане на имейли полезност на Kutools за Excel за теб. С тази функция можете лесно да изпращате имейли въз основа на определени полета в Excel и да добавяте към тях подпис на Outlook. Моля, направете следното.

Първо, трябва да създадете пощенски списък с различни полета, на базата на които ще изпращате имейли.

Можете ръчно да създадете пощенски списък според нуждите си или да приложите функцията Създаване на пощенски списък, за да го направите бързо.

1. кликване Kutools плюс > Създаване на пощенски списък.

2. В Създаване на пощенски списък диалогов прозорец, посочете полетата, от които се нуждаете, изберете къде да изведете списъка и след това щракнете върху OK бутон.

3. Сега е създаден примерен пощенски списък. Тъй като това е примерен списък, трябва да промените полетата към определено необходимо съдържание. (разрешени са няколко реда)

4. След това изберете целия списък (включете заглавки), щракнете Kutools плюс > Изпращайте имейли.

5. В Изпращане на имейли диалогов прозорец:

• 5.1) Артикулите в избрания пощенски списък се поставят в съответните полета автоматично;
• 5.2) Завършете тялото на имейла;
• 5.3) Проверете и двете Изпратете имейл чрез Outlook намлява Използвайте настройките за подпис на Outlook кутии;
• 5.4) Щракнете върху Изпрати бутон. Вижте екранна снимка:

Сега се изпращат имейли. И подписът на Outlook по подразбиране се добавя в края на тялото на имейла.

Още по темата:

Най-добрите инструменти за продуктивност в офиса

🤖	Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
	Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
	Супер търсене: VLookup с множество критерии  |   VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
	Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
	Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
	Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар   |  Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки   |  Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
	Топ 15 комплекта инструменти:  12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Прочети повече ... Безплатно сваляне...

---

Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

• Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
• Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
• Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!

Прочети повече ... Безплатно сваляне...