Você pode usar o seguinte código VBA para enviar um e-mail em Excel:
```vba Sub EnviarEmail()Dim objOutlook As ObjectDim objMail As ObjectDim emailDestino As StringDim assuntoEmail As StringDim corpoEmail As String
' Endereço de e-mail do destinatário emailDestino = "email@destino.com" ' Assunto do e-mail assuntoEmail = "Assunto do e-mail" ' Corpo do e-mail corpoEmail = "Corpo do e-mail" ' Cria uma instância do Outlook Set objOutlook = CreateObject("Outlook.Application") ' Cria um novo e-mail Set objMail = objOutlook.CreateItem(olMailItem) ' Define o destinatário e o assunto do e-mail With objMail.To = emailDestino.Subject = assuntoEmail.Body = corpoEmail End With ' Envia o e-mail objMail.Send ' Libera as variáveis do objeto da memória Set objMail = Nothing Set objOutlook = Nothing End Sub ```
Antes de executar o código, certifique-se de que o Microsoft Outlook está instalado em seu computador. Além disso, lembre-se de ajustar o endereço de e-mail do destinatário, o assunto e o corpo do e-mail de acordo com as suas necessidades.