Como Enviar Email Automatico no Excel

Para enviar e-mails automaticamente no Excel, você pode usar a macro SendMail. Siga os passos abaixo:

1. Abra o Excel e crie uma planilha com os dados que você deseja enviar por e-mail.
2. Clique na guia "Desenvolvedor" e selecione "Visual Basic" para abrir o editor do Visual Basic.
3. Na janela do editor do Visual Basic, clique em "Inserir" e selecione "Módulo" para criar um novo módulo de código.
4. Na janela do novo módulo, digite o seguinte código:

Sub Email()Dim ToAddress As String, Subject As String, Body As StringToAddress = "endereço de e-mail do destinatário"Subject = "assunto do e-mail"Body = "conteúdo do e-mail"On Error Resume NextWith CreateObject("Outlook.Application").CreateItem(0) .To = ToAddress .Subject = Subject .Body = Body .SendEnd WithOn Error GoTo 0 End Sub

5. No código acima, substitua "endereço de e-mail do destinatário" pelo endereço de e-mail do destinatário, "assunto do e-mail" pelo assunto do e-mail e "conteúdo do e-mail" pelo conteúdo do e-mail que você deseja enviar.
6. Salve o módulo clicando em "Arquivo" e depois em "Salvar".
7. Volte para a planilha do Excel e crie um botão para chamar a macro. Para isso, vá na guia "Desenvolvedor" e selecione "Inserir" e depois "Botão".
8. Selecione a macro "Email" que você acabou de criar e clique em "OK".
9. Clique no botão para enviar automaticamente o e-mail.