Gå til hovedindhold

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" , .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:

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hogyan választhatom ki a CC-ket ugyanúgy, mint a címzetteket? Lee ezt kérdezte :D
This comment was minimized by the moderator on the site
Hi KK,
If you want to add CC recipients with the email addresses in specified cells, you need to manually add an email address to the To line in the code, and then add a Cc line.
The two lines are as follows.
.To = ""
.Cc = xRgVal
This comment was minimized by the moderator on the site
수신인과 마찬가지의 방법으로 참조인을 선택하려면 어떻게 하나요?
This comment was minimized by the moderator on the site
Hi lee,
Sorry I don't understand your question. You may need to attach a screenshot to describe the problem more clearly.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations