Ja jums ir nepieciešams nosūtīt masveida e-pasta vēstuli lielai cilvēku grupai, jums ir nepieciešams automatizēts process, kas var ātri apstrādāt atkārtotus uzdevumus. Excel fails ar e-pasta vēstuļu sarakstu ir visizplatītākais veids, kā sūtīt masveida e-pasta vēstules. Šajā pamācībā mēs parādīsim, kā sūtīt e-pasta vēstules no. Excel sarakstu automātiski nosūtīt lielam skaitam cilvēku.

Lejupielādēt Practice Workbook

Lejupielādējiet šo prakses darba burtnīcu, lai vingrinātos, kamēr lasāt šo rakstu.

2 ērtas pieejas e-pasta sūtīšanai no Excel saraksta

Tālāk attēlā ir iekļauts datu kopums ar dažu cilvēku vārdiem, kā arī viņu e-pasta adresēm un reģistrācijas numuriem. No Excel sarakstam, mums ir jānosūta e-pasta vēstules katrai personai. Lai to paveiktu, mēs izmantosim Microsoft Word Mail Merge funkcija , kam seko VBA kods, lai nosūtītu e-pasta ziņojumus vēlamajām personām no esošā saraksta.

1. Pielietojiet Mail Merge funkciju, lai nosūtītu vairākus e-pastus no Excel saraksta

⇒ 1. solis: Atveriet jaunu Word failu

• Atveriet tukšu Vārds dokuments.
• Noklikšķiniet uz Pasta sūtījumi cilne.
• No Izvēlieties saņēmējus opciju, izvēlieties Esošā saraksta izmantošana iespēja.

⇒ 2. solis: Excel saraksta sasaiste ar Word failu

• Izvēlieties Excel failu, kurā esat izveidojis sarakstu, un noklikšķiniet uz Atvērt lai atvērtu failu.

• Atlasiet lapas numuru, kurā esat uzrakstījis sarakstu.
• Pēc tam noklikšķiniet uz LABI .

⇒ 3. solis: Ievietojiet laukus

• No Pasta sūtījumi iespēju, noklikšķiniet uz Ievietot apvienošanas lauku iespēju, lai ievadītu vēlamos ievietot laukus.
• Vispirms ievietojiet Nosaukums laukā, noklikšķinot uz tā un vēlamajā vispārējā pasta pozīcijā.

• Kā redzams attēlā zemāk, pēc pievienošanas Nosaukums laukā, tas tiks parādīts kā katras personas vārda mainīgais.

• Līdzīgi ievietojiet Reg laukā, kur vien vēlaties, teksta ziņojumā.

• Tāpēc tas tiks parādīts kā tālāk redzamajā attēlā.

⇒ 4. solis: pārbaudiet priekšskatījuma rezultātus

• Noklikšķiniet uz Priekšskatījuma rezultāti lai pirms e-pasta nosūtīšanas redzētu galīgo priekšskatījumu.
• Tālāk redzamajā ekrānšāviņš parādīts, kā izskatās e-pasta paraugs.

⇒ 5. solis: e-pasta vēstuļu apvienošana

• Lai apvienotu e-pasta vēstules, noklikšķiniet uz Pabeigt & amp; Apvienot iespēja.
• Lai atvērtu Apvienošana ar e-pastu lodziņā atlasiet Sūtīt e-pasta ziņojumus iespēja.

• Ailē Kam atlasiet E-pasts iespēja.
• Ierakstiet vēlamo priekšmeta līniju Priekšmeta līnija kaste.
• Pasta formāts būs šāds. HTML pēc noklusējuma, tāpēc tas nav jāmaina.
• Iespējā Sūtīt ierakstus noklikšķiniet uz Visi .
• Visbeidzot noklikšķiniet uz LABI lai vienlaikus nosūtītu e-pasta ziņojumus vairākiem saņēmējiem.

• Tādējādi visi e-pasta ziņojumi tiks nosūtīti, izmantojot jūsu saistīto Outlook Pārbaudiet savu Outlook nosūtīti, lai apstiprinātu, ka e-pasta ziņojumi ir nosūtīti.

• Atverot nosūtīto e-pasta vēstuli, redzēsiet, ka katrā laukā ir norādīta konkrētas personas informācija.

Lasīt vairāk: Kā automātiski sūtīt e-pastu, kad izpildīts nosacījums programmā Excel

Līdzīgi lasījumi

• Kā nosūtīt rediģējamu Excel izklājlapu pa e-pastu (3 ātras metodes)
• [Atrisināts]: koplietošanas darbgrāmata nav redzama programmā Excel (ar vienkāršiem soļiem)
• Automātiska atgādinājuma e-pasta sūtīšana no Excel darblapas, izmantojot VBA
• Kā noskaidrot, kas ir kopīgajā Excel failā (ar ātriem soļiem)
• Kā iespējot kopīgot darbgrāmatu programmā Excel

