Hvordan sendes e-mail til e-mail-adresser, der er angivet i celler i Excel?

Antag at du har en liste over e-mail-adresser, og nu vil du sende e-mail til disse e-mail-adresser i bulk direkte i Excel. Hvordan opnås det? Denne artikel viser dig metoder til at sende e-mail til flere e-mail-adresser, der er angivet i celler i Excel.

Send e-mail til e-mail-adresser, der er angivet i celler i Excel med VBA
Send nemt e-mail til e-mail-adresser, der er angivet i celler med Kutools til Excel

Send e-mail til e-mail-adresser, der er angivet i celler i Excel med VBA

Følgende VBA-kode kan hjælpe dig med at sende e-mails til de angivne e-mail-adresser i Excel. Gør som følger.

1. I regnearket indeholder de e-mail-adresser, du skal sende e-mails til, skal du trykke på andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.

2. I åbningen Microsoft Visual Basic til applikationer vindue, klik venligst Værktøj > Referencer som vist nedenstående skærmbillede.

3. i Referencer - VBAProject dialogboksen, find og kontroller venligst Microsoft Outlook-objektbibliotek og klik derefter på OK .

4. Klik derefter på indsatte > Moduler. Kopier og indsæt derefter nedenstående VBA-kode i modulvinduet.

VBA-kode: Send e-mail til e-mail-adresser, der er angivet i celler i Excel

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Bemærk: Angiv dit e-mail-emne og din brødtekst i begge .Subject = "test" og sort .Body = "Kære" _ & vbNewLine & vbNewLine & _ "Dette er en test-e-mail" & _ "sender i Excel" linjer i koden.

5. Tryk på F5 nøgle for at køre koden. I åbningen Kutools til Excel i dialogboksen skal du vælge det interval, der indeholder de e-mail-adresser, du vil sende e-mails til, og klik derefter på OK knap. Se skærmbillede:

Derefter oprettes e-mails baseret på valgte e-mail-adresser som vist nedenstående skærmbillede. Klik på Send knapper til at sende disse e-mails.

Noter:

1. Hvis der er tre e-mail-adresser separat i valgte celler, oprettes der tre e-mail-beskeder.

2. VBA-koden fungerer kun, når du bruger Outlook som dit e-mail-program.

Send e-mail til e-mail-adresser, der er angivet i celler med Kutools til Excel

Dette afsnit vil anbefale dig Send emails nytte af Kutools til Excel. Med dette værktøj kan du nemt sende e-mails til e-mail-adresser, der er angivet i celler i Excel. Gør som følger.

Før påføring Kutools til Excel, Bedes download og installer det først.

1. Vælg e-mail-adresserne med overskriftscellen i dit regneark, og klik derefter på Kutools Plus > Send emails.

2. I popping up Send emails dialogboksen, skal du udføre følgende konfigurationer:

2.1) Vælg overskriften på listen over e-mail-adresser i Til rulleliste

2.2) Indtast e-mail-emnet i Emne boks;

2.3) Komponering af din e-mail-krop;

2.4) Kontroller Send e-mails via Outlook boks;

2.5) Klik på Send knap. Se skærmbillede:

3. Derefter a Kutools til Excel dialogboksen vises for at fortælle dig, hvor mange e-mails der er sendt. Klik på OK knappen og luk Send emails dialog boks. Se skærmbillede:

Noter:

1. Du kan gå til Outlook's Sendte ting mappe for at kontrollere, om der er sendt e-mails.

2. Du kan også bruge en anden server ved at klikke på Indstillinger for udgående server for at indstille afsendelsestilstanden til din egen.

Hvis du vil have en gratis prøveperiode (30 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.

Demo: Send e-mail til e-mail-adresser, der er angivet i celler med Kutools til Excel

Relaterede artikler:

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
Super Formula Bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2019 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60-dages pengene tilbage garanti.

Læs mere ... Gratis download... Køb...

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
Øger din produktivitet med 50% og reducerer hundredvis af museklik for dig hver dag!