Når du skal sende en masse-e-mail til en stor gruppe mennesker, har du brug for en automatiseret proces, der hurtigt kan håndtere gentagne opgaver. Excel fil med en liste over e-mails er den mest almindelige måde at sende masse-e-mails på. Så i denne vejledning vil vi vise dig, hvordan du sender e-mails fra en Excel listen automatisk til et stort antal personer.

Download arbejdsbog til øvelser

Download denne arbejdsbog til træning, så du kan øve dig, mens du læser denne artikel.

2 praktiske metoder til at sende e-mail fra en Excel-liste

Vi har inkluderet et datasæt med nogle personers navne samt deres e-mailadresser og registreringsnumre i billedet nedenfor. Fra den Excel liste, skal vi sende e-mails til hver enkelt person. For at opnå dette bruger vi Microsoft Word's Mail Merge funktion , efterfulgt af en VBA kode til at sende e-mails til de foretrukne personer fra den eksisterende liste.

1. Anvend Mail Merge-funktionen til at sende flere e-mails fra en Excel-liste

⇒ Trin 1: Åbn en ny Word-fil

• Åbn en tom Ord dokument.
• Klik på den Mailinger fanebladet.
• Fra den Vælg modtagere vælger du Brug en eksisterende liste mulighed.

⇒ Trin 2: Sammenkæd Excel-listen med Word-filen

• Vælg den Excel fil, hvor du har oprettet listen, og klik på Åbn for at åbne filen.

• Vælg det arknummer, hvor du har skrevet listen.
• Klik derefter på OK .

⇒ Trin 3: Indsæt felter

• Fra den Mailinger skal du klikke på den Indsæt flettefelt for at indtaste de felter, du ønsker at indsætte.
• For det første skal du indsætte den Navn feltet ved at klikke på det og i den foretrukne position i den generelle post.

• Som det fremgår af billedet nedenfor, efter at have tilføjet Navn feltet, vil det blive vist som variablen for hver enkelt persons navn.

• På samme måde skal du placere den Reg feltet, hvor du vil i tekstbeskeden.

• Derfor vil det se ud som billedet nedenfor.

⇒ Trin 4: Kontroller resultaterne af forhåndsvisningen

• Klik på den Resultater i et eksempel for at se det endelige preview, før du sender e-mailen.
• Skærmbilledet nedenfor viser, hvordan en prøve-e-mail vil se ud.

⇒ Trin 5: Sammenlæg e-mails

• Hvis du vil flette e-mails, skal du klikke på Afslut & sammenlægning mulighed.
• For at åbne den Sammenlægning til e-mail boksen, skal du vælge den Send e-mail-meddelelser mulighed.

• I feltet Til skal du vælge den E-mail mulighed.
• Indtast en emnelinje, du foretrækker, i feltet Emnelinje boks.
• Mailformatet vil være HTML som standard, så du behøver ikke at ændre den.
• I indstillingen Send poster skal du klikke på Alle .
• Endelig skal du klikke på OK for at sende e-mails til flere modtagere på samme tid.

• Alle e-mails vil derfor blive sendt via din tilknyttede Outlook Tjek din Outlook sendt for at bekræfte, at e-mails er blevet sendt.

• Når du åbner en sendt e-mail, vil du bemærke, at hvert felt er udfyldt med oplysninger om en bestemt person.

Læs mere: Sådan sendes e-mail automatisk, når betingelsen er opfyldt i Excel

Lignende læsninger

• Sådan sender du et redigerbart Excel-regneark via e-mail (3 hurtige metoder)
• [Løst]: Del arbejdsmappe vises ikke i Excel (med nemme trin)
• Send påmindelsesmail automatisk fra et Excel-regneark ved hjælp af VBA
• Sådan ser du, hvem der er i en delt Excel-fil (med hurtige trin)
• Sådan aktiveres Del arbejdsmappe i Excel

2. Kør en VBA-kode for at sende e-mails fra valg af et område

Med velsignelse fra VBA , kan du oprette et program til at sende e-mails fra en Excel listen med et foretrukket valg af området. Følg nedenstående trin for at udføre opgaven.

⇒ Trin 1: Opret et modul

• For at åbne den VBA-makro , tryk på Alt + F11 .
• Klik på den Indsæt fanebladet.
• Vælg den Modul mulighed for at oprette den Modul .

⇒ Trin 2: Indsæt VBA-koder

• I den nye Modul , indsæt følgende VBA-kode .

 #If VBA7 And Win64 Then 'Ptr bruges til at ændre for 32 bit til 64 bit 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() 'Deklarere variablerne 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 'Vælg område vælg adresse xSelectTxt = ActiveWindow.RangeSelection.Address 'Opret en indtastningsboks til områdevalg Set xIntRg = Application.InputBox("Indtast Excel-dataområde:","ExcelWIKI", xSelectTxt, , , , , , , 8) 'Anvend If-bestemmelse for at angive kolonnumre for operationen If xIntRg Is Nothing Then Exit Sub If xIntRg.Columns.Count 3 Then 'Vis resultatet i en msg-boks, hvis betingelsen ikke er opfyldt MsgBox "Error with Region Selection, please confirm", , , "ExcelWIKI" Exit Sub End If 'Anvend For-løkke for at køre operationen i hver række individuelt For k = 1 To xIntRg.Rows.Count' Indsaml e-mail-adressen og sæt den til variablen xMailAdd = xIntRg.Cells(k, 2) ' Giv et emne til e-mailen xRegCode = "ExcelWIKI Registration No." ' Skriv e-mail-teksten xBody = "" ' Indsæt Navne med variablen xIntRg xBody = xBody & "Greetings " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf xBody = xBody & " Her er dit ExcelWIKI Registration No. " ' IndsætRegistreringsnummer med variablen xIntRg xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf xBody = xBody & "Vi er virkelig glade for at have dig på vores hjemmeside, bliv ved med at støtte os." & vbCrLf xBody = xBody & "ExcelWIKI Team" ' Definer mellemrum med (hex) xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " ", "%20") xBody =Application.WorksheetFunction.Substitute(xBody, " ", "%20") ' Angiv, at vognryttere skal erstattes med (hex) xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A") ' Generer URL-linket xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody ' Brug linket til at begynde at sende e-mail ShellExecute 0&, vbNullString, xURLink, vbNullString,vbNullString, vbNormalFocus ' tre sekunders interval for afsendelse af tastetryk Application.Wait (Now + TimeValue("0:00:03"))) Application.SendKeys "%s" Next End Sub 

⇒ Trin 3: Kør programmet

• Tryk på F5 for at køre programmet.
• Vælg intervallet i indtastningsfeltet.
• Klik på OK til at sende e-mails.

• Som et resultat heraf vises forhåndsvisninger af sendte e-mails, som vist i billedet nedenfor.

• Endelig kan du kontrollere de sendte e-mails for at få en bekræftelse.

Læs mere: Sådan sendes e-mail, hvis betingelserne er opfyldt i Excel (3 nemme metoder)

Konklusion

Jeg håber, at denne artikel har givet dig en vejledning i, hvordan du kan sende masse-e-mails fra en Excel Alle disse procedurer skal læres og anvendes på dit datasæt. Tag et kig på øvelsesarbejdsbogen og afprøv disse færdigheder. Vi er motiveret til at fortsætte med at lave tutorials som denne på grund af din værdifulde støtte.

Du er velkommen til at kontakte os, hvis du har spørgsmål, og du er også velkommen til at skrive kommentarer i afsnittet nedenfor.

Vi, den Exceldemy Team, er altid lydhøre over for dine forespørgsler.

Bliv hos os og bliv ved med at lære.