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 VBA2 na janela de código do módulo.
3. Agora você precisa substituir o .Corpo linha em VBA2 com o código em VBA1. 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 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:
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.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com Kutools for Excele experimente eficiência como nunca antes. Kutools for 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 a 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!




















