Jak wysyłać spersonalizowane masowe e-maile do listy z Excela przez Outlooka?
Na przykład mam następujący zakres danych w arkuszu, który zawiera kolumny Imię i nazwisko, Adres e-mail, Kod rejestracyjny, a teraz chcę wysłać wiadomość ze spersonalizowanym powitaniem i własnym kodem rejestracyjnym na oddzielne adresy e-mail w kolumnie A. Aby rozwiązać ten problem, mogą Ci pomóc następujące metody.
Wysyłaj spersonalizowane masowe e-maile do listy z Excela z kodem VBA
Wysyłaj spersonalizowane masowe wiadomości e-mail na listę z różnymi załącznikami za pomocą Kutools for Excel
Wysyłaj spersonalizowane masowe wiadomości e-mail do listy z programu Excel z funkcją korespondencji seryjnej
Ze słowami Korespondencja seryjna funkcję, możesz szybko i łatwo zakończyć tę pracę, wykonaj następujące czynności:
1. Uruchom nowy, pusty dokument programu Word, a następnie kliknij mailingi > Wybierz odbiorców > Użyj istniejącej listyzobacz zrzut ekranu:
2, w Wybierz źródło danych wybierz skoroszyt zawierający zakres danych, którego chcesz użyć, i kliknij Otwarte przycisk, zobacz zrzut ekranu:
3. W przyszłości Wybierz tabelę W oknie dialogowym wybierz arkusz z wymaganym zakresem danych, a następnie kliknij OK przycisk, zobacz zrzut ekranu:
4. A główny dokument wiadomości e-mail i lista adresów zostały połączone ze sobą, teraz możesz edytować wiadomość tekstową i dodawać symbole zastępcze, które wskazują, gdzie w każdej wiadomości pojawią się unikalne informacje.
(1.) Aby wstawić własną nazwę powitania, kliknij mailingi > Wstaw pole scalania > Imię, spersonalizowana nazwa została wstawiona do wiadomości, a nazwa pola jest otoczona «».
(2.) Kontynuuj wpisywanie wiadomości i wstaw plik Kod rejestracyjny w miejsce, w którym potrzebujesz, patrz zrzut ekranu:
5. Po utworzeniu wiadomości możesz kliknąć Podgląd wyników pod Mailing aby wyświetlić podgląd wiadomości e-mail i wprowadzić zmiany przed faktycznym zakończeniem scalania.
6. Po upewnieniu się, że nie ma problemu, możesz wysłać e-maile do różnych odbiorców, kliknij mailingi > Zakończ i scal > Wyślij wiadomość e-mailzobacz zrzut ekranu:
7. Potem wyskoczył Połącz z e-mailem w oknie dialogowym wykonaj następujące operacje:
(1.) Z Do rozwijana lista, proszę wybrać Adres e-mail kolumna;
(2.) Możesz wpisać temat do Temat pole tekstowe linii;
(3.) Z Wyślij rekordy sekcja, wybierz Wszystkie kategorie.
8. A następnie kliknij OK, e-maile są wysyłane do różnych odbiorców z własnym kodem rejestracyjnym naraz, po wysłaniu e-maili możesz przejść do programu Outlook, aby upewnić się, że e-maile zostały wysłane pomyślnie.
Wysyłaj spersonalizowane wiadomości e-mail do wielu odbiorców z różnymi załącznikami:
Z Kutools dla programu Excel's Wysyłać emaile możesz szybko wysyłać spersonalizowane wiadomości e-mail do wielu odbiorców z różnymi załącznikami z programu Excel za pośrednictwem programu Outlook, zgodnie z potrzebami. W tym samym czasie możesz również przesłać wiadomości do określonej osoby jako DW lub UDW. Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz! |
Wysyłaj spersonalizowane masowe e-maile do listy z Excela z kodem VBA
Z wyjątkiem funkcji korespondencji seryjnej następujący kod VBA może również wyświadczyć ci przysługę, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klucze i otwiera plik Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: wysyłaj spersonalizowane masowe wiadomości e-mail na listę z programu 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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a pojawi się okno zachęty przypominające o wyborze zakresu danych, którego chcesz użyć, patrz zrzut ekranu:
4. A następnie kliknij OK przycisk, e-maile będą wysyłane na oddzielne adresy z indywidualnym kodem rejestracyjnym jeden po drugim, po wysłaniu e-maili możesz przejść do programu Outlook, aby upewnić się, że e-maile zostały wysłane pomyślnie.
Note: W powyższym kodzie możesz zmienić temat lub treść wiadomości według swoich potrzeb.
Wysyłaj spersonalizowane masowe wiadomości e-mail na listę z różnymi załącznikami za pomocą Kutools for Excel
Jeśli Kutools dla programu Excel, Z siedzibą w Wysyłać emaile możesz szybko wysyłać spersonalizowane wiadomości e-mail do wielu odbiorców z różnymi załącznikami, zgodnie z potrzebami.
Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. |
Po zainstalowaniu Kutools dla programu Excel, zrób tak:
1. Kliknij Kutools Plus > Wysyłać emailezobacz zrzut ekranu:
2, w Wyślij Emials W oknie dialogowym wybierz zakres danych, którego chcesz użyć, a następnie określ adresy odbiorców, załączniki i temat zgodnie z potrzebami, patrz zrzut ekranu:
3. W polu edycji wstaw indywidualne nazwy powitań, wybierz Imię z listy rozwijanej, a następnie kliknij Wstaw symbol zastępczy aby wstawić nazwiska do wiadomości, zobacz zrzut ekranu:
4. Następnie wpisz treść wiadomości w polu, jak potrzebujesz, zobacz zrzut ekranu:
5. Po zakończeniu treści wiadomości e-mail wybierz żądany tryb wysyłania, możesz wysłać za pomocą Outlooka lub określonego serwera, patrz zrzut ekranu:
Note: Jeśli chcesz użyć innego serwera, kliknij Ustawienia serwera poczty wychodzącej aby ustawić własny tryb wysyłania, zobacz screesnhot:
6. Nareszcie kliknij Wyślij aby wysłać e-maile, po zakończeniu pojawi się okienko przypominające o statusie wysyłania. patrz screesnhot:
Kliknij Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!
Demo: wysyłaj spersonalizowane masowe wiadomości e-mail do listy z programu Excel za pośrednictwem programu Outlook
Podobne artykuły:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!