Para fazer o Excel enviar e-mails, siga estas etapas:
Abra o Excel e abra o seu arquivo.
Crie uma planilha com as informações que você deseja enviar por e-mail.
Vá para a guia "Desenvolvedor" e clique em "Visual Basic".
Na janela do Visual Basic, selecione "Inserir" e escolha "Módulo".
Insira o seguinte código VBA no módulo:
Sub EnviarEmail() Dim Email As Object Dim Destino As String, Assunto As String, Corpo As String Set Email = CreateObject("Outlook.Application").CreateItem(0) Destino = "exemplo@email.com" Assunto = "Assunto do seu e-mail" Corpo = "Corpo do seu e-mail" With Email.To = Destino.Subject = Assunto.Body = Corpo.Send End With End Sub
Substitua "exemplo@email.com" pelo endereço de e-mail do destinatário, "Assunto do seu e-mail" pelo assunto que você deseja e "Corpo do seu e-mail" pelo corpo da mensagem.
Salve o módulo e feche a janela do Visual Basic.
Volte para a planilha do Excel e selecione a célula que você quer usar para enviar o e-mail.
Vá para a guia "Desenvolvedor" e clique em "Macros".
Selecione a macro "EnviarEmail" e clique em "Executar".
O Excel irá enviar o e-mail para o endereço selecionado no código VBA.
Lembre-se de que você precisará ter uma conta de e-mail configurada no Outlook para enviar e-mails dessa maneira.