Как да изпратите имейл с копиране и поставяне на определен диапазон в тялото на имейл в Excel?
В много случаи определен набор от съдържание в работния лист на Excel може да бъде полезен във вашата имейл комуникация. В тази статия ще представим метод за изпращане на имейл с поставяне на определен диапазон в тялото на имейл директно в Excel.
Изпратете имейл с определен диапазон, поставен в тялото на имейла в Excel
Изпратете имейл с определен диапазон, поставен в тялото на имейла, с невероятен инструмент
Още уроци за изпращане на имейли в Excel...
Изпратете имейл с определен диапазон, поставен в тялото на имейла в Excel
Следният VBA код може да ви помогне да копирате диапазон и да го поставите в тялото на имейл на Outlook директно в Excel. Моля, направете следното.
1. В работния лист съдържа диапазона, който трябва да копирате, натиснете Друг + F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложения прозорец.
2. В откриването Microsoft Visual Basic за приложения прозорец, моля щракнете Инструменти > Препратки както е показано на екранната снимка по-долу.
3. В Препратки – VBAProject диалогов прозорец, моля, намерете и проверете Обектна библиотека на Microsoft Outlook опция и след това щракнете върху OK бутон.
4. кликване Поставете > Модули, след това копирайте и поставете кода на VBA по-долу в прозореца на модула.
VBA код: Изпратете имейл с определен диапазон, поставен в тялото на имейла в Excel
Sub Send_Email()
'Updated by Extendoffice 20200119
Dim xRg As Range
Dim I, J As Long
Dim xAddress As String
Dim xEmailBody As String
Dim xMailOut As Outlook.MailItem
Dim xOutApp As Outlook.Application
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xMailOut = xOutApp.CreateItem(olMailItem)
For I = 1 To xRg.Rows.Count
For J = 1 To xRg.Columns.Count
xEmailBody = xEmailBody & " " & xRg.Cells(I, J).value
Next
xEmailBody = xEmailBody & vbNewLine
Next
xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
With xMailOut
.Subject = "Test"
.To = ""
.Body = xEmailBody
.Display
'.Send
End With
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub
бележки:
- 1). Моля, променете основния текст на имейла xEmailBody = "Здравейте" & vbLf & vbLf & " тяло на съобщението, което искате да добавите" & vbLf & vbLf & xEmailBody & vbNewLine както ви е нужно.
- 2). Моля, посочете вашия имейл получател и тема (.До = намлява .Тема = "тест") редове в кода.
5. Натисни F5 ключ за изпълнение на кода. В изскачащите Kutools за Excel диалогов прозорец, моля, изберете диапазона, който трябва да поставите в основния текст на имейла, и след това щракнете върху OK бутон. Вижте екранна снимка:
6. Сега е създаден имейл с определен получател, тема, текст и избран диапазон на Excel, моля, щракнете върху Изпрати бутон, за да изпратите този имейл. Вижте показаната екранна снимка.
Забележка: VBA кодът работи само когато използвате Outlook като своя имейл програма.
Изпратете имейл с определен диапазон, поставен в тялото на имейла, с невероятен инструмент
Ако не използвате Outlook и все пак искате да изпращате имейли директно в Excel с посочени данни за диапазон, поставени вътре, силно препоръчвам Изпращане на имейли полезност на Kutools за Excel за теб. С тази функция просто трябва да конфигурирате изходящия сървър на имейл адрес и след това да изпращате имейли в Excel директно през този имейл адрес в бъдеще.
Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.
1. Първо, трябва да подготвите пощенски списък с необходимите полета.
- Съвети: Пощенският списък трябва да съдържа поне 2 реда и първият ред трябва да бъде заглавките (Ако приемем, че искате да изпращате имейли до два имейл адреса в Excel, моля, въведете тези два имейл адреса със заглавка „Имейл“, както е показано на екранната снимка по-долу ).
- Като алтернатива можете лесно да създадете пощенски списък с Създаване на пощенски списък функция.
2. Изберете диапазона, в който ще добавите данните към тялото на имейла, и натиснете Ctrl + C ключове за копиране.
3. Изберете целия пощенски списък (включете заглавки), щракнете Kutools плюс > Изпращане на имейли. Вижте екранна снимка:
4. След това Изпращане на имейли изскача диалогов прозорец.
- 4.1) Елементите от избрания пощенски списък се попълват в съответните полета (можете да добавите повече полета към пощенския списък, ако желаете);
- 4.2) Щракнете върху полето за тялото на имейла, натиснете Ctrl + V клавиши, за да поставите избраните данни от диапазона в него. След това добавете друго съдържание, както ви е необходимо;
- 4.3 Премахнете отметката от Изпращайте имейли чрез Outlook кутия;
- 2.4) Щракнете върху Настройки на изходящия сървър бутон. Вижте екранна снимка:
5. След това Настройки на изходящия сървър (SMTP) – Нова схема изскача диалогов прозорец. Моля, попълнете имейл адреса с настройките на сървъра му, посочете папка за запазване на всички изпратени имейли, след като проверите Запазване на изпратените имейли до и след това щракнете върху OK , за да запазите настройките.
6. Когато се върне към Изпращане на имейли кликнете върху Изпрати бутон за изпращане на имейла.
Отсега нататък можете да изпращате имейли с тази функция директно в Excel.
Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.
Още по темата:
Изпращайте имейл до имейл адреси, посочени в клетки в Excel
Да предположим, че имате списък с имейл адреси и искате да изпратите имейл съобщение до тези имейл адреси групово директно в Excel. Как да го постигнем? Тази статия ще ви покаже методи за изпращане на имейл до множество имейл адреси, посочени в клетки в Excel.
Вмъкване на подпис на Outlook при изпращане на имейл в Excel
Да предположим, че искате да изпратите имейл директно в Excel, как можете да добавите подписа на Outlook по подразбиране в този имейл? Тази статия предоставя два метода, които да ви помогнат да добавите подпис на Outlook, когато изпращате имейл в Excel.
Изпратете имейл с множество прикачени файлове в Excel
Тази статия говори за изпращане на имейл през Outlook с множество прикачени файлове в Excel.
Изпратете имейл, ако крайният срок е спазен в Excel
Например, ако крайната дата в колона C е по-малка или равна на 7 дни (текущата дата е 2017/9/13), тогава изпратете напомняне по имейл до посочения получател в колона A с определено съдържание в колона B. Как да постигни го? Тази статия ще предостави VBA метод за справяне с него в детайли.
Автоматично изпращане на имейл въз основа на стойността на клетка в Excel
Да предположим, че искате да изпратите имейл през Outlook до определен получател въз основа на определена стойност на клетка в Excel. Например, когато стойността на клетка D7 в работен лист е по-голяма от 200, имейлът се създава автоматично. Тази статия представя метод на VBA за бързо решаване на този проблем.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!