Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com enviar correu electrònic a adreces de correu electrònic especificades a les cel·les d'Excel?

Suposant que teniu una llista d'adreces de correu electrònic, i ara, voleu enviar correus electrònics a aquestes adreces de correu electrònic a granel directament a Excel. Com aconseguir-ho? Aquest article us mostrarà els mètodes d'enviament de correu electrònic a diverses adreces de correu electrònic que s'especifiquen a les cel·les d'Excel.

Envia un correu electrònic a les adreces electròniques especificades a les cel·les d'Excel amb VBA

Envia un correu electrònic a les adreces electròniques especificades a les cel·les amb Kutools for Excel


Envia un correu electrònic a les adreces electròniques especificades a les cel·les d'Excel amb VBA


El següent codi VBA us pot ajudar a enviar correus electrònics a les adreces electròniques especificades a Excel. Feu el següent.

1. A la fitxa de treball conté les adreces electròniques que necessiteu enviar correus electrònics, premeu la casella de selecció Alt + F11 tecles simultànies per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. A l'obertura Microsoft Visual Basic per a aplicacions finestra, feu clic a instruments > referències com es mostra a la captura de pantalla següent.

3. A la Referències - VBAProject quadre de diàleg, cerqueu i comproveu-lo Biblioteca d'objectes de Microsoft Outlook opció i, a continuació, feu clic a la icona OK botó.

4. A continuació, feu clic a Insereix > Mòduls. A continuació, copieu i enganxeu el codi VBA següent a la finestra Mòdul.

Codi VBA: envieu un correu electrònic a les adreces electròniques especificades a les cel·les d'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

Nota: Especifiqueu el vostre assumpte i el cos de correu electrònic als dos .Subject = "test" i .Body = "Benvolgut" _ & vbNewLine & vbNewLine & _ "Aquest és un correu electrònic de prova" & _ "enviant a Excel" línies al codi.

5. Premeu el botó F5 clau per executar el codi. A l'obertura Kutools for Excel quadre de diàleg, seleccioneu el rang que contingui les adreces de correu electrònic que enviarà per correu electrònic i, a continuació, feu clic al'enllaç OK botó Mostra la captura de pantalla:

A continuació, els correus electrònics basats en adreces electròniques seleccionades es creen a continuació de la imatge que es mostra. Feu clic al'enllaç enviar botons per enviar aquests correus electrònics.

notes:

1. Si hi ha tres adreces de correu electrònic existents per separat a les cel·les seleccionades, es crearan tres missatges de correu electrònic.

2. El codi VBA només funciona quan s'utilitza Outlook com a programa de correu electrònic.


Envia un correu electrònic a les adreces electròniques especificades a les cel·les amb Kutools for Excel

Aquesta secció us recomendarà Enviar correus electrònics utilitat de Kutools for Excel. Amb aquesta utilitat, podeu enviar correus electrònics fàcilment a adreces de correu electrònic que s'especifiquen a les cel·les d'Excel. Feu el següent.

Kutools for Excel : amb més complements útils de 300 de Excel, lliure de provar sense límit en 60 dies.

1. Seleccioneu les adreces de correu electrònic amb la cel·la de capçalera del full de càlcul i, a continuació, feu clic a empresa > Enviar correus electrònics. Mostra la captura de pantalla:

2. En el popping up Enviar correus electrònics quadre de diàleg, feu les següents configuracions:

2.1) Seleccioneu la capçalera de la llista d'adreces de correu electrònic a la finestra A llista desplegable;

2.2) Introduïu el tema del correu electrònic al Assumpte Caixa;

2.3) Composició del vostre cos de correu electrònic;

2.4) Comproveu la Envia correus electrònics a través d'Outlook Caixa;

2.5) Feu clic al botó enviar botó Mostra la captura de pantalla:

3. Llavors a Kutools for Excel El quadre de diàleg apareix per indicar quants correus s'han enviat. Feu clic al'enllaç OK botó i tanqueu el Enviar correus electrònics Caixa de diàleg. Mostra la captura de pantalla:

notes:

1. Podeu anar a l'Outlook Elements enviats carpeta per comprovar els correus electrònics d'enviament.

2. També podeu fer servir un altre servidor fent clic Configuració del servidor sortint per configurar el mode d'enviament pel vostre compte.

Consell.Si voleu fer una prova gratuïta d'aquesta utilitat, visiteu descarregueu el programari lliurement primer, i després aneu a aplicar l'operació segons els passos anteriors.


Demostració: envieu un correu electrònic a les adreces electròniques especificades a les cel·les amb Kutools for Excel

Kutools for Excel Inclou més eines 300 pràctiques d'Excel. Lliure de provar sense límit en 60 dies. Descarregueu la prova gratuïta ara!


Articles relacionats:



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

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.