Como Enviar Email Automatico Pelo Excel

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:

  1. Abra o Excel e crie uma nova planilha.

  2. Nomeie a planilha como "Emails" e crie as seguintes colunas: "Nome", "Email", "Assunto" e "Corpo do Email".

  3. 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.

  4. Crie uma nova macro clicando em "Desenvolvedor" na faixa de opções e, em seguida, em "Visual Basic".

  5. Na janela do Visual Basic, crie uma nova macro clicando em "Inserir" e selecionando "Módulo".

  6. 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

  1. Salve a macro.

  2. 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.

Veja também mais Como Fazer com a letra C

Comentários