Como enviar email para endereços de email especificados nas células do Excel?

Suponha que você tenha uma lista de endereços de e-mail e, agora, queira enviar mensagem de e-mail para esses endereços de e-mail em massa diretamente no Excel. Como conseguir isso? Este artigo mostrará os métodos de envio de e-mail para vários endereços de e-mail especificados nas células do Excel.

Envie e-mail para endereços de e-mail especificados em células no Excel com VBA
Envie e-mails facilmente para endereços de e-mail especificados em células com o Kutools para Excel

Envie e-mail para endereços de e-mail especificados em células no Excel com VBA

O código VBA a seguir pode ajudá-lo a enviar e-mails para os endereços de e-mail especificados no Excel. Faça o seguinte.

1. Na planilha que contém os endereços de e-mail para os quais você precisa enviar e-mails, pressione o botão outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.

2. Na abertura Microsoft Visual Basic para Aplicações janela, por favor clique Ferramentas > Referência como a imagem abaixo mostrada.

3. No Referências - VBAProject caixa de diálogo, localize e verifique o Biblioteca de objetos do Microsoft Outlook opção e, em seguida, clique no OK botão.

4. Então clique inserção > Módulo. Em seguida, copie e cole o código VBA abaixo na janela Módulo.

Código VBA: enviar e-mail para endereços de e-mail especificados nas células do 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

Anote os: Especifique o assunto e o corpo do seu e-mail em ambos .Subject = "teste" e .Body = "Caro" _ & vbNewLine & vbNewLine & _ "Este é um e-mail de teste" & _ "enviando em Excel" linhas no código.

5. aperte o F5 chave para executar o código. Na abertura Kutools for Excel caixa de diálogo, selecione o intervalo que contém os endereços de e-mail para os quais você enviará e-mails e clique no botão OK botão. Veja a imagem:

Em seguida, os e-mails com base nos endereços de e-mail selecionados são criados conforme a imagem abaixo mostrada. Por favor clique no ENVIAR botões para enviar esses e-mails.

Notas:

Envie e-mail para endereços de e-mail especificados em células com Kutools para Excel

Esta seção irá recomendar a você o Mande emails utilidade de Kutools for Excel. Com este utilitário, você pode enviar facilmente e-mails para endereços de e-mail especificados nas células do Excel. Faça o seguinte.

1. Selecione os endereços de e-mail com a célula de cabeçalho em sua planilha e clique em Kutools Plus > Mande emails.

2. No popping up Mande emails caixa de diálogo, faça as seguintes configurações:

3. Então um Kutools for Excel uma caixa de diálogo aparece para informar quantos emails foram enviados. Por favor clique no OK botão e feche o Mande emails caixa de diálogo. Veja a imagem:

Notas:

Demonstração: enviar e-mail para endereços de e-mail especificados em células com Kutools para Excel

Artigos relacionados:

• Como enviar e-mail copiando e colando um intervalo especificado no corpo do e-mail no Excel?
• Como enviar e-mail com vários anexos anexados no Excel?
• Como inserir assinatura no e-mail do Outlook ao enviar por vba no Excel?
• Como enviar e-mail se a data de vencimento foi cumprida no Excel?
• Como enviar e-mail automaticamente com base no valor da célula no Excel?

---

As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

• armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
• Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
• Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
• Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
• Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
• Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
• Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
• Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
• Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.

Leia mais... Download grátis... Compra... 

---

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

• Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
• Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!

Leia mais... Download grátis... Compra...