Como enviar um e-mail a partir de um intervalo específico de células no Excel?

Em muitos casos, um intervalo específico de conteúdos na planilha do Excel pode ser útil na sua comunicação por e-mail. Neste artigo, apresentaremos um método para enviar um e-mail com um intervalo específico diretamente no corpo do e-mail no Excel.

Enviar e-mail a partir de um intervalo específico de células no Excel
Enviar e-mail a partir de um intervalo específico de células com uma ferramenta incrível
Mais tutoriais para envio de e-mails no Excel...

Enviar e-mail a partir de um intervalo específico de células no Excel

O seguinte código VBA pode ajudá-lo a copiar um intervalo e colá-lo diretamente no corpo de um e-mail do Outlook no Excel. Por favor, siga os passos abaixo.

1. Na planilha que contém o intervalo que você precisa copiar, pressione simultaneamente as teclas "Alt + F11" para abrir a janela "Microsoft Visual Basic for Applications".

2. Na janela "Microsoft Visual Basic for Applications" que se abre, clique em "Ferramentas" > "Referências", conforme mostrado na captura de tela abaixo.

3. Na caixa de diálogo "Referências – VBAProject", encontre e marque a opção "Microsoft Outlook Object Library" e, em seguida, clique no botão OK.

4. Clique em "Inserir" > "Módulo", depois copie e cole o seguinte código VBA na janela Módulo.

Código VBA: Enviar e-mail com um intervalo específico 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 = "happy.xuebi@163.com"
        .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 nesta linha do script xEmailBody = "Olá" & vbLf & vbLf & "corpo da mensagem que deseja adicionar" & vbLf & vbLf & xEmailBody & vbNewLine conforme necessário.
• 2). Especifique o destinatário e o assunto do e-mail nesta linha dentro do código: (.To = happy.xuebi@163.com and .Subject = "teste").

5. Pressione a tecla F5 para executar o código. No pop-up Kutools for Excel, selecione o intervalo que você precisa colar no corpo do e-mail e, em seguida, clique no botão OK. Veja a captura de tela:

6. Agora, um e-mail é criado com o destinatário especificado, assunto, corpo e intervalo selecionado do Excel; clique no botão "Enviar" para enviar este e-mail. Veja a captura de tela mostrada.

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

Enviar e-mail a partir de um intervalo específico de células 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 específico colado dentro, recomendo muito o recurso "Enviar E-mail" do Kutools para Excel. Com esse recurso, basta configurar o servidor de saída de um endereço de e-mail e, no futuro, enviar e-mails diretamente no Excel via esse endereço de e-mail.

1. Primeiro, você precisa preparar uma lista de envio com os campos necessários.

• Dicas: A lista de envio deve conter pelo menos 2 linhas, e a primeira linha deve ser os cabeçalhos (Supondo que você deseja 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” como mostrado na captura de tela abaixo).
• 
• Alternativamente, você pode criar facilmente uma lista de envio com o recurso Criar Lista de Correspondência.

2. Selecione o intervalo que você adicionará ao corpo do e-mail e pressione as teclas Ctrl + C para copiá-lo.

3. Selecione toda a lista de envio (incluindo cabeçalhos), clique em "Kutools Plus" > "Enviar Emails". Veja a captura de tela:

4. Em seguida, a caixa de diálogo "Enviar Emails" aparece.

• 4.1) Os itens da lista de envio selecionada são preenchidos nos campos correspondentes (você pode adicionar mais campos à lista de envio conforme necessário);
• 4.2) Clique na caixa do corpo do e-mail, pressione as teclas Ctrl + V para colar os dados do intervalo selecionado nela. Depois disso, adicione outro conteúdo conforme necessário;
• 4.3) Desmarque a caixa "Enviar emails via Outlook";
• 4.4) Clique no botão "Configurações SMTP". Veja a captura de tela:

  

5. Em seguida, a caixa de diálogo "Configurações SMTP – Novo Esquema" aparece. 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 marcar a caixa "Salvar Emails Enviados em", e clique no botão OK para salvar as configurações.

6. Quando voltar à caixa de diálogo "Enviar Emails", clique no botão "Enviar" para enviar o e-mail.

Artigos relacionados: