Como inserir 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.

Insira a assinatura no e-mail do Outlook ao enviar pelo Excel VBA
Insira facilmente a assinatura do Outlook ao enviar e-mail no Excel com uma ferramenta incrível
Mais tutoriais para enviar em Excel ...

Insira a assinatura no e-mail do Outlook ao enviar pelo Excel VBA

Por exemplo, há uma lista de endereços de e-mail em uma planilha e você precisa enviar um e-mail para todos esses endereços no Excel e incluir a assinatura padrão do Outlook em todos os e-mails. Por favor, aplique o código VBA abaixo para obtê-lo.

1. Abra a planilha que contém a lista de endereços de e-mail para a qual deseja enviar um e-mail e pressione o botão outro + F11 chaves.

2. Na abertura Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo, e copie o abaixo VBA 2 na janela de código do módulo.

3. Agora você precisa substituir o .Corpo linha em VBA 2 com o código em VBA 1. Depois disso, corte o .Exibição linha e cole-o sob o Com xMailOut linha.

VBA 1: Modelo de envio de email com assinatura em Excel

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

VBA 2: enviar e-mail para endereços de e-mail especificados em 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

A captura de tela a seguir pode ajudá-lo a encontrar facilmente as diferenças após alterar o código do VBA.

4. aperte o F5 chave para executar o código. Então uma Kutools for Excel selecione a caixa pop-up, selecione os endereços de e-mail para os quais enviará e-mails e clique em OK.

Em seguida, emails enviados para endereços específicos são criados e exibidos. Você pode ver que a assinatura padrão do Outlook foi adicionada ao final do corpo do e-mail.

Dicas:

• 1. Você pode alterar o corpo do e-mail no código VBA 1 com base em suas necessidades.
• 2. Depois de executar o código, se uma caixa de diálogo de erro aparecer avisando que o tipo definido pelo usuário não foi definido, feche esta caixa de diálogo e clique em Ferramentas > Referências no Microsoft Visual Basic para Aplicações janela. Na abertura Referências - VBAProject janela, verifique o Biblioteca de objetos do Microsoft Outlook caixa e clique OK. E então execute o código novamente.
  

Insira facilmente a assinatura do Outlook ao enviar e-mail no Excel com uma ferramenta incrível

Se você é um novato no VBA, aqui recomendo fortemente o Mande emails utilidade de Kutools for Excel para voce. Com esse recurso, você pode enviar e-mails facilmente com base em determinados campos do Excel e adicionar assinatura do Outlook a eles. Faça o seguinte.

Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.

Em primeiro lugar, você precisa criar uma lista de e-mails com diferentes campos nos quais enviará e-mails.

Você pode criar manualmente uma lista de e-mails conforme sua necessidade ou aplicar o recurso Criar lista de e-mails para fazer isso rapidamente.

1. Clique Kutools Plus > Crie uma lista de mala direta.

2. No Criar lista de discussão caixa de diálogo, especifique os campos que você precisa, escolha onde a lista de saída e, em seguida, clique no OK botão.

3. Agora, uma amostra de lista de mala direta é criada. Como é uma lista de amostra, você precisa alterar os campos para determinados conteúdos necessários. (várias linhas são permitidas)

4. Depois disso, selecione toda a lista (incluir cabeçalhos), clique em Kutools Plus > Mande emails.

5. No Mande emails caixa de diálogo:

• 5.1) Os itens da lista de discussão selecionada são colocados nos campos correspondentes automaticamente;
• 5.2) Concluir o corpo do email;
• 5.3) Verifique os Enviar e-mail via Outlook e Use as configurações de assinatura do Outlook caixas;
• 5.4) Clique no ENVIAR botão. Veja a imagem:

Agora os emails são enviados. E a assinatura padrão do Outlook é adicionada ao final do corpo do e-mail.

  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:

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-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. 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...