Como enviar e-mail copiando e colando um intervalo especificado no corpo do e-mail no Excel?
Em muitos casos, um intervalo especificado de conteúdo na planilha do Excel pode ser útil em sua comunicação por email. Neste artigo, apresentaremos um método de envio de e-mail com intervalo especificado colado no corpo do e-mail diretamente no Excel.
Enviar e-mail com um intervalo especificado colado no corpo do e-mail no Excel
Envie e-mail com um intervalo especificado colado no corpo do e-mail com uma ferramenta incrível
Mais tutoriais para enviar em Excel ...
Enviar e-mail com um intervalo especificado colado no corpo do e-mail no Excel
O código VBA a seguir pode ajudá-lo a copiar um intervalo e colá-lo em um corpo de e-mail do Outlook diretamente no Excel. Faça o seguinte.
1. Na planilha contém o intervalo que você precisa copiar, 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. 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 com um intervalo especificado colado no corpo do e-mail no Excel
Sub Send_Email()
'Updated by Extendoffice 20200119
Dim xRg As Range
Dim I, J As Long
Dim xAddress As String
Dim xEmailBody As String
Dim xMailOut As Outlook.MailItem
Dim xOutApp As Outlook.Application
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xMailOut = xOutApp.CreateItem(olMailItem)
For I = 1 To xRg.Rows.Count
For J = 1 To xRg.Columns.Count
xEmailBody = xEmailBody & " " & xRg.Cells(I, J).value
Next
xEmailBody = xEmailBody & vbNewLine
Next
xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
With xMailOut
.Subject = "Test"
.To = ""
.Body = xEmailBody
.Display
'.Send
End With
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub
Notas:
- 1). Altere o corpo do e-mail em linha xEmailBody = "Hi" & vbLf & vbLf & "corpo da mensagem que deseja adicionar" & vbLf & vbLf & xEmailBody & vbNewLine como você precisa.
- 2). Especifique o destinatário do seu e-mail e o assunto (.Para = e .Subject = "teste") linhas no código.
5. aperte o F5 chave para executar o código. No surgimento Kutools for Excel caixa de diálogo, selecione o intervalo que você precisa colar no corpo do e-mail e clique no OK botão. Veja a imagem:
6. Agora, um e-mail é criado com o destinatário, assunto, corpo e intervalo do Excel selecionados, por favor, clique no ENVIAR botão para enviar este e-mail. Veja a imagem mostrada.
Note: O código VBA só funciona quando você usa o Outlook como seu programa de e-mail.
Envie e-mail com um intervalo especificado colado no corpo do e-mail com uma ferramenta incrível
Se você não usa o Outlook e ainda deseja enviar e-mails diretamente no Excel com um intervalo de dados especificado colado dentro, eu recomendo fortemente o Mande emails utilidade de Kutools for Excel para voce. Com este recurso, você só precisa configurar o servidor de saída de um endereço de e-mail e enviar e-mails no Excel diretamente por meio desse endereço de e-mail no futuro.
Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.
1. Em primeiro lugar, você precisa preparar uma lista de discussão com os campos necessários.
- Tips: A lista de e-mail deve conter pelo menos 2 linhas, e a primeira linha deve ser os cabeçalhos (supondo que você queira enviar e-mails para dois endereços de e-mail no Excel, digite esses dois endereços de e-mail com o cabeçalho “E-mail” conforme a imagem abaixo mostrada )
- Alternativamente, você pode criar facilmente uma lista de e-mails com o Criar lista de discussão recurso.
2. Selecione o intervalo em que você adicionará os dados ao corpo do e-mail e pressione o botão Ctrl + C chaves para copiá-lo.
3. Selecione toda a lista de e-mails (incluir cabeçalhos), clique em Kutools Plus > Mande emails. Veja a imagem:
4. Então o Mande emails caixa de diálogo aparece.
- 4.1) Os itens da lista de e-mail selecionada são preenchidos nos campos correspondentes (você pode adicionar mais campos à lista de e-mail conforme necessário);
- 4.2) Clique na caixa do corpo do email, pressione o botão Ctrl + V para colar os dados do intervalo selecionado nele. Depois disso, adicione outro conteúdo conforme necessário;
- 4.3 Desmarque o Envie e-mails via Outlook caixa;
- 2.4) Clique no Configurações do servidor de saída botão. Veja a imagem:
5. Então o Configurações do servidor de saída (SMTP) - Novo esquema caixa de diálogo aparece. Por favor, preencha o endereço de e-mail com suas configurações de servidor, especifique uma pasta para salvar todos os e-mails enviados após verificar o Salvar e-mails enviados para e, em seguida, clique no OK para salvar as configurações.
6. Quando ele retorna ao Mande emails caixa de diálogo, clique no botão ENVIAR botão para enviar o e-mail.
A partir de agora, você pode enviar e-mails com este recurso diretamente no Excel.
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.
Artigos relacionados:
Enviar e-mail para endereços de e-mail especificados nas células do Excel
Suponha que você tenha uma lista de endereços de e-mail e queira enviar mensagens em massa para esses endereços de e-mail diretamente no Excel. Como fazer 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.
Insira a assinatura do Outlook ao enviar e-mail no Excel
Supondo que você queira enviar um e-mail diretamente no Excel, como você pode adicionar a assinatura padrão do Outlook ao e-mail? Este artigo fornece dois métodos para ajudá-lo a adicionar assinatura do Outlook ao enviar e-mail no Excel.
Envie e-mail com vários anexos anexados no Excel
Este artigo fala sobre como enviar um e-mail pelo Outlook com vários anexos anexados no Excel.
Enviar e-mail se a data de vencimento for cumprida no Excel
Por exemplo, se a data de vencimento na coluna C for menor ou igual a 7 dias (a data atual é 2017/9/13), envie um lembrete por e-mail para o destinatário especificado na coluna A com o conteúdo especificado na coluna B. Como consiga? Este artigo fornecerá um método VBA para lidar com isso em detalhes.
Enviar e-mail automaticamente com base no valor da célula no Excel
Suponha que você queira enviar um e-mail através do Outlook para um determinado destinatário com base em um valor de célula especificado no Excel. Por exemplo, quando o valor da célula D7 em uma planilha é maior que 200, um e-mail é criado automaticamente. Este artigo apresenta um método VBA para você resolver rapidamente esse problema.
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!