Kiedy musisz wysłać masową wiadomość e-mail do dużej grupy osób, będziesz potrzebował zautomatyzowanego procesu, który szybko poradzi sobie z powtarzającymi się zadaniami.Tworzenie Excel Plik z listą emaili jest najczęstszym sposobem wysyłania masowych emaili. Tak więc, w tym poradniku pokażemy jak wysłać email z pliku Excel listę automatycznie do dużej liczby osób.

Pobierz Zeszyt ćwiczeń

Pobierz ten zeszyt ćwiczeń, aby ćwiczyć podczas czytania tego artykułu.

2 Poręczne sposoby wysyłania wiadomości e-mail z listy Excela

Na poniższym obrazku zamieściliśmy zestaw danych z nazwiskami niektórych osób, a także ich e-mailami i numerami rejestracyjnymi.Z Excel musimy wysłać e-mail do każdego z nich. Aby to zrobić, użyjemy Mail Merge w programie Microsoft Word funkcja , a następnie VBA kod do wysyłania e-maili do preferowanych osób z istniejącej listy.

1. zastosuj funkcję Mail Merge do wysyłania wielu e-maili z listy Excela

⇒ Krok 1: Otwórz nowy plik programu Word

• Otwórz pusty Słowo dokument.
• Kliknij na Mailings tab.
• Z. Wybierz odbiorców należy wybrać opcję Użyj istniejącej listy opcja.

⇒ Krok 2: Połącz listę Excela z plikiem Worda

• Wybierz Excel plik, w którym została utworzona lista i kliknij na Otwórz aby otworzyć plik.

• Wybierz numer arkusza, na którym zapisana została lista.
• Następnie należy kliknąć OK .

⇒ Krok 3: Wstawianie pól

• Z. Mailings kliknij na Wstaw pole scalające aby wprowadzić pola, które chcesz wstawić.
• Po pierwsze, włóż Nazwa pole klikając na nie i w preferowanej pozycji poczty ogólnej.

• Jak widać na poniższym obrazku, po dodaniu Nazwa pole, pokaże się jako zmienna imienia każdej osoby.

• Podobnie należy umieścić Reg pole gdziekolwiek chcesz w wiadomości tekstowej.

• W związku z tym pojawi się on jak na obrazku przedstawionym poniżej.

⇒ Krok 4: Sprawdź wyniki podglądu

• Kliknij na Wstępne wyniki aby zobaczyć ostateczny podgląd przed wysłaniem maila.
• Poniższy zrzut ekranu pokazuje jak będzie wyglądał przykładowy email.

⇒ Krok 5: Scalanie wiadomości e-mail

• Aby scalić wiadomości e-mail, kliknij na Finish & Merge opcja.
• Aby otworzyć Połączenie z pocztą elektroniczną zaznaczyć pole Wysyłanie wiadomości e-mail opcja.

• W polu Do, wybierz Email opcja.
• Wpisz preferowany przez siebie temat w Temat pudełko.
• Format poczty będzie następujący HTML domyślnie, więc nie musisz tego zmieniać.
• W opcji Wyślij zapisy należy kliknąć na Wszystkie .
• Na koniec kliknij na OK aby wysłać e-maile do wielu odbiorców jednocześnie.

• W związku z tym wszystkie e-maile będą wysyłane za pośrednictwem powiązanego z Tobą Outlook Sprawdź swoje Outlook opcja wysłana, aby potwierdzić, że maile zostały wysłane.

• Kiedy otworzysz wysłaną wiadomość e-mail, zauważysz, że każde pole jest wypełnione informacjami o konkretnej osobie.

Read More: Jak wysłać e-mail automatycznie po spełnieniu warunku w Excelu

Podobne lektury

• Jak wysłać edytowalny arkusz Excel przez e-mail (3 szybkie metody)
• [Rozwiązany]: Share Workbook Not Showing in Excel (with Easy Steps)
• Automatyczne wysyłanie e-maila z przypomnieniem z arkusza Excela przy użyciu VBA
• Jak sprawdzić, kto jest we współdzielonym pliku Excela (szybkie kroki)
• Jak włączyć udostępnianie skoroszytu w programie Excel

