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!
Veja como consultar débitos do IPTU em Ribeirão Preto, emitir uma guia online ou solicitar a segunda via do carnê, com documentos, prazos e canais oficiais.
Veja como escolher entre consertar, vender, doar ou descartar uma bicicleta em Manaus e confirme a aceitação em PEVs e na coleta agendada.
Saiba como descartar TV em Osasco, onde consultar pontos de recebimento, quais cuidados tomar e por que vale confirmar o aceite antes de transportar.
Veja como preparar, apagar dados, avaliar a bateria e encontrar um ponto de logística reversa para descartar notebook em Salvador com mais segurança.
Compare as opções de fantasias de Halloween no ambiente de trabalho considerando respeito, código de vestimenta, mobilidade e segurança — e descubra quando um acessório discreto ou uma verificação das normas da empresa é a melhor opção.
Saiba onde descartar bateria de lítio em Contagem: Ecopontos não recebem baterias, e coletores Green Eletron não aceitam lítio avulso. Veja o destino de eletrônicos, os cuidados com baterias danificadas e os contatos municipais.
Saiba onde descartar pilhas em Belém, como localizar um PEV e quais baterias exigem outro destino, como as automotivas e as instaladas em eletrônicos.
Saiba como descartar geladeira em Porto Alegre: compare Ecopontos, coleta paga e Bota-Fora, veja limites, valores de 2026 e como preparar o aparelho.
Encontre uma fantasia de casal que combine com seu estilo, orçamento e nível de conforto, desde os clássicos da Família Addams até duplas originais inspiradas em piadas internas.
Veja como descartar sofá em Recife: compare Ecoestações e coleta agendada, confira limites, prepare o móvel e saiba quando colocá-lo na calçada.
