Como enviar planilha somente pelo Outlook do Excel?
Se você quiser enviar por e-mail uma única planilha de uma pasta de trabalho no Excel via Outlook, poderá enviar a planilha como um anexo, como conteúdo do corpo ou como um arquivo PDF. Mas há alguma maneira mais rápida de lidar com esse problema no Excel?
Enviar planilha única como corpo do Excel com o comando Enviar para Destinatário de Correio
Envie uma única planilha como um anexo do Excel com código VBA
Envie uma única planilha como um arquivo PDF do Excel com código VBA
Enviar planilha única como corpo do Excel com o comando Enviar para Destinatário de Correio
O Excel nos permite enviar por e-mail a planilha ativa como conteúdo do corpo, usando o comando Enviar para destinatário do e-mail. Você pode fazer o seguinte:
Se você usa Excel 2007, 2010 ou 2013, você precisa adicionar este Enviar para Destinatário do Correio comando para o Barra de Ferramentas de Acesso Rápido em primeiro lugar.
1. Clique no ícone do Personalize a barra de ferramentas de acesso rápidoe escolha Mais comandos, veja a captura de tela:
2. E no Opções do Excel caixa de diálogo, escolha Comandos que não estão na faixa de opções no Escolha os comandos de lista suspensa e selecione o Enviar para Destinatário do Correio opção e clique Adicionar >> botão para adicionar este comando, por último clique OK para salvar esta configuração. Veja a imagem:
3. A Enviar para Destinatário do Correio comando foi inserido no Barra de Ferramentas de Acesso Rápido, veja a captura de tela:
4. Então clique aqui Enviar para Destinatário do Correio botão de ícone, e uma caixa de prompt aparece, no Email caixa de prompt, marque Envie a folha atual como o corpo da mensagemE clique OK. Veja a imagem:
5. E uma caixa de edição de e-mail é exibida acima dos dados da planilha, você pode inserir seus destinatários, assunto e introdução na caixa de texto correspondente. Veja a imagem:
6. Então clique Envie esta Sheet para enviar esta planilha ativa como corpo de mensagem para sua pessoa específica.
Envie uma única planilha como um anexo do Excel com código VBA
Se você quiser enviar a planilha ativa por e-mail como um anexo, o código VBA a seguir pode fazer um favor para você.
1. Ative a planilha que deseja enviar.
2. Segure o ALT + F11 chaves, e abre o Janela Microsoft Visual Basic for Applications.
3. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.
Código VBA: enviar planilha atual como anexo 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 = ""
.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
Note: No código acima, você pode alterar as seguintes informações conforme sua necessidade.
- .Para = ""
- .CC = ""
- .BCC = ""
- .Subject = "recursos kte"
- .Body = "Por favor, verifique e leia este documento."
4. Então clique F5 para executar este código e uma caixa de prompt aparecerá, clique Permitir quando a barra de progresso terminar, a planilha atual será enviada ao destinatário como um anexo.
Envie uma única planilha como um arquivo PDF do Excel com código VBA
Às vezes, você precisa enviar seu relatório de planilha para outras pessoas, mas não quer que outras pessoas o modifiquem. Nesse caso, você pode enviar a planilha como um arquivo PDF do Excel.
1. Ative a planilha que deseja enviar.
2. Segure o ALT + F11 chaves, e abre o Janela Microsoft Visual Basic for Applications.
3. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.
Código VBA: enviar planilha atual como arquivo PDF 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 = ""
.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, você pode alterar as seguintes informações de acordo com sua necessidade.
- .Para = ""
- .CC = ""
- .BCC = ""
- .Subject = "recursos kte"
- .Body = "Por favor, verifique e leia este documento."
4. Então aperte F5 e uma caixa de prompt aparecerá, clique Permitir após a conclusão da barra de progresso, a planilha ativa foi enviada para a pessoa específica como um arquivo PDF.
Observações:
1. Esses métodos estão disponíveis apenas quando você usa o Outlook como seu programa de e-mail.
2. Depois de enviar a planilha atual, você pode ir para o Outlook para verificar se o e-mail foi enviado com sucesso.
Crie uma lista de discussão e envie emails
|
A Kutools for Excel's Criar lista de discussão e ENVIAR E-mails utilitários podem criar listas de mala direta rapidamente em uma planilha e, em seguida, enviar o mesmo assunto, o mesmo conteúdo e os mesmos anexos para vários endereços de e-mail. |
Artigos relacionados:
Como enviar pasta de trabalho atual através do Outlook do Excel?
Como enviar / enviar e-mail intervalo de células através do Outlook do Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para 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 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!