Когато трябва да изпратите масово електронно писмо до голяма група хора, ви е необходим автоматизиран процес, който може бързо да се справя с повтарящи се задачи. Excel файл със списък от имейли е най-често срещаният начин за изпращане на масови имейли. В този урок ще ви покажем как да изпратите имейл от Excel списък автоматично до голям брой хора.

Изтегляне на работна тетрадка за практика

Изтеглете тази учебна тетрадка, за да се упражнявате, докато четете тази статия.

2 удобни подхода за изпращане на имейл от списък на Excel

В изображението по-долу сме включили набор от данни с имената на някои хора, както и с техните имейли и регистрационни номера. Excel трябва да изпратим имейли на всяко лице. За да постигнем това, ще използваме Mail Merge на Microsoft Word функция , последвано от VBA код за изпращане на имейли до предпочитани лица от съществуващия списък.

1. Прилагане на функцията Mail Merge за изпращане на множество имейли от списък в Excel

⇒ Стъпка 1: Отваряне на нов файл в Word

• Отваряне на празен Word документ.
• Кликнете върху Пощенски съобщения таб.
• От Избор на получатели изберете опцията Използване на съществуващ списък опция.

⇒ Стъпка 2: Свързване на списъка в Excel с файла в Word

• Изберете Excel файла, в който сте създали списъка, и щракнете върху Отворете за да отворите файла.

• Изберете номера на листа, в който сте записали списъка.
• След това щракнете върху OK .

⇒ Стъпка 3: Вмъкване на полета

• От Пощенски съобщения щракнете върху опцията Вмъкване на поле за сливане за да въведете полетата, които искате да вмъкнете.
• Първо, поставете Име поле, като щракнете върху него и в предпочитаната позиция на общата поща.

• Както е показано на изображението по-долу, след добавянето на Име ще се покаже като променлива на името на всеки човек.

• По същия начин поставете Reg където искате в текстовото съобщение.

• Затова той ще изглежда като изображението, показано по-долу.

⇒ Стъпка 4: Проверка на резултатите от предварителния преглед

• Кликнете върху Резултати от предварителния преглед за да видите окончателния преглед, преди да изпратите имейла.
• Снимката на екрана по-долу показва как ще изглежда един примерен имейл.

⇒ Стъпка 5: Обединяване на имейли

• За да обедините имейлите, щракнете върху Завършете & Обединяване опция.
• За да отворите Сливане с електронна поща изберете полето Изпращане на имейл съобщения опция.

• В полето Към изберете Имейл опция.
• Въведете предпочитаната от вас тема в Линия на темата кутия.
• Форматът на пощата ще бъде HTML по подразбиране, така че не е необходимо да го променяте.
• В опцията Изпращане на записи щракнете върху Всички .
• Накрая щракнете върху OK за изпращане на имейли до няколко получатели едновременно.

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

• Когато отворите изпратен имейл, ще забележите, че всяко поле е запълнено с информация за конкретно лице.

Прочетете още: Как да изпратите имейл автоматично, когато условието е изпълнено в Excel

Подобни четива

• Как да изпратите редактируема електронна таблица на Excel по имейл (3 бързи метода)
• [Решено]: Споделената работна книга не се показва в Excel (с лесни стъпки)
• Автоматично изпращане на имейл с напомняне от работен лист на Excel с помощта на VBA
• Как да видите кой е в споделен файл на Excel (с бързи стъпки)
• Как да разрешите споделянето на работна книга в Excel

2. Изпълнение на код VBA за изпращане на имейли от избор на диапазон

С благословията на VBA , можете да създадете програма за изпращане на имейли от Excel списък с предпочитан избор на обхвата. Следвайте описаните по-долу стъпки, за да изпълните задачата.

⇒ Стъпка 1: Създаване на модул

• За да отворите Макрос на VBA , натиснете Alt + F11 .
• Кликнете върху Вмъкване на таб.
• Изберете Модул опция за създаване на Модул .

⇒ Стъпка 2: Поставяне на кодове VBA

• В новия Модул , поставете следното Код VBA .

 #If VBA7 And Win64 Then 'Ptr се използва за промяна на 32-битовата към 64-битовата операция Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal wnd As LongPtr, ByVal lpDirect As String, _ ByVal Parameters As String, ByVal File As String, ByVal Operation As String, _ ByVal nCmd As Long) As LongPtr #Else #End If Sub SendExcelListEMail() 'Declare the variables DimxMailAdd As String Dim xRegCode As String Dim xBody As String Dim xURLink As String Dim xRngCell As Range Dim xIntRg As Range Dim xSelectTxt As String Dim k As Integer Dim p As Double On Error Resume Next 'Изберете диапазон изберете адрес xSelectTxt = ActiveWindow.RangeSelection.Address 'Създаване на входно поле за избор на диапазон Set xIntRg = Application.InputBox("Моля, въведете диапазон от данни на Excel:","ExcelWIKI", xSelectTxt, , , , , , 8) 'Приложете условието If, за да зададете номерата на колоните за операцията If xIntRg Is Nothing Then Exit Sub If xIntRg.Columns.Count 3 Then 'Покажете резултата в msg box за неизпълнение на условието MsgBox "Error with Region Selection, please confirm", , "ExcelWIKI" Exit Sub End If 'Приложете цикъла For, за да изпълните операцията във всеки ред поотделно For k = 1 To xIntRg.Rows.Count' Съберете имейл адреса и го задайте в променливата xMailAdd = xIntRg.Cells(k, 2) ' Дайте тема за имейла xRegCode = "Регистрационен номер на ExcelWIKI" ' Въведете тялото на имейла xBody = "" ' Вмъкнете имената с променливата xIntRg xBody = xBody & "Поздрави " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf xBody = xBody & " Ето вашия регистрационен номер на ExcelWIKI " ' ВмъкнетеРегистрационен номер с променливата xIntRg xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf xBody = xBody & "Наистина се радваме, че сте посетили нашия сайт, продължавайте да ни подкрепяте." & vbCrLf xBody = xBody & "Екип на ExcelWIKI" ' Дефиниране на пространства с (шестнадесетичен) xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " ", "%20") xBody =Application.WorksheetFunction.Substitute(xBody, " ", "%20") ' Задайте да се заменят връщания на карета с(hex) xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A") ' Генерирайте URL връзката xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody ' Използвайте връзката, за да започнете да изпращате имейли ShellExecute 0&, vbNullString, xURLink, vbNullString,vbNullString, vbNormalFocus ' интервал от три секунди за изпращане на натискане на клавиши Application.Wait (Now + TimeValue("0:00:03")) Application.SendKeys "%s" Next End Sub 

⇒ Стъпка 3: Стартиране на програмата

• Натиснете F5 за да стартирате програмата.
• Изберете обхвата в полето за въвеждане.
• Кликнете върху OK за изпращане на имейли.

• В резултат на това ще се появят визуализации на изпращане на имейли, както е показано на изображението по-долу.

• Накрая можете да проверите изпратените имейли за потвърждение.

Прочетете още: Как да изпратите имейл, ако условията са изпълнени в Excel (3 лесни метода)

Заключение

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

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

Ние, Exceldemy Екипът винаги реагира на вашите запитвания.

Останете с нас и продължавайте да се учите.