1. Інструменти для підвищення продуктивності Excel
2. Вставити підпис в електронну пошту Outlook при відправленні за допомогою Excel VBA
3. Статті по темі:
4. Вкладка «Office» надає ефективні і зручні вкладки для Office (включаючи Excel), так само, як Chrome, Firefox і новий IE

При відправці електронної пошти за допомогою коду VBA в Excel підпис Outlook не буде доступний широкому автоматично в елементі електронної пошти. У цій статті йдеться про надсилання електронної пошти з відображенням підписи Outlook в елементі електронної пошти кодом VBA в Excel.

Вставити підпис в електронну пошту Outlook при відправленні за допомогою Excel VBA

Легко відправляти електронну пошту через Outlook на основі створеного списку розсилки:

Надіслати листа утиліта Kutools для Excel допомагає користувачам відправляти електронну пошту через Outlook на основі створеного списку розсилки в Excel. Див. Знімок екрану:

Kutools for Excel включає в себе більш зручні інструменти Excel 300. Безкоштовно, без обмежень, в 60-дні. Завантажте безкоштовну пробну версію

Інструменти для підвищення продуктивності Excel

Office Tab : Додайте функції редагування, перегляду і управління вкладками в Office (включаючи Excel), як в Chrome і Firefox. Завантажити зараз

Kutools for Excel : Більш ніж розширені функції 300 економлять час 70% і вирішують проблеми 80% Excel для вас. Завантажити зараз

Вставити підпис в електронну пошту Outlook при відправленні за допомогою Excel VBA

Припустимо, що вам потрібно відправляти електронні листи в список адрес електронної пошти, включаючи підпис Outlook у всіх відправляють повідомленнях електронної пошти. Будь ласка, зробіть наступне.

1. Будь ласка, замініть рядок .Body нижче VBA 2 кодом VBA 1. І в VBA 2 перемістіть .Display збудуйте лінію до тих пір, поки вона не знайде З xMailOut лінія.

VBA 1: шаблон відправки електронної пошти з підписом в 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.

Після запуску коду VBA ви можете бачити, що підпис Outlook за замовчуванням автоматично додається в тіло створених електронних листів, як показано нижче.

Статті по темі:

Рекомендовані інструменти для підвищення продуктивності в Excel

Kutools для Excel допомагає завжди завершувати роботу завчасно, більше часу радіти життю

Ви часто граєте в догонялки з роботою, не вистачає часу на себе і свою сім'ю? Kutools для Excel може допомогти вам розібратися з головоломками 80% Excel і поліпшити 70% ефективність роботи, дати вам більше часу, щоб піклуватися про сім'ю і радіти життю.

• Більше, ніж потужні розширені функції 300 для робітників сценаріїв +1500 зробіть свою роботу набагато простіше, ніж коли-небудь.
• Більше не потрібно запам'ятовувати формули і коди VBA, дайте вашому мозку відпочити.
• Складні і повторні операції можуть бути виконані одноразової обробкою за лічені секунди.
• Щодня скорочуйте тисячі операцій з клавіатурою і мишкою, попрощайтеся з професійними захворюваннями зараз.
• Стати експертом по Excel за хвилини 3, допоможіть швидко отримати визнання і підвищення заробітної плати.
• Високоефективні люди 110,000 і вибір всесвітньо відомих компаній 300 +.
• 60-Day повнофункціональна пробна версія. 60-денна гарантія повернення грошей без причини. Безкоштовне оновлення і підтримка 2 років. Купити один раз, використовувати назавжди.

Вкладка «Office» надає ефективні і зручні вкладки для Office (включаючи Excel), так само, як Chrome, Firefox і новий IE

• Відкривайте і створюйте документи в новій вкладці того ж вікна, а не в нових вікнах.
• Підвищує вашу продуктивність на 50% під час перегляду і редагування декількох документів.
• Одна секунда для перемикання між десятками відкритих документів і скорочення сотень кліків мишкою для вас кожен день!