Automatizar o envio de emails das suas listas com o Excel – Parte 2

14 comentários em “Automatizar o envio de emails das suas listas com o Excel – Parte 2”

1. Pingback: Automatizar o envio de emails das suas listas com o Excel : Excel do Seu Jeito

2. Olá!
   Acompanho sempre vosso site, mas não sei pq meu login não está funcionando, favor analisar. Login: wagnercgpereira
   Estou precisando de uma ajuda, para enviar email utilizando a programação acima está funcionando para o Yahoo, mas para o Hotmail não, ele pede para Habilitar o TLS/SSL, procurei e não achei resposta.
   Você poderia me ajudar com isso?
   Muito Obrigado!
   Wagner Goularte

   Responder

   • Wagner,
     Fiz os testes com o Hotmail e funcionou.
     Certifique-se de estar configurando o servidor e as portas corretamente. No meu teste, utilizei o smtp.live.com e a porta 25.
     Mas, pode ser que em alguns casos seja necessário habilitar um conexão segura e acesso por outra porta. Neste caso, altere a porta para 587 e adicione a seguinte linha de configuração na classe clsEmail no método configurar:
     .Item(“http://schemas.microsoft.com/cdo/configuration/smtpusessl”) = true
     Agora, quanto o login. O cadastro que você possui aqui no site é para recebimento do nosso Boletim Informativo contendo as novidades, ok. Por enquanto, não temos outro tipo de assinatura.
     Um abração

     Responder
3. Pingback: Dicas de Excel #2 – Macro: Identificando a última linha e coluna da planilha : Excel do Seu Jeito

4. Boa noite, por favor,como n tenho experiencia com macro baixei a planilha para enviar e-mail da lista…porém esta aparecendo mensagem de erros “Falha no enviou do e-mail.” e ” Falha na conexão do transporte com o servidor.” obrigado Luiz

   Responder

   • Oi Luiz, como vai?
     Dá uma lida no comentário anterior, acredito que possa resolver.
     E tente também a porta 465, além da 587 já citada.
     Um abraço

     Responder

5. Ola Reinaldo
   Primeiramente parabéns post (envio de email, envio de email de uma lista, envio de email com anexo) – Todos muito bons e claros.
   Fiz uma alteração, ou tentei fazer uma alteração utilizando o exemplo da Lista + Envio de anexo
   Acreci um coluna onde informo um número que identifica um arquivo e um determinado diretório em minha máquina.
   O problema é que o código envia os emails para cada linha, porém a partir do segundo email ele vai acrescentando os anexos, ou seja, no primeiro ele anexa o primeiro apenas, no segundo o segundo + o primeiro e assim sucessivamente
   Tudo funcionou, exceto por esse detalhe que não consegui solucionar mesmo após um pouco de pesquisa na internet.
   Você poderia tentar elucidar essa questão como faço para que cada linha da lista carregue apenas o arquivo indicado eliminando o(s) anterior(es)??
   Como posso enviar a planilha na qual fiz as alterações para você analisar caso ache interessante?

   Responder

6. Boa Tarde Reinaldo
   Postei uma msg ontem a noite mas acho que “sumiu”.
   Vamos lá… como não poderia deixar de ser, primeiramente te dar os parabéns pela qualidade de seus posts.
   Fiz uma adaptação da macro enviar email para uma lista (vários emails):
   1)acrescentei uma coluna para identificação do arquivo a ser anexado para cada email.
   2)Modifiquei o codigo identificar o local e buscar a identificação do arquivo na lista de emails.
   3)Com as alterações funcionou ele envia os emails com seus anexos mas com o seguinte defeito, o primeiro emails segue com o seu anexo, o 2o. segue com seu anexo mais o anexo do 1o., o 3o. com os seu anexo + o do 1o. e do 2o. e assim sucessivente.
   fiz varias tentativas de localizar o problema e alterar no código, fiz pesquisa na internet sobre o .SETEMAILANEXO para “zerar” esse membro, mas não fui feliz.
   Seria possível analisar e me dar alguma dica. – SEGUE CODIGO ALTERADO:
   Agradeço e parabéns novamente!!!!
   Sub EnviarVariosEmails()
   Dim objEmail As clsEmail
   Dim sh As Worksheet
   Dim vNomeTemp As Variant
   Dim sNomeTo As String
   Dim sEmailTo As String
   Dim sAnexoTo As String
   Dim sStatus As String
   Dim iLinhaInicial As Long
   Dim iLinhaFinal As Long
   Dim i As Long
   On Error GoTo Erro_Sub
   Set objEmail = New clsEmail ‘Inicializa a classe clsEmail
   Set sh = Sheets(“PlanListaDeEmails”) ‘Define a planilha
   With objEmail
   .setConfEmailServidor = “mail.provedor.com.br” ‘Servidor de saída de emails. Ex: smtp.uol.com.br
   .setConfEmailPorta = “587” ‘Porta. Padrão é a porta 25
   .setConfEmailFrom = “hamilton.peres@provedor.com.br” ‘Seu email: O remetente do email. Ex: seunome@uol.com.br
   .setConfEmailSenha = “xxxxxxx” ‘Sua senha: A senha que você usa para acessar seus emails
   .setConfEmailFromNome = “Hamilton Péres” ‘Seu nome: O nome que será exibido no campo De:
   .Configurar ‘Executa a configuração
   ‘Percorre a listagem de emails para enviar
   iLinhaInicial = 8 ‘Informe a linha que começa a lista de emails
   iLinhaFinal = sh.Range(“A1”).SpecialCells(xlCellTypeLastCell).Row ‘Recupera automaticamente a última linha da tabela
   For i = iLinhaInicial To iLinhaFinal
   Application.StatusBar = “Enviando email ” & (i – iLinhaInicial + 1)
   sNomeTo = Trim(sh.Range(“B” & i))
   sEmailTo = Trim(sh.Range(“C” & i))
   sAnexoTo = “c:\DocsEnvio\” & Trim(sh.Range(“D” & i)) & “.pdf”
   If Len(sEmailTo) = 0 Then ‘Verifica se o email do destinatário foi informado
   sStatus = “Informe o email do destinatário.”
   Else
   If Len(sNomeTo) = 0 Then ‘Verifica se um nome foi informado
   vNomeTemp = Split(sEmailTo, “@”)
   sNomeTo = vNomeTemp(0)
   End If
   .setEmailTo = sEmailTo ‘Email do Destinatário
   .setEmailToNome = sNomeTo ‘Nome do Destinatário
   .setEmailTitulo = “Contato do Mes – ” & Trim(sh.Range(“E4”)) ‘Título da mensagem
   ‘Aqui, você deve digitar o conteúdo. Pode utilizar formatação HTML.
   .setEmailConteudo = “” & .getEmailToNome & “.Segue em anexo os dados referente o mes – ” & _
   Trim(sh.Range(“E4”)) & “.Hamilton PéresAnalista”
   .setEmailAnexo = sAnexoTo
   .EnviarEmail
   sStatus = “Email enviado com sucesso!”
   .setEmailAnexo = “”
   End If
   sh.Range(“E” & i) = sStatus ‘Escreve o status do envio
   Next i
   End With
   Set objEmail = Nothing
   Set sh = Nothing
   Application.StatusBar = False
   MsgBox “Emails enviados”, vbInformation
   Exit Sub
   Erro_Sub:
   MsgBox Err.Description, vbExclamation
   Exit Sub
   End Sub

   Responder

   • Olá Hamilton, tudo bem?
     A msg não sumiu não… é que não tenho conseguido muito tempo pra responder todas as mensagens aqui no blog!!! 🙁
     Enfim, mas, chega de chororô…. rsrsrs
     Na classe clsEmail, que é responsável pela manipulação da mensagem, ficou faltando um pequeno detalhe… a limpeza dos anexos incluídos.
     Você pode notar que no exemplo original do envio múltiplo, não realizo o envio com anexos… Isso facilitou para que eu não percebesse essa falha, pois não aconteceu nos meus testes…
     Mas, a solução é simples: antes da linha 108 da classe clsEmail, inclua a instrução:

     .attachments.DeleteAll

     Dessa forma, os anexos adicionados anteriormente serão removidos.
     Em breve, atualizarei os arquivos para download.
     Um abraço.

     Responder

     • Ola Reinaldo,
       Obrigado pela dica, irei fazer o teste e depois dou o retorno para vc.

       Responder

     • Ola Reinaldo.
       Mestre, tentei incluir a instrução conforme informou mas não obtive sucesso, a instrução não foi aceita, tentei varias alternativas e nada, e deste modo não funciou.
       Mas mexendo aqui e ali acabei entrando no Modulo de Classe: clsEmail, na função EnviarEmail() e inclui a instrução no seguinte ponto abaixo do comentáro: ‘Anexa arquivos ao email
       With iMsg
       .To = emailToNome & ” ”
       .CC = “”
       .BCC = “”
       .FROM = confEmailFromNome & ” ”
       .Subject = emailTitulo
       .HTMLBody = emailConteudo
       ‘Anexa arquivos ao email
       >>AQUI>> .attachments.DeleteAll
       If IsArray(emailAnexo) Then ‘Se mais de um arquivo para anexar
       For i = 1 To UBound(emailAnexo)
       .AddAttachment emailAnexo(i) ‘anexa um por um dos arquivos
       Next i
       Else ‘Se apenas um arquivo para anexar
       If Len(emailAnexo) > 0 Then
       .AddAttachment emailAnexo
       End If
       End If
       .Send ‘Comando para enviar o email
       End With
       Neste local a instrução foi aceita e o resultado foi satisfatório, ou seja, sucesso, os email foram enviados para toda a lista e cada qual com apenas o seu anexo (único).
       Gostaria de sua avaliação.
       Aproveitando o ensejo gostaria de saber se no campo email (.setEmailTo = sEmailTo ) só é possível utilizar apenas 1 único email?? tentei digitar 2 separando com ponto-e-virgula mas não é aceito, tentei de algumas outras formas mas também não aceitou.
       Agradeço sua atenção e presteza novamente.
       Hamilton

       Responder

       • Olá Hamilton, tudo bem?
         Realmente, era lá na classe que a instrução DeleteAll deveria ser colocada!
         Quanto ao envio para múltiplos destinatários no mesmo envio, você pode usar a vírgula sim. Contudo, na classe que desenvolvi no exemplo neste artigo não contempla essa funcionalidade. Para fazer isso, sugiro adicionar uma função de tratamento como esta:

         
         Private Function MontaEmailAddress(ByVal sEmailNames As String, ByVal sEmailAddress As String) As String
         Dim arrAddress As Variant
         Dim arrNames As Variant
         Dim i As Integer
         Dim sResult As String
             sEmailAddress = Replace(sEmailAddress, ";", ",")
             arrAddress = Split(sEmailAddress, ",")
             sEmailNames = Replace(sEmailNames, ";", ",")
             arrNames = Split(sEmailNames, ",")
             For i = 0 To UBound(arrAddress)
                 sResult = sResult & arrNames(i) & " <" & arrAddress(i) & ">,"
             Next i
             sResult = Left(sResult, Len(sResult) - 1)
             MontaEmailAddress = sResult
         End Function
         

         E, na função EnviarEmail, da classe clsEmail, procure a linha abaixo:

         
         With iMsg
             .to = emailToNome & " <" & emailTo & ">"
             .
             .
             .
         

         E troque para:

         
         With iMsg
             .to = MontaEmailAddress(emailToNome, emailTo)
             .
             .
             .
         

         Espero que ajude.
         Abraço

         Responder

7. ??? anterior ??

   Responder

   • Respondido lá amigo… Demorou um pouquinho, né?!!!
     Correria… 🙂
     Mas, tá aí…
     Abraço.

     Responder