Как да изпращате персонализирани масови имейли до списък от Excel чрез Outlook?
Например имам следния диапазон от данни в работен лист, който съдържа колони Име, Имейл адрес, Регистрационен код и сега искам да изпратя съобщение с персонализиран поздрав и техен собствен регистрационен код до разделените имейл адреси в колона А. За да разрешите този проблем, следните методи могат да ви помогнат.
Изпращайте персонализирани масови имейли до списък от Excel с функцията за обединяване на имейли
Изпращайте персонализирани масови имейли до списък от Excel с VBA код
Изпращайте персонализирани масови имейли до списък с различни прикачени файлове с помощта на Kutools за Excel
Изпращайте персонализирани масови имейли до списък от Excel с функцията за обединяване на имейли
Със Словото Съвпадение по пощата функция, можете да завършите тази работа бързо и лесно, моля, направете следното стъпка по стъпка:
1. Стартирайте нов празен документ на Word и след това щракнете Съобщения > Изберете Получатели > Използвайте съществуващ списък, вижте екранна снимка:
2. В Изберете Източник на данни прозорец, изберете работната книга, която включва диапазона от данни, който искате да използвате, и щракнете отворено бутон, вижте екранната снимка:
3. В следващите Изберете Таблица диалоговия прозорец, моля, изберете работния лист с диапазона от данни, от който се нуждаете, и след това щракнете OK бутон, вижте екранната снимка:
4. И основният документ на имейл съобщението и вашият списък с адреси са свързани заедно, сега можете да редактирате текстовото съобщение и да добавяте контейнери, които показват къде ще се появи уникалната информация във всяко съобщение.
(1.) За да вмъкнете тяхното индивидуално поздравително име, щракнете Съобщения > Поставете поле за обединяване > Име, персонализираното име е вмъкнато в съобщението и името на полето е заобиколено от "".
(2.) Продължете да пишете вашето съобщение и вмъкнете Регистрационен код на мястото, където ви е необходимо, вижте екранната снимка:
5. След като съставите съобщението, можете да щракнете Преглед на резултатите под Mailing раздел, за да прегледате имейл съобщенията и да направите промени, преди действително да завършите сливането.
6. След като се уверите, че няма проблем, можете да изпратите имейлите до отделните получатели, моля щракнете Съобщения > Завършване и обединяване > Изпратете имейл съобщение, вижте екранна снимка:
7. След това изскочи Обединяване към имейл диалогов прозорец, направете следните операции:
(1.) От Да се падащ списък, моля изберете Имейл адрес колона;
(2.) Можете да въведете темата в Тема: линия текстово поле;
(3.) От Изпращане на записи раздел, изберете Всички.
8, И после щракнете върху OK, имейлите се изпращат до отделни получатели с техния собствен регистрационен код наведнъж, след като изпратите имейлите, можете да отидете във вашия Outlook, за да се уверите, че имейлите са изпратени успешно.
Изпращайте персонализирани имейли до множество получатели с различни прикачени файлове:
с Kutools за Excel's Изпращане на имейли можете бързо да изпращате персонализирани имейли до множество получатели с различни прикачени файлове от Excel чрез Outlook, както ви е необходимо. В същото време можете да изпратите CC или Bcc съобщенията и на конкретно лице. Изтеглете и безплатна пробна версия Kutools за Excel сега! |
Изпращайте персонализирани масови имейли до списък от Excel с VBA код
С изключение на функцията за циркулярна поща, следният VBA код също може да ви направи услуга, моля, направете следното:
1. Задръжте натиснат ALT + F11 ключове и отваря Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Изпратете персонализирани масови имейли до списък от Excel:
#If VBA7 And Win64 Then
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As LongPtr, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As LongPtr
#Else
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
#End If
Sub SendEMail()
'update by Extendoffice 20160506
Dim xEmail As String
Dim xSubj As String
Dim xMsg As String
Dim xURL As String
Dim i As Integer
Dim k As Double
Dim xCell As Range
Dim xRg As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count <> 3 Then
MsgBox " Regional format error, please check", , "Kutools for Excel"
Exit Sub
End If
For i = 1 To xRg.Rows.Count
' Get the email address
xEmail = xRg.Cells(i, 2)
' Message subject
xSubj = "Your Registration Code"
' Compose the message
xMsg = ""
xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
xMsg = xMsg & " This is your Registration Code "
xMsg = xMsg & xRg.Cells(i, 3).Text & "." & vbCrLf & vbCrLf
xMsg = xMsg & " please try it, and glad to get your feedback! " & vbCrLf
xMsg = xMsg & "Skyyang"
' Replace spaces with %20 (hex)
xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
' Replace carriage returns with %0D%0A (hex)
xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
' Create the URL
xURL = "mailto:" & xEmail & "?subject=" & xSubj & "&body=" & xMsg
' Execute the URL (start the email client)
ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
' Wait two seconds before sending keystrokes
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
Next
End Sub
3. След това натиснете F5 за да изпълните този код и ще изскочи поле за подкана, за да ви напомни да изберете диапазона от данни, който искате да използвате, вижте екранна снимка:
4, И после щракнете върху OK имейлите ще бъдат изпратени на отделни адреси с техния индивидуален регистрационен код един по един, след като изпратите имейлите, можете да отидете във вашия Outlook, за да се уверите, че имейлите са изпратени успешно.
Забележка: В горния код можете да промените темата или тялото на съобщението според вашите нужди.
Изпращайте персонализирани масови имейли до списък с различни прикачени файлове с помощта на Kutools за Excel
Ако имате Kutools за Excel, Със своята Изпращане на имейли можете бързо да изпращате персонализирани имейли до множество получатели с различни прикачени файлове според нуждите ви.
Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:
1. Щракнете Kutools плюс > Изпращане на имейли, вижте екранна снимка:
2. В Изпратете имейли диалоговия прозорец, моля, изберете диапазона от данни, който искате да използвате, и след това посочете адресите на получателите, прикачените файлове и темата, както ви е необходимо, вижте екранната снимка:
3. В полето за редактиране вмъкнете отделните имена на поздравления, моля изберете Име от падащия списък и след това щракнете Вмъкване на контейнер за да вмъкнете имената в съобщението, вижте екранната снимка:
4. След това въведете тялото на вашето съобщение в полето, както ви е необходимо, вижте екранната снимка:
5. След като завършите тялото на имейла, моля, изберете режима на изпращане, както искате, можете да изпратите с помощта на Outlook или посочения от вас сървър, вижте screesnhot:
Забележка: Ако искате да използвате друг сървър, щракнете Настройки на изходящия сървър за да зададете режима на изпращане по ваш собствен, вижте снимката на екрана:
6. Най-накрая щракнете Изпрати бутон за изпращане на имейлите, след като завършите, ще изскочи поле за подкана, за да ви напомни за състоянието на изпращане. виж снимката на екрана:
Щракнете върху Изтегляне и безплатна пробна версия Kutools за Excel сега!
Демонстрация: Изпратете персонализирани масови имейли до списък от Excel чрез Outlook
Свързана статия:
Как да изпратите имейл до множество получатели в списък от Excel чрез Outlook?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!