O uso de scripts VBA no Excel não requer nenhum conhecimento de programação. O VBA ajuda você a executar muitas tarefas avançadas, como criar um relatório de planilha contendo todas as informações do PC, enviando por e-mail diretamente de uma planilha ...
Para enviar email do Microsoft Excel, basta alguns scripts simples. Não tenha medo de adicionar esse recurso à sua planilha se realmente quiser tirar o máximo proveito do software de escritório do Excel.
Há muitas razões pelas quais você deseja enviar um email diretamente no Microsoft Excel. Por exemplo, seus funcionários atualizam documentos e planilhas semanalmente, e você deseja receber notificações por email quando essa ação for concluída ou, às vezes, deseja enviar todos os contatos por email na mesma pasta de trabalho. às ...
Você deve ter pensado em usar um script de email complicado do Excel, mas na verdade é muito simples. Este artigo o ajudará a tirar proveito de um recurso que há muito tempo está disponível no Excel VBA, chamado CDO (Collaboration Data Objects) .
CDO é um componente de mensagens usado no Windows desde as primeiras versões. Costumava ser chamado CDONTS. Após o nascimento do Windows 2000 e XP, o "CDO para Windows 2000" o substituiu. Este componente está incluído na instalação do VBA no Microsoft Word ou Excel e está disponível para uso a qualquer momento.
O uso desse componente para enviar e-mails em produtos Windows com VBA é extremamente fácil. Por exemplo, este artigo usa o CDO no Excel para enviar emails que contêm resultados em uma célula.
Primeiro, vá para a guia Desenvolvedor do Excel > clique em Inserir no painel Controles e selecione um botão de comando.
Arraste-o para esta planilha e crie uma nova macro clicando em Macros na faixa de opções Desenvolvedor.
Quando você clica no botão Criar , ele abre o editor VBA.
Adicione uma referência à biblioteca do CDO navegando para Ferramentas> Referências no editor.
Role a lista até ver o Microsoft CDO para Windows 2000 Library . Marque a caixa de seleção e clique em OK .
Quando você clicar em OK , observe o nome da função em que o script é colado, pois você precisará mais tarde.
Para fazer isso, primeiro você precisa criar objetos relacionados ao email e configurar todos os campos de entrega de email necessários.
Lembre-se de que muitos campos podem ou não, mas De e Para são obrigatórios.
Dim CDO_Mail Como Objeto
Dim CDO_Config Como Objeto
Dim SMTP_Config Como Variante
Dim strSubject Como String
Dim strFrom Como String
Dim strTo Como String
Dim strCc Como String
Dim strBcc Como String
Dim strBody Como String
strSubject = "Resultados da planilha do Excel"
strFrom = "rdube02@gmail.com"
strTo = "rdube02@gmail.com"
strCc = ""
strBcc = ""
strBody = "Os resultados totais deste trimestre são:" & Str (Plan1) .Células (2, 1))
O interessante é que você pode criar qualquer sequência desejada para personalizar toda a mensagem de email e atribuir a variável strBody.
Reunir o conteúdo de uma mensagem de email usando uma string e inserir dados de qualquer planilha do Microsoft Excel diretamente em um email (como mostrado acima).
O próximo trecho de código é onde você configura o CDO para usar qualquer servidor SMTP externo para enviar email.
Este exemplo não configura o SSL via Gmail, o CDO pode substituir o SSL, mas está fora do escopo deste artigo. Se você precisar usar SSL, o código avançado no Github pode ajudá-lo.
Defina CDO_Mail = CreateObject ("CDO.Message")
no erro GoTo Error_Handling
Defina CDO_Config = CreateObject ("CDO.Configuration")
CDO_Config.Load -1
Defina SMTP_Config = CDO_Config.Fields
Com SMTP_Config .Item
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp. gmail.com "
.Item (" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate ") = 1
.Item (" http://schemas.microsoft.com/cdo/configuration/sendusername ") =" email@website.com ".Item
(" http://schemas.microsoft.com/cdo/configuration/sendpassword ") =" senha "
.Item (" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25
.Item (" http://schemas.microsoft.com/cdo/configuration/smtpusessl ") = True
.Update
End With
With CDO_Mail
Set .Configuration = CDO_Config
Terminar com
Agora você configurou seu servidor SMTP para enviar email. Tudo o que você precisa fazer é preencher os campos apropriados para o objeto CDO_Mail e emitir o comando Enviar .
Veja como fazê-lo:
CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.CC = strCc
CDO_Mail.BCC = strBcc
CDO_Mail.Send
Error_Handling:
If Err.Description <> "" Então MsgBox Err.Description
Nenhum dos pop-ups ou alertas de segurança aparece como você normalmente vê ao usar o objeto de email do Outlook.
O CDO simplesmente coloca os componentes de email lado a lado e usa os detalhes de conexão do servidor para permitir o envio de informações. Essa é a maneira mais fácil de combinar emails em scripts VBA do Microsoft Word ou Excel.
Para conectar o botão de comando a esse script, acesse o editor de código e clique em Plan1 para ver o código VBA dessa planilha.
Digite o nome da função em que você colou o script acima.
Esta é a informação que você recebe na caixa de entrada.
Nota : Se você receber o erro O transporte falhou ao se conectar ao servidor , verifique se digitou o nome de usuário, a senha, o servidor SMTP e o número da porta corretos na linha de código listada em With SMTP_Config .
Enviar e-mails do Excel com um botão é realmente seguro e conveniente. Se você deseja usar esse recurso com frequência, pode automatizá-lo.
Para fazer isso, você precisa alterar a macro. Vá para o Editor do Visual Basic, copie e cole o código inteiro reunido. Em seguida, selecione ThisWorkbook na hierarquia do projeto .
Nos dois campos suspensos na parte superior da janela de código, selecione Pasta de Trabalho e clique em Abrir no menu Métodos . Cole o script de email acima em Private Sub Workbook_Open () . Esta ação executará a macro sempre que você abrir o arquivo do Excel.
Em seguida, abra o Agendador de tarefas . Você usará essa ferramenta para solicitar ao Windows que abra automaticamente as planilhas em intervalos especificados. Nesse momento, sua macro será ativada e enviada por email.
Selecione Criar tarefa básica ... no menu Ação e siga as instruções até chegar na tela Ação.
Selecione Iniciar um programa e clique em Avançar .
Use o botão Procurar para encontrar o local do Microsoft Excel no computador ou copie e cole o caminho no campo Programa / script .
Em seguida, insira o caminho para o documento do Microsoft Excel no campo Adicionar argumentos .
Instruções completas e agendamento serão feitas.
Você deve testar esse recurso agendando a ação nos próximos minutos e revisando a tarefa depois de vê-la funcionando efetivamente.
Nota : Pode ser necessário ajustar as configurações da Central de Confiabilidade para garantir que a macro seja executada da seguinte maneira:
Abra a planilha e navegue para Arquivo> Opções> Central de Confiabilidade .
Aqui, clique em Configurações da Central de Confiabilidade . Na próxima tela, selecione Nunca mostrar informações sobre o conteúdo bloqueado .
O Microsoft Excel é uma ferramenta extremamente poderosa, mas aprender a usá-lo às vezes pode ser desafiador para muitos. Se você deseja dominar este software, precisa saber como usar o VBA. Não é fácil.
No entanto, com um pouco de experiência em VBA, você pode automatizar tarefas básicas no Microsoft Excel e ter mais tempo concentrando-se em tarefas mais importantes.
Espero que o artigo seja útil para você. Desejo-lhe sucesso!
Cansado do erro "Como usar a Ajuda" do Microsoft Teams que está bloqueando seu fluxo de trabalho? Obtenha soluções passo a passo que funcionam nas versões mais recentes. Limpe o cache, atualize e muito mais — sem precisar de conhecimentos técnicos!
Frustrado com o erro de atalho do Microsoft Teams na área de trabalho? Siga nosso guia passo a passo comprovado para resolvê-lo rapidamente e voltar a fazer chamadas de vídeo e chats sem problemas. Sem necessidade de conhecimentos técnicos!
Descubra instruções passo a passo sobre como alterar a imagem de fundo do Microsoft Teams. Personalize reuniões no computador, no celular e na web com facilidade, usando os recursos mais recentes para videochamadas profissionais ou divertidas.
Cansado dos erros de reprodução de mídia do Microsoft Teams arruinando suas reuniões de 2026? Siga nosso guia passo a passo, elaborado por especialistas, para corrigir problemas de áudio, vídeo e compartilhamento rapidamente — sem precisar de conhecimentos técnicos. A colaboração perfeita está ao seu alcance!
Descubra onde o Microsoft Teams baixa arquivos no seu computador. Saiba onde os arquivos são baixados por padrão no Windows, Mac e Linux, como alterá-los e dicas para encontrar arquivos instantaneamente. Economize tempo com este guia completo!
Com dificuldades para resolver o erro de proxy do Microsoft Teams? Descubra etapas comprovadas para solucionar esse problema. Limpe o cache, ajuste as configurações de proxy e volte a fazer chamadas sem interrupções em minutos com nosso guia especializado.
Cansado de som abafado ou inexistente no microfone do Microsoft Teams? Descubra como resolver problemas de microfone no Microsoft Teams com passos rápidos e comprovados. Áudio nítido em breve!
Está com dificuldades para entrar em uma reunião no Microsoft Teams? Descubra passos comprovados para resolver o problema através de links diretos. Soluções rápidas para entrar em reuniões sem problemas – sem necessidade de conhecimentos técnicos!
Está com dificuldades para resolver problemas com o Keychain no Microsoft Teams para Mac? Descubra soluções comprovadas, passo a passo, para macOS e volte a colaborar sem problemas. Soluções rápidas aqui!
Frustrado porque as Salas Simultâneas não aparecem na sua reunião do Teams? Descubra os principais motivos pelos quais você não consegue ver as Salas Simultâneas no Teams e siga nossas soluções passo a passo para que elas funcionem perfeitamente em minutos. Ideal para organizadores e participantes!
