Sisukord
Kui teil on vaja saata massiline e-kiri suurele inimrühmale, vajate automatiseeritud protsessi, mis suudab kiiresti tegeleda korduvate ülesannetega. Loomine Excel faili kirjade nimekirjaga on kõige tavalisem viis massiliste e-kirjade saatmiseks. Nii et selles õpetuses näitame teile, kuidas saata e-kirju alates Excel nimekirja automaatselt suurele hulgale inimestele.
Lae alla praktiline töövihik
Lae alla see harjutusvihik, et seda artiklit lugedes harjutada.
Saada e-kiri.xlsm2 praktilist lähenemist e-posti saatmiseks Exceli nimekirjast
Oleme lisanud alloleval pildil andmekogumi, kus on mõned inimeste nimed, samuti nende e-posti aadressid ja registreerimisnumbrid. Alates Excel nimekirja, peame saatma igale isikule e-kirju. Selleks kasutame me Microsoft Wordi Mail Merge funktsioon , millele järgneb VBA kood, et saata e-kirju eelistatud isikutele olemasolevast nimekirjast.
1. Rakendage Mail Merge funktsiooni mitme e-kirja saatmiseks Exceli loendist
⇒ Samm 1: Avage uus Wordi fail
- Avage tühi lehekülg Sõna dokument.
- Klõpsake nuppu Postisaadetised vahekaart.
- Alates Valige saajad valik, valige Kasutage olemasolevat nimekirja võimalus.
⇒ 2. samm: Exceli nimekirja sidumine Wordi failiga
- Valige Excel faili, kus te olete nimekirja loonud, ja klõpsake nuppu Avatud faili avamiseks.
- Valige lehe number, kuhu olete nimekirja kirjutanud.
- Seejärel klõpsake OK .
⇒ 3. samm: Väljade sisestamine
- Alates Postisaadetised valikut, klõpsake nuppu Sisesta ühendamisväli valikuga sisestada väljad, mida soovite sisestada.
- Kõigepealt sisestage Nimi väljal klõpsates ja üldposti eelistatud positsioonil.
- Nagu allpool näidatud pildil, on pärast lisamist Nimi väljal, siis kuvatakse see iga isiku nime muutujana.
- Samamoodi asetage Reg väli kuhu iganes te soovite tekstisõnumis.
- Seetõttu ilmub see alltoodud pildi kujul.
⇒ Samm 4: Kontrollige eelvaate tulemusi
- Klõpsake nuppu Eelvaate tulemused et näha lõplikku eelvaadet enne e-kirja saatmist.
- Allpool olev ekraanipilt näitab, kuidas näeb välja näidis e-kiri.
⇒ Samm 5: E-kirjade ühendamine
- E-kirjade ühendamiseks klõpsake nuppu Lõpeta & Ühenda võimalus.
- Avaneb Ühendamine e-kirjaga kasti, valige Saada e-kirju võimalus.
- Valige lahtris "Kuhu" valikuvõimalus E-post võimalus.
- Sisestage soovitud teemarida lahtrisse Teema kast.
- Posti formaat on järgmine HTML vaikimisi, nii et te ei pea seda muutma.
- Klõpsake valikus Send Records (Kirjete saatmine) nuppu Kõik .
- Lõpuks klõpsake nuppu OK saata e-kirju mitmele adressaadile korraga.
- Järelikult saadetakse kõik e-kirjad läbi teie seotud Outlook Kontrollige oma Outlook saadetud valik, et kinnitada, et e-kirjad on saadetud.
- Kui avate saadetud e-kirja, märkate, et iga väli on täidetud konkreetse isiku andmetega.
Loe edasi: Kuidas saata e-kiri automaatselt, kui Exceli tingimus on täidetud
Sarnased lugemised
- Kuidas saata redigeeritav Exceli tabel e-posti teel (3 kiiret meetodit)
- [Lahendatud]: Exceli töövihiku jagamine ei näita Excelis (lihtsate sammudega)
- Saada meeldetuletuse e-kiri automaatselt Exceli töölehest, kasutades VBA-d
- Kuidas näha, kes on jagatud Exceli failis (kiirete sammudega)
- Kuidas lubada Exceli töövihiku jagamist
2. Käivita VBA-kood, et saata e-kirju vahemiku valikust
Tänu õnnistustele VBA , saate luua programmi, mis saadab e-kirju alates Excel nimekirja eelistatud valikuga vahemik. Järgige ülesande täitmiseks allpool kirjeldatud samme.
⇒ Samm 1: Mooduli loomine
- Avaneb VBA makro , vajutage Alt + F11 .
- Klõpsake nuppu Sisesta vahekaart.
- Valige Moodul võimalus luua Moodul .
⇒ Samm 2: VBA koodide kleepimine
- Uues Moodul , kleepige järgmine tekst VBA kood .
#If VBA7 And Win64 Then 'Ptr kasutatakse 32-bitise operatsioonisüsteemi muutmiseks 64-bitiseks 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() 'Deklareeri muutujad 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 'Select range select adddress xSelectTxt = ActiveWindow.RangeSelection.Address 'Luua sisendkast vahemiku valimiseks Set xIntRg = Application.InputBox("Please Input Excel data range:","ExcelWIKI", xSelectTxt, , , , , , 8) 'Rakenda If tingimus, et määrata operatsiooni veergude numbrid If xIntRg Is Nothing Then Exit Sub If xIntRg.Columns.Count 3 Then 'Näita tulemus msg kastis, kui tingimus ei ole täidetud MsgBox "Error with Region Selection, please confirm", , "ExcelWIKI" Exit Sub End If 'Rakenda For tsükkel, et käivitada operatsioon igas reas eraldi For k = 1 To xIntRg.Rows.Count' Koguge e-posti aadress ja määrake muutuja xMailAdd = xIntRg.Cells(k, 2) ' Andke e-posti teema xRegCode = "ExcelWIKI registreerimisnumber" ' Sisestage e-posti keha xBody = "" ' Sisestage nimed muutujaga xIntRg xBody = xBody & "Greetings " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf xBody = xBody & " Here is your ExcelWIKI Registration No. " ' SisestageRegistreerimisnumber muutujaga xIntRg xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf xBody = xBody & "Meil on väga hea meel, et külastate meie saiti, toetage meid jätkuvalt." & vbCrLf xBody = xBody & "ExcelWIKI meeskond" ' Määrake tühikud (hex) xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " ", "%20") xBody =Application.WorksheetFunction.Substitute(xBody, " ", "%20") ' Määrake, millega asendatakse veoseväljad (hex) xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A") ' URL linki genereerimine xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody ' Linki kasutamine e-posti saatmise alustamiseks ShellExecute 0&, vbNullString, xURLink, vbNullString,vbNullString, vbNormalFocus ' kolme sekundiline intervall klahvivajutuste saatmiseks Application.Wait (Now + TimeValue("0:00:03")) Application.SendKeys "%s" Next End Sub 
⇒ 3. samm: Programmi käivitamine
- Press F5 programmi käivitamiseks.
- Valige vahemik sisendkastis.
- Klõpsake OK e-kirjade saatmiseks.
- Selle tulemusena ilmub e-kirjade saatmise eelvaade, nagu on näidatud alloleval pildil.
- Lõpuks saate saadetud e-kirju kinnituse saamiseks kontrollida.
Loe edasi: Kuidas saata e-kiri, kui tingimused on täidetud Excelis (3 lihtsat meetodit)
Kokkuvõte
Ma loodan, et see artikkel on andnud teile õpetuse selle kohta, kuidas saata massilisi e-kirju alates Excel list. Kõik need protseduurid tuleks ära õppida ja rakendada oma andmestiku suhtes. Vaadake praktilise töövihiku ja pange need oskused proovile. Me oleme motiveeritud jätkama selliste õpetuste tegemist tänu teie väärtuslikule toetusele.
Palun võtke meiega ühendust, kui teil on küsimusi. Samuti võite vabalt jätta kommentaare allpool olevasse lahtrisse.
Me, meie, kes me oleme Exceldemy meeskond, vastab alati teie päringutele.
Jääge meiega ja jätkake õppimist.
