none
Envio email automático formatado RRS feed

  • Pergunta

  • Bom dia

    Estou precisando de uma macro para envio de email automático conforme esquema abaixo formatado e com um texto inicial padrão para todos, conseguiriam me ajudar?

    Enviar para cada email agrupando suas respectivas colunas

    EX paulohenrique@teste.com.br 

    Compras vendas data
    21 46 18/08/2018
    30 79 19/08/2018
    40 651 20/08/2018
    50 31 21/08/2018

    

      Compras vendas data
    paulohenrique@teste.com.br 21 46 18/08/2018
    paulohenrique@teste.com.br 30 79 19/08/2018
    paulohenrique@teste.com.br 40 651 20/08/2018
    paulohenrique@teste.com.br 50 31 21/08/2018
    jessica@teste.com.br 15 351 22/08/2018
    jessica@teste.com.br 153 131 23/08/2018
    brunofernandes@teste.com.br 13 684 24/08/2018
    brunofernandes@teste.com.br 87 638 25/08/2018
    brunofernandes@teste.com.br 91   26/08/2018
    quinta-feira, 20 de setembro de 2018 19:44

Todas as Respostas

  • Paulo Henrique Gomes da Silva,

        Ao meu ver, basicamente são dois passos:

        1 - Montar o email (menos o body);
        2 - Montar o Body do email (Exemplo: Crie a estrutura em uma pasta e passe o intervalo);

        Para montar o email (talvez você já tenha feito isso), pode tentar fazer assim:

    ===========================================
    Enviando e-mail diretamente pelo Excel

    'Baseado no código disponibilizado em http://guiadoexcel.com.br/
    Function EnviaEmail()
    Dim iMsg, iConf, Flds
    
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields
    
    schema = "http://schemas.microsoft.com/cdo/configuration/"
    Flds.Item(schema & "sendusing") = 2
    'Configura o smtp
    Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
    'Configura a porta de envio de email
    Flds.Item(schema & "smtpserverport") = 465
    Flds.Item(schema & "smtpauthenticate") = 1
    'Configura o email do remetente
    Flds.Item(schema & "sendusername") = "maximilianomeyer48@gmail.com"
    'Configura a senha do email remetente
    Flds.Item(schema & "sendpassword") = "senha do seu e-mail"
    Flds.Item(schema & "smtpusessl") = 1
    Flds.Update
    
    With iMsg
       'Email do destinatário
       .To = "max@desenvolveweb.com.br"
       'Seu email
       .From = "maximilianomeyer48@gmail.com"
       'Título do email
       .Subject = "Isto é um teste de Envio de e-mail"
       'Mensagem do e-mail, você pode enviar formatado em HTML
       .HTMLBody = "Mensagem enviada com o gmail"
       'Seu nome ou apelido
       .Sender = "Teste"
       'Nome da sua organização
       .Organization = "Aprender Excel"
       'e-mail de responder para
       .ReplyTo = "maximilianomeyer48@gmail.com"
       'Anexo a ser enviado na mensagem. Retire a aspa da linha abaixo e coloque o endereço do arquivo
       .AddAttachment ("c:/fatura.txt")
       Set .Configuration = iConf
       .Send
    End With
    
    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing
    End Function
    
    Sub disparar()
       EnviaEmail
       MsgBox "O e-mail foi disparado com sucesso!", vbOKOnly, "e-mail enviado"
    End Sub

    https://www.aprenderexcel.com.br/2017/vba/enviando-e-mail-diretamente-pelo-excel
    ===========================================

        Para montar o HTML que ficará no corpo do email:

    ===========================================
    Macro para Enviar Planilha (Ou Intervalo de Células) por Email

    Sub enviar_corpo_email()
    
       ‘ Seleciona o intervalo de células a serem enviadas por email.
    
       ActiveSheet.Range(“A1:B12”).Select
    
       ActiveWorkbook.EnvelopeVisible = True
    
       With ActiveSheet.MailEnvelope
    
          .Introduction = “”
    
          .Item.To = “seuEmail@exemplo.com”
    
          .Item.Subject = “Título Assunto”
    
          .Item.Send
    
       End With
    
    End Sub

    http://excelpratico.com/macro-para-enviar-planilha-ou-intervalo-de-celulas-por-email/
    ===========================================
    Colar dados de uma célula no corpo do e-mail html VBA

    https://www.clubedohardware.com.br/forums/topic/1261282-colar-dados-de-uma-c%C3%A9lula-no-corpo-do-e-mail-html-vba/
    ===========================================

    []'s,
    Fabio I.

    • Editado Fabio I quinta-feira, 20 de setembro de 2018 20:09
    quinta-feira, 20 de setembro de 2018 20:05