Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

Como enviar e-mail para endereços de e-mail especificados em células no Excel?

Supondo que você tenha uma lista de endereços de e-mail, e agora, você deseja enviar uma mensagem de e-mail para esses endereços de e-mail em massa diretamente no Excel. Como alcançá-lo? Este artigo irá mostrar-lhe os métodos de envio de e-mail para vários endereços de e-mail que especificados em células no Excel.

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

Enviar email para endereços de e-mail especificados em celulares com o Kutools for Excel

Guia do Office Habilitar Edição e Navegação por Guias no Office e Facilitar seu Trabalho ...
Kutools for Excel - A melhor ferramenta de produtividade do Office resolverá a maioria dos problemas do Excel
  • Reutilizar qualquer coisa: Adicione as fórmulas, gráficos e outras coisas mais usadas ou complexas aos seus favoritos e reutilize-os rapidamente no futuro.
  • Mais do que recursos de texto 20: Extrair Número da Cadeia de Texto; Extrair ou remover parte dos textos; Converta números e moedas em palavras inglesas ...
  • Mesclar Ferramentas: Várias pastas de trabalho e folhas em um; Mesclar várias células / linhas / colunas sem perder dados; Mesclar linhas duplicadas e soma ...
  • Ferramentas de divisão: Dados divididos em várias folhas com base no valor; Uma pasta de trabalho para vários arquivos Excel, PDF ou CSV; Uma coluna para várias colunas ...
  • Colar pulando Linhas ocultas / filtradas; Contagem e Soma pela cor de fundo; Criar lista de discussão e Envie e-mails pelo valor da célula...
  • Super Filtro: Crie esquemas de filtro avançados e aplique a qualquer folha; tipo por semana, dia, frequência e mais; filtros por negrito, fórmulas, comentário ...
  • Mais de recursos poderosos do 300; Funciona com o Office 2007-2019 e 365; Suporta todos os idiomas; Fácil implantação na empresa; Recursos completos Avaliação gratuita de um dia de 60.

Enviar email para endereços de e-mail especificados em células no Excel com o 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 contém os endereços de e-mail aos quais você precisa enviar e-mails, pressione o botão outro + F11 teclas simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.

2. Na abertura Microsoft Visual Basic para Aplicações janela, clique em Ferramentas > caso como abaixo a tela mostrada.

3. No Referências - VBAProject caixa de diálogo, encontre e verifique Biblioteca de Objetos do Microsoft Outlook opção e, em seguida, clique no botão 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: envie e-mail para endereços de e-mail especificados nas células no 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

notas: Especifique o assunto e o corpo do seu e-mail em ambos .Subject = "test" e .Body = "Dear" _ & vbNewLine & vbNewLine & _ "Este é um e-mail de teste" & _ "enviando no 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á emails e, em seguida, clique no botão OK botão. Ver captura de tela:

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

Notas:

1. Se houver três endereços de e-mail separados em células selecionadas, serão criadas três mensagens de e-mail.

2. O código VBA só funciona quando você usa o Outlook como seu programa de e-mail.


Enviar email para endereços de e-mail especificados em celulares com o Kutools for Excel

Esta seção irá recomendar 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 em células no Excel. Faça o seguinte.

Kutools for Excel : com mais do que 300 úteis add-ins do Excel, livre para tentar sem limitação nos dias 60.

1. Selecione os endereços de e-mail com a célula de cabeçalho na planilha e clique em Empreendimento > Mande emails. Ver captura de tela:

2. Na aparência Mande emails caixa de diálogo, faça as seguintes configurações:

2.1) Selecione o cabeçalho da lista de endereços de e-mail no Para lista suspensa;

2.2) Digite o assunto do e-mail no Assunto caixa;

2.3) Composição de seu corpo de e-mail;

2.4) Verifique o Enviar e-mails via Outlook caixa;

2.5) Clique no Enviar botão. Ver captura de tela:

3. Então uma Kutools for Excel caixa de diálogo aparece para dizer-lhe quantos e-mails foram enviados. Por favor, clique no botão OK botão e feche o Mande emails caixa de diálogo. Ver captura de tela:

Notas:

1. Você pode ir ao Outlook Itens enviados pasta para verificar os e-mails enviados.

2. Você também pode usar outro servidor clicando Configurações do servidor de saída para configurar o modo de envio para você.

Gorjeta.Se você quiser ter uma versão gratuita deste utilitário, acesse baixe o software livremente primeiro, e depois vá para aplicar a operação de acordo com as etapas acima.


Demo: envie e-mail para endereços de e-mail especificados em células com o Kutools for Excel

Kutools for Excel inclui mais do que 300 ferramentas úteis do Excel. Gratuito para tentar sem limitação nos dias 60. Baixe o teste gratuito agora!


Artigos relacionados:


Kutools for Excel - A Melhor Ferramenta de Produtividade no Escritório Aumenta Sua Produtividade em 80%

  • armadilha para peixes: Inserir rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de endereços e enviar e-mails ...
  • Bar Super Fórmula (facilmente editar várias linhas de texto e fórmula); Layout de leitura (leia e edite facilmente grandes números de células); Colar para intervalo filtrado...
  • Mesclar células / linhas / colunas sem perder dados; Conteúdo de células divididas; Combinar linhas / colunas duplicadas... Prevenir Células Duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Exclusivo Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros de trabalho; Seleção aleatória ...
  • Cópia exata Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente 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 (salve e aplique 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 ...
  • Combinar pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Dividir dados em várias planilhas; Lote Converter xls, xlsx e PDF...
  • Mais de recursos poderosos do 300. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos Avaliação gratuita de um dia de 60.
kte tab 201905

A guia Office traz a interface com guias para o Office e torna seu trabalho muito mais fácil

  • Ativar edição e leitura com guias no 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!
fundo officetab
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.