Fazer Excel Enviar Email Automatico

Para fazer o Excel enviar um e-mail automático, você precisa seguir os seguintes passos:

1. Abra o Excel e crie uma planilha com as informações que deseja enviar por e-mail.
2. Clique em "Arquivo" e selecione "Salvar como". Escolha um nome para o arquivo e selecione o tipo "Pasta de Trabalho do Excel com Macro Habilitado (*.xlsm)".
3. Pressione "Alt + F11" para abrir o editor de código do VBA.
4. Na janela "Project Explorer", clique com o botão direito do mouse na pasta "ThisWorkbook" e selecione "Inserir" > "Módulo".
5. Na janela de código que foi aberta, adicione o seguinte código:

Sub EnviarEmail() Dim iMsg As Object Dim iConf As Object Dim strbody As String Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1

Set Flds = iConf.Fields

With Flds .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SERVIDOR SMTP" .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "USUÁRIO" .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") = False .Update End With

strbody = "Olá, segue em anexo a planilha solicitada."

With iMsg Set .Configuration = iConf .To = "DESTINATÁRIO" .CC = "" .BCC = "" .Subject = "Assunto do E-mail" .TextBody = strbody .Attachments.Add ActiveWorkbook.FullName .Send End With

MsgBox "E-mail enviado com sucesso!"

Set iMsg = Nothing Set iConf = Nothing

End Sub

6. Altere o valor das variáveis "SERVIDOR SMTP", "USUÁRIO", "SENHA", "DESTINATÁRIO" e "Assunto do E-mail" de acordo com suas informações.
7. Salve e feche o editor de código.
8. Volte para a planilha do Excel e crie um botão ou link para executar a macro "EnviarEmail".
9. Teste a macro pressionando o botão ou link criado e verifique se o e-mail foi enviado com sucesso.

Observação: Este código utiliza o servidor SMTP para enviar o e-mail. Certifique-se de que seu provedor de e-mail permite o uso do SMTP externo. Caso contrário, você pode utilizar uma biblioteca de e-mails para enviar o e-mail diretamente pelo servidor de e-mails da sua conta.