2. Palaist VBA kodu, lai sūtītu e-pasta ziņojumus no diapazona izvēles

Ar svētību VBA , varat izveidot programmu, lai nosūtītu e-pasta ziņojumus no Excel sarakstu, izvēloties vēlamo diapazonu. Lai veiktu uzdevumu, izpildiet turpmāk aprakstītās darbības.

⇒ 1. solis: Izveidojiet moduli

• Lai atvērtu VBA makro programma , nospiediet Alt + F11 .
• Noklikšķiniet uz Ievietot cilne.
• Izvēlieties Modulis opcija, lai izveidotu Modulis .

⇒ 2. solis: ielīmējiet VBA kodus

• Jaunajā Modulis , ielīmējiet šādu tekstu VBA kods .

 #If VBA7 And Win64 Then 'Ptr tiek izmantots, lai mainītu 32 bitu operētājsistēmu uz 64 bitu 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 #Else #End If Sub SendExcelListEMail() 'Deklarē mainīgo 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 'Izvēlieties diapazonu izvēlieties adresi xSelectTxt = ActiveWindow.RangeSelection.Address 'Izveidot Ievades lodziņu diapazona izvēlei Set xIntRg = Application.InputBox("Lūdzu, ievadiet Excel datu diapazonu:","ExcelWIKI", xSelectTxt, , , , , , , 8) 'Piemērot If nosacījumu, lai norādītu kolonnu numurus operācijai If xIntRg Is Nothing Then Exit Sub If xIntRg.Columns.Count 3 Then 'Parādīt rezultātu msg lodziņā, ja nav izpildīts nosacījums MsgBox "Error with Region Selection, please confirm", , "ExcelWIKI" Exit Sub End If 'Piemērot For cilpu, lai izpildītu operāciju katrā rindā atsevišķi For k = 1 To xIntRg.Rows.Count' Apkopot e-pasta adresi un iestatīt uz mainīgo xMailAdd = xIntRg.Cells(k, 2) ' Sniegt tēmu e-pasta xRegCode = "ExcelWIKI Reģistrācijas Nr." ' Ierakstiet e-pasta ķermeni xBody = "" ' Ievietot vārdus ar mainīgo xIntRg xBody = xBody & "Sveicieni " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf xBody = xBody & " Šeit ir jūsu ExcelWIKI reģistrācijas Nr " ' IevietotReģistrācijas Nr. ar mainīgo xIntRg xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf xBody = xBody & "Mēs patiešām priecājamies, ka jūs apmeklējat mūsu vietni, turpiniet mūs atbalstīt." & vbCrLf xBody = xBody & "ExcelWIKI komanda" ' Definēt atstarpes ar (hex) xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " ", "%20") xBody =Application.WorksheetFunction.Substitute(xBody, " ", "%20") ' Norādiet, ar ko aizstāt atgriezeniskās rindas(hex) xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A") ' Izveidot URL Saite xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody ' Izmantojiet saiti, lai sāktu e-pastu ShellExecute 0& amp;, vbNullString, xURLink, vbNullString,vbNullString, vbNormalFocus ' trīs sekunžu intervāls taustiņu nosūtīšanai Application.Wait (Now + TimeValue("0:00:03")) Application.SendKeys "%s" Next End Sub 

⇒ 3. solis: Palaist programmu

• Spiediet F5 lai palaistu programmu.
• Atlasiet diapazonu ievades lodziņā.
• Noklikšķiniet uz LABI lai nosūtītu e-pasta ziņojumus.

• Rezultātā tiks parādīti e-pasta vēstuļu sūtīšanas priekšskatījumi, kā parādīts attēlā zemāk.

• Visbeidzot, varat pārbaudīt nosūtītos e-pasta ziņojumus, lai saņemtu apstiprinājumu.

Lasīt vairāk: Kā sūtīt e-pastu, ja izpildīti nosacījumi programmā Excel (3 vienkāršas metodes)

Secinājums

Es ceru, ka šis raksts ir sniedzis jums pamācību par to, kā sūtīt masveida e-pastus no Excel saraksts. Visas šīs procedūras ir jāapgūst un jāpiemēro jūsu datu kopai. Apskatiet praktisko darbgrāmatu un pārbaudiet šīs prasmes. Jūsu vērtīgā atbalsta dēļ esam motivēti turpināt veidot šādas pamācības.

Lūdzu, sazinieties ar mums, ja jums ir kādi jautājumi. Tāpat varat atstāt komentārus zemāk esošajā sadaļā.

Mēs, mēs. Exceldemy komanda vienmēr atsaucīgi atbild uz jūsu jautājumiem.

Palieciet kopā ar mums un turpiniet mācīties.