Como enviar apenas uma folha de cálculo do Excel através do Outlook?
Se pretender enviar por e-mail uma única folha de um livro do Excel através do Outlook, pode anexá-la, incluí-la no corpo da mensagem ou enviá-la como ficheiro PDF. Mas haverá formas mais rápidas de resolver este problema no Excel?
Enviar folha única como anexo a partir do Excel com código VBA
Enviar folha única como um Arquivos PDF a partir do Excel com código VBA
Enviar folha única como corpo da mensagem a partir do Excel com o comando Enviar para Destinatário de Correio
O Excel permite enviar a folha ativa diretamente no corpo da mensagem de e-mail através do comando **Enviar para Destinatário de Correio**. Basta seguir estes passos:
Se utilizar o Excel 2007, 2010 ou 2013, terá primeiro de adicionar este comando Enviar para Destinatário de Correio à Barra de Ferramentas de Acesso Rápido.
1. Clique no ícone de Personalizar Barra de Ferramentas de Acesso Rápido e escolha Mais Comandos, conforme ilustrado:
2. Na caixa de diálogo Opções do Excel, selecione Comandos Não Presentes no Friso na lista pendente Escolher Comandos de, depois escolha a opção Enviar para Destinatário de Correio e clique no botão Adicionar >> para adicionar este comando. Por fim, clique em OK para guardar esta definição. Veja a imagem:
3.O comando Enviar para Destinatário de Correiofoi inserido na Barra de Ferramentas de Acesso Rápido, conforme ilustrado:
4. Em seguida, clique neste botão de ícone Enviar para Destinatário de Correio, surgindo uma caixa de aviso. Na caixa de aviso E-mail, marque a opção Enviar a Planilha atual como corpo da mensagem e clique em OK. Veja a imagem:
5. É então apresentada uma caixa de edição de e-mail acima dos dados da folha de cálculo, onde pode introduzir os destinatários, o assunto e a mensagem inicial nas respetivas caixas de texto. Veja a imagem:
6. Em seguida, clique em Enviar esta Folha para enviar a folha ativa como corpo da mensagem para a pessoa pretendida.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Enviar folha única como anexo a partir do Excel com código VBA
Se pretender enviar a folha ativa como anexo por e-mail, o código VBA seguinte poderá ajudá-lo.
1. Ative a folha que pretende enviar.
2. Prima as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.
3. Clique em Inserir > Módulo e cole o código seguinte na Janela do Módulo.
Código VBA: enviar Planilha Atual como anexo a partir do Excel
Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
If Wb2.HasVBProject Then
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add Wb2.FullName
.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub
Nota: No código acima, pode personalizar as seguintes informações de acordo com as suas necessidades.
- .To = «skyyang@extendoffice.com»
- .CC = «»
- .BCC = «»
- .Subject = «kte features»
- .Body = «Por favor, verifique e leia este documento.»
4. Em seguida, prima a tecla F5 para executar este código. Surgirá uma caixa de aviso; clique em Permitir quando a barra de progresso terminar e a Planilha Atual será enviada ao seu destinatário como anexo.
Enviar folha única como um Arquivos PDF a partir do Excel com código VBA
Por vezes, precisa de enviar o seu relatório em folha de cálculo a outras pessoas, mas não quer que o modifiquem. Nesse caso, pode enviá-la diretamente como um ficheiro PDF a partir do Excel.
1. Ative a folha que pretende enviar.
2. Prima as teclas ALT + F11para abrir a janela Microsoft Visual Basic para Aplicações.
3. Clique em Inserir>Móduloe cole o seguinte código na Janela do Módulo.
Código VBA: enviar Planilha Atual como Arquivos PDF a partir do Excel
Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add FileName
.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
Nota: No código acima, pode ajustar as seguintes informações de acordo com as suas necessidades.
- .To = «skyyang@extendoffice.com»
- .CC = «»
- .BCC = «»
- .Subject = «kte features»
- .Body = «Por favor, verifique e leia este documento.»
4. Em seguida, prima a tecla F5, surgindo uma caixa de aviso. Após a conclusão da barra de progresso, clique em Permitir; a folha ativa será então enviada à pessoa específica como ficheiros PDF.
Notas:
1. Estes métodos só estão disponíveis se utilizar o Outlook como cliente de correio.
2. Após enviar a folha de cálculo atual, pode verificar no Outlook se o e-mail foi enviado com sucesso.
Criar Lista de Correspondência Depois Envie E-mails |
| As utilidades Kutools para Excel's Criar Lista de Correspondência podem rapidamente criar uma lista de correspondência numa folha de cálculo e, em seguida, enviar o mesmo assunto, o mesmo conteúdo e os mesmos anexos a vários endereços de e-mail.e E-mails |
 |
 |
 |
Artigos relacionados:
Como enviar o livro de trabalho atual através do Outlook diretamente do Excel?
Como enviar um intervalo de células por e-mail através do Outlook a partir do Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos