Se você costuma enviar certos livros ou folhas por e-mail, deve ter notado que esse procedimento não pode ser chamado rapidamente. Se você fizer isso “classicamente”, então você precisa:
- abra um programa de e-mail (por exemplo, Outlook)
- crie uma nova mensagem
- digite o endereço, assunto e texto
- anexe um arquivo à mensagem (não se esqueça!)
- Clique no botão ENVIAR
Na verdade, os e-mails podem ser facilmente enviados diretamente do Excel de várias maneiras diferentes. Vai…
Método 1: Envio incorporado
Se você ainda tem o bom e velho Excel 2003, então tudo é simples. Abra o livro/folha desejado e selecione no menu Arquivo - Enviar - Mensagem (Arquivo — Enviar para — Destinatário do correio). Será aberta uma janela na qual você poderá escolher uma das duas opções de envio:
No primeiro caso, o livro atual será adicionado à mensagem como anexo, no segundo caso, o conteúdo da planilha atual irá diretamente para o texto da mensagem como uma tabela de texto (sem fórmulas).
Além disso, o menu Arquivo - Enviar (Arquivo — Enviar para) existem algumas opções de envio mais exóticas:
- Mensagem (para revisão) (Destinatário do correio para revisão) – a pasta de trabalho inteira é enviada e, ao mesmo tempo, o controle de alterações é ativado para ela, ou seja, começa a ser claramente corrigido – quem, quando e em quais células fez quais alterações. Você pode então exibir as alterações feitas no menu Serviço – Correções – Realçar correções (Ferramentas — Acompanhar alterações — Realçar alterações) ou na aba Revisão - Correções (Revisão - Acompanhar Mudanças) Vai parecer algo assim:
Molduras coloridas marcam as alterações feitas no documento (cada usuário tem uma cor diferente). Quando você passa o mouse, uma janela semelhante a uma nota aparece com uma descrição detalhada de quem, o que e quando mudou nesta célula. É muito conveniente para revisar documentos, quando, por exemplo, você edita o relatório de seus subordinados ou o chefe edita o seu.
- Ao longo do percurso (Destinatário de roteamento) – a mensagem onde seu livro será anexado passará por uma cadeia de destinatários, cada um dos quais a encaminhará automaticamente para mais adiante, como um bastão. Se desejar, você pode definir a mensagem para retornar a você no final da cadeia. Você pode ativar o controle de alterações para ver as edições feitas por cada pessoa na conversa.
No novo Excel 2007/2010, a situação é um pouco diferente. Nestas versões, para enviar o livro por correio, é necessário selecionar o botão Office (Botão de escritório) ou guia Envie o (Arquivo) e equipe ENVIAR (Mandar). Em seguida, é oferecido ao usuário um conjunto de opções de envio:
Observe que nas novas versões, a capacidade de enviar uma planilha separada da pasta de trabalho inserida no corpo da carta desapareceu – como era no Excel 2003 e posterior. A única opção que resta é enviar o arquivo inteiro. Mas houve uma oportunidade útil de enviar no conhecido formato PDF e no menos conhecido XPS (semelhante ao PDF, mas não requer o Acrobat Reader para ler – abre diretamente no Internet Explorer). O comando para enviar um livro para revisão pode ser puxado como um botão adicional no painel de acesso rápido via Arquivo – Opções – Barra de Ferramentas de Acesso Rápido – Todos os Comandos – Enviar para Revisão (Arquivo — Opções — Barra de Ferramentas de Acesso Rápido — Todos os Comandos — Enviar para Revisão).
Método 2. Macros simples para enviar
Enviar uma macro é muito mais fácil. Abrindo o Editor do Visual Basic através do Menu Serviço – Macro – Editor do Visual Basic (Ferramentas — Macro — Editor do Visual Basic), insira o novo módulo no menu Inserir - Módulo e copie o texto dessas duas macros lá:
Sub SendWorkbook() ActiveWorkbook.SendMail Recipients:="[email protected]", Subject:="Лови файлик" End Sub Sub SendSheet() ThisWorkbook.Sheets("Лист1").Copy With ActiveWorkbook .SendMail Recipients:="[email protected]", Subject:="Pegue o arquivo" .Close SaveChanges:=False End With End Sub Depois disso, as macros copiadas podem ser executadas no menu Serviço – Macro – Macros (Ferramentas — Macro — Macros). Enviar pasta de trabalho envia todo o livro atual para o endereço especificado e EnviarFolha — Folha1 como anexo.
Ao executar a macro, o Excel entrará em contato com o Outlook, o que fará com que a seguinte mensagem de segurança apareça na tela:
Aguarde até que o botão Resolver torna-se ativo e clique nele para confirmar seu envio. Depois disso, as mensagens geradas automaticamente serão colocadas na pasta Cessante e será enviado aos destinatários na primeira vez que você iniciar o Outlook ou, se estiver em execução, imediatamente.
Método 3. Macro universal
E se você quiser enviar não o livro atual, mas qualquer outro arquivo? E o texto da mensagem também seria legal de definir! As macros anteriores não ajudarão aqui, pois são limitadas pelos recursos do próprio Excel, mas você pode criar uma macro que gerenciará o Outlook a partir do Excel - crie e preencha uma nova janela de mensagem e envie-a. A macro fica assim:
Sub SendMail() Dim OutApp As Object Dim OutMail As Object Dim cell As Range Application.ScreenUpdating = False Set OutApp = CreateObject("Outlook.Application") 'inicia o Outlook no modo oculto OutApp.Session.Logon On Error GoTo cleanup 'if not iniciado - exit Set OutMail = OutApp.CreateItem(0) 'cria uma nova mensagem On Error Resume Next 'preenche os campos da mensagem With OutMail .To = Range("A1").Value .Subject = Range("A2"). Value .Body = Range("A3").Value .Attachments.Add Range("A4").Value 'Send pode ser substituído por Display para visualizar a mensagem antes de enviar .Send End With On Error GoTo 0 Set OutMail = Nothing cleanup : Set OutApp = Nothing Application.ScreenUpdating = True End Sub O endereço, assunto, texto da mensagem e o caminho para o arquivo anexado devem estar nas células A1:A4 da planilha atual.
- Mailing em grupo do Excel com o suplemento PLEX
- Macros para enviar e-mails do Excel via Lotus Notes por Dennis Wallentin
- O que são macros, onde inserir código de macro no Visual Basic
- Criando e-mails com a função HYPERLINK