2. uruchomienie kodu VBA do wysyłania e-maili na podstawie wyboru zakresu

Z błogosławieństwem VBA można utworzyć program do wysyłania e-maili z serwera Excel lista z preferowanym wyborem zakresu. Aby wykonać zadanie, wykonaj przedstawione poniżej kroki.

⇒ Krok 1: Utwórz moduł

• Aby otworzyć Makro VBA , naciśnij Alt + F11 .
• Kliknij na Wkładka tab.
• Wybierz Moduł aby utworzyć opcję Moduł .

⇒ Krok 2: Wklejanie kodów VBA

• W nowym Moduł , wkleić Kod VBA .

 #If VBA7 And Win64 Then 'Ptr służy do zmiany przy pracy 32 bitowej na 64 bitową 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() 'Deklarujemy zmienne 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 'Wybierz zakres select adddress xSelectTxt = ActiveWindow.RangeSelection.Address 'Utwórz pole Input dla wyboru zakresu Set xIntRg = Application.InputBox("Please Input Excel data range:","ExcelWIKI", xSelectTxt, , , , , 8) 'Apply If condition to specify column numbers for the operation If xIntRg Is Nothing Then Exit Sub If xIntRg.Columns.Count 3 Then 'Show the result in a msg box for not meeting the condition MsgBox "Error with Region Selection, please confirm", , "ExcelWIKI" Exit Sub End If 'Apply For loop to run operation in each row individually For k = 1 To xIntRg.Rows.Count.' Zbierz adres email i ustaw na zmienną xMailAdd = xIntRg.Cells(k, 2) ' Podaj temat dla Emaila xRegCode = "Nr rejestracyjny ExcelWIKI" ' Wpisz ciało emaila xBody = "" ' Wstaw Nazwy ze zmienną xIntRg xBody = xBody & "Pozdrawiam " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf xBody = xBody & " Oto Twój Nr rejestracyjny ExcelWIKI " ' Wstaw.Nr rejestracyjny ze zmienną xIntRg xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf xBody = xBody & "Naprawdę cieszymy się, że odwiedzasz naszą stronę, wspieraj nas dalej." & vbCrLf xBody = xBody & "Zespół ExcelWIKI" ' Zdefiniuj spacje za pomocą (hex) xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " ", "%20") xBody =Application.WorksheetFunction.Substitute(xBody, " ", "%20") ' Określ, aby zastąpić zwroty karetki z(hex) xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A") ' Wygeneruj link URL xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody ' Użyj linku, aby rozpocząć wysyłanie e-maili ShellExecute 0&, vbNullString, xURLink, vbNullString,vbNullString, vbNormalFocus ' trzy sekundowy interwał wysyłania uderzeń klawiszy Application.Wait (Now + TimeValue("0:00:03")) Application.SendKeys "%s" Next End Sub 

⇒ Krok 3: Uruchomienie programu

• Naciśnij F5 aby uruchomić program.
• Wybierz zakres w polu wprowadzania danych.
• Kliknij OK do wysyłania maili.

• W efekcie pojawią się podglądy wysyłanych maili, jak na poniższym obrazku.

• Na koniec można sprawdzić wysłane maile w celu potwierdzenia.

Read More: Jak wysłać e-mail, jeśli warunki spełnione w Excelu (3 proste metody)

Wniosek

Mam nadzieję, że ten artykuł przybliżył Ci sposób wysyłania masowych e-maili z poziomu Excel Lista. Wszystkie te procedury powinny być poznane i zastosowane w Twoim zbiorze danych. Zajrzyj do zeszytu ćwiczeń i sprawdź te umiejętności. Mamy motywację do tworzenia takich poradników dzięki Waszemu cennemu wsparciu.

W razie jakichkolwiek pytań prosimy o kontakt, a także o pozostawienie komentarzy w sekcji poniżej.

My Exceldemy Zespół, zawsze reaguje na Twoje pytania.

Zostań z nami i ucz się dalej.