Para enviar um email automático pelo Excel, você precisa primeiro criar uma macro que execute algumas ações específicas. Aqui estão os passos necessários:
Abra o Excel e crie uma nova planilha.
Nomeie a planilha como "Emails" e crie as seguintes colunas: "Nome", "Email", "Assunto" e "Corpo do Email".
Preencha as informações relevantes para cada linha. Certifique-se de que o endereço de e-mail esteja correto e que as informações do assunto e do corpo do e-mail sejam precisas.
Crie uma nova macro clicando em "Desenvolvedor" na faixa de opções e, em seguida, em "Visual Basic".
Na janela do Visual Basic, crie uma nova macro clicando em "Inserir" e selecionando "Módulo".
Cole o seguinte código na janela do módulo:
Sub EnviarEmail()
Dim EmailRange As Range
Dim Cel As Range
Set EmailRange = Worksheets("Emails").Range("B2:B10")
For Each Cel In EmailRange
If Cel.Value Like "?@?.?*" Then
With CreateObject("Outlook.Application").CreateItem(olMailItem)
.To = Cel.Value
.Subject = Cel.Offset(0, 1).Value
.Body = Cel.Offset(0, 2).Value
.Send
End With
Else
MsgBox "O endereço de email " & Cel.Value
End If
Next Cel
End Sub
Salve a macro.
Para executar a macro e enviar os e-mails automaticamente, vá para a planilha "Emails" e clique em "Desenvolvedor" na faixa de opções. Em seguida, clique em "Macros" e selecione a macro "EnviarEmail". Clique em "Executar" e aguarde enquanto a macro envia os e-mails.
Observe que este código usa o aplicativo Outlook para enviar os e-mails. Se você estiver usando um cliente de e-mail diferente, talvez seja necessário alterar o código para se adequar ao seu aplicativo. Além disso, certifique-se de que as configurações de segurança do seu aplicativo permitam o envio de e-mails automáticos.