Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako poslati e-poštno sporočilo na e-poštne naslove, določene v celicah v Excelu?

Predvidevam, da imate seznam e-poštnih naslovov, zdaj pa želite poslati e-poštno sporočilo na te e-poštne naslove v razsutem stanju neposredno v Excelu. Kako doseči to? Ta članek vam bo pokazal načine pošiljanja e-pošte na več e-poštnih naslovov, ki so navedeni v celicah v Excelu.

Pošlji e-poštne naslove, določene v celicah v Excelu z VBA

Pošiljanje e-pošte na e-poštne naslove, ki so navedeni v celicah s programom Kutools for Excel


Pošlji e-poštne naslove, določene v celicah v Excelu z VBA


Naslednja VBA koda vam lahko pomaga pošiljati e-poštna sporočila na določene e-poštne naslove v Excelu. Prosim, naredite kot sledi.

1. V delovnem listu so e-poštni naslovi, ki jih potrebujete za pošiljanje e-poštnih sporočil, pritisnite druga + F11 tipke hkrati odpreti Microsoft Visual Basic za aplikacije okno.

2. V odprtju Microsoft Visual Basic za aplikacije okno, kliknite Orodja > Reference kot je prikazano spodaj.

3. V Ljubljani Reference - VBAProjekt pogovorno okno, poiščite in preverite Knjižnica predmetov Microsoft Outlook in nato kliknite OK gumb.

4. Nato kliknite Vstavi > Moduli. Nato kopirajte in prilepite spodnjo kodo VBA v okno Modul.

VBA koda: Pošlji e-poštne naslove, ki so navedeni v celicah v Excelu

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

Opombe: Prosimo, navedite predmet in telo e-pošte v obeh .Subject = "test" in .Body = "Dragi" _ & vbNewLine & vbNewLine & _ "To je testni e-poštni naslov" & _ "pošiljanje v Excelu" vrstice v kodi.

5. Pritisnite F5 ključ za zagon kode. V odprtju Kutools za Excel pogovorno okno, izberite področje, ki vsebuje e-poštne naslove, na katere boste poslali e-poštna sporočila, in kliknite OK gumb. Prikaz slike:

Nato se ustvarijo e-poštna sporočila na podlagi izbranih e-poštnih naslovov, kot je prikazano spodaj. Prosimo, kliknite na Pošlji gumbi za pošiljanje teh e-poštnih sporočil.

Opombe:

1. Če v izbranih celicah obstajajo trije e-poštni naslovi, bodo ustvarjena tri e-poštna sporočila.

2. Koda VBA deluje le, če uporabljate Outlook kot vaš e-poštni program.


Pošiljanje e-pošte na e-poštne naslove, ki so navedeni v celicah s programom Kutools for Excel

Ta oddelek vam bo priporočil Pošlji e-pošto uporabnost Kutools za Excel. S tem pripomočkom lahko enostavno pošiljate e-poštna sporočila e-poštnim naslovom, ki so navedeni v celicah v Excelu. Prosimo, naredite na naslednji način.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, brezplačno lahko poskusite brez omejitev v 60 dneh.

1. Izberite e-poštne naslove s celico glave na vašem delovnem listu in nato kliknite Podjetje > Pošlji e-pošto. Prikaz slike:

2. Pri pojavu Pošlji e-pošto pogovorno okno, naredite naslednje konfiguracije:

2.1) Izberite glavo naslova e-poštnega naslova v Da spustni seznam;

2.2) Vnesite zadevo e-pošte v Zadeva škatla;

2.3) Sestavljanje vašega e-poštnega telesa;

2.4) Preverite Pošlji e-pošto prek Outlook škatla;

2.5) Kliknite na Pošlji gumb. Prikaz slike:

3. Potem a Kutools za Excel pogovorno okno se pokaže, koliko e-poštnih sporočil je bilo poslano. Prosimo, kliknite na OK gumb in zaprite Pošlji e-pošto pogovorno okno. Prikaz slike:

Opombe:

1. Lahko greš v Outlookovo Poslani predmeti mapo za preverjanje e-poštnih sporočil.

2. S klikom lahko tudi uporabite drug strežnik Odhodne nastavitve strežnika samodejno nastavite način pošiljanja.

Nasvet.Če želite imeti brezplačen preskus tega pripomočka, pojdite na brezplačno prenesete programsko opremo najprej in pojdite, da uporabite operacijo v skladu z zgornjimi koraki.


Demo: pošljite e-poštno sporočilo na e-poštne naslove, ki so navedeni v celicah s programom Kutools for Excel

Kutools za Excel vključuje več kot 300 priročno orodje Excel. Prosti brez omejitev v 60 dneh. Prenesite brezplačen preskus zdaj!


Sorodni članki:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.