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ências 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 SubNote: 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 o 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.
Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.
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:
Se você quiser ter um teste gratuito (30 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.
Demonstração: envie e-mail para endereços de e-mail especificados em células com o 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?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!
