Como inserir a assinatura do Outlook ao enviar e-mail no Excel?
Supondo que você queira enviar um email diretamente no Excel, como você pode adicionar a assinatura padrão do Outlook no email? Este artigo fornece dois métodos para ajudá-lo a adicionar a assinatura do Outlook ao enviar emails 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 email em uma planilha, para enviar emails para todos esses endereços no Excel e adicionar a assinatura padrão do Outlook nos emails. Por favor, aplique o código VBA abaixo para alcançá-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, mova a linha .Exibição sob a linha Com xMailOut.
VBA 1: Modelo de envio de emails com assinatura padrão do Outlook no 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, os e-mails são criados. Você pode ver que a assinatura padrão do Outlook é adicionada no final do corpo do email.
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ência 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 Chanel 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 uma avaliação gratuita (30-dia) 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.
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.
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.
As melhores ferramentas de produtividade para escritório
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-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.

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!





























