MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

4 participantes

    [Resolvido]Envio de emails um a um

    avatar
    Leo Lobo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 26/07/2012

    [Resolvido]Envio de emails um a um Empty [Resolvido]Envio de emails um a um

    Mensagem  Leo Lobo 31/10/2012, 11:55

    Bom dia !!
    Estamos utilizando um exemplo de código que ajustei em cima de um exemplo do JPAULO.
    O meu ajuste gera um único email para todos os nossos clientes cadastrados. Só que os spams estão bloqueando alguns por se tratar as vezes de mais de 100 emails por mensagem.
    Seria possível algum dos mestres me auxiliar como posso aproveitar este código para gerar um email para cada destinatário ?
    Segue código :

    ' JPaulo ® 2008
    Private Sub btenvio_Click()
    Dim intCont As Integer, strDest As String

    With Me.lstNomes
    If IsNull(.ItemData(0)) Then 'não foi selecionado nenhum nome.
    MsgBox "Não existe dados - Favor informar ao administrador do sistema!", _
    vbExclamation, "Envia e-mail"
    Exit Sub
    Else
    For intCont = 0 To .ListCount - 1
    If .Column(1, intCont) <> "" Then
    strDest = strDest & .Column(0, intCont) & ";"
    End If
    Next intCont
    End If
    End With
    Dim origem As String, Caminho(4) As String, pula As String
    origem = GetPathPart
    pula = Chr(10) & Chr(13)
    Call InitializeOutlook
    Set objNewMail = gOLApp.CreateItem(olMailItem)
    With objNewMail
    .BCC = (strDest)
    .HTMLBody = Me!txcorpo
    .Subject = Me!txtTitulo
    .Display
    End With
    MsgBox "Enviado com sucesso!!!"
    Me!txtTitulo = ""
    Me!txcorpo = ""
    Me!Anexo = ""
    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10776
    Registrado : 04/11/2009

    [Resolvido]Envio de emails um a um Empty Re: [Resolvido]Envio de emails um a um

    Mensagem  JPaulo 31/10/2012, 15:43

    Não tenho como testar, mas talvez mudando o End If e o Next intCont de lugar;

    teste;




    ' JPaulo ® 2008
    Private Sub btenvio_Click()
    Dim intCont As Integer, strDest As String
    Dim origem As String, Caminho(4) As String, pula As String
    origem = GetPathPart

    With Me.lstNomes
    If IsNull(.ItemData(0)) Then 'não foi selecionado nenhum nome.
    MsgBox "Não existe dados - Favor informar ao administrador do sistema!", _
    vbExclamation, "Envia e-mail"
    Exit Sub
    Else
    For intCont = 0 To .ListCount - 1
    If .Column(1, intCont) <> "" Then
    strDest = strDest & .Column(0, intCont) & ";"

    pula = Chr(10) & Chr(13)
    Call InitializeOutlook
    Set objNewMail = gOLApp.CreateItem(olMailItem)
    With objNewMail
    .BCC = (strDest)
    .HTMLBody = Me!txcorpo
    .Subject = Me!txtTitulo
    .Display
    End With

    End If
    Next intCont
    End If
    End With
    MsgBox "Enviado com sucesso!!!"
    Me!txtTitulo = ""
    Me!txcorpo = ""
    Me!Anexo = ""
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Envio de emails um a um Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Envio de emails um a um Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Envio de emails um a um Folder_announce_new Instruções SQL como utilizar...
    avatar
    Leo Lobo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 26/07/2012

    [Resolvido]Envio de emails um a um Empty Re: [Resolvido]Envio de emails um a um

    Mensagem  Leo Lobo 31/10/2012, 20:05

    Bom testei e não funcionou.
    Mudando um pouco o caminho inicial que fizemos.
    Este código fica dentro de um botao enviar no formulário.
    O campo email fica dentro da consulta chamada de qry aniversariantes.
    Seria possível vc me ajudar pensando em algum código que crie um Loop que realizaria um envio de email para um destinatario antes de seguir para outro destinatario diferente ?
    exemplo:
    coluna email
    -------------------
    ssssss@bol.com.br
    ssssssss@uol.com.br
    O código iria a consulta qry aniversariantes . faria um check se existe email para enviar e iria buscando email a email. Em cada email seria feita a rotina de enviar antes do código buscar outro email cadastrado para envio.
    Procurei algo no forum mas nao encontrei
    abs
    Leo Lobo
    avatar
    Convidad
    Convidado


    [Resolvido]Envio de emails um a um Empty Re: [Resolvido]Envio de emails um a um

    Mensagem  Convidad 1/11/2012, 10:48

    Como o JPaulo mudou cria um para cada endereço, simplesmente não está a enviar, apenas mostra porque tem o .Display, se tiver o .Send deverá funcionar.
    avatar
    Leo Lobo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 26/07/2012

    [Resolvido]Envio de emails um a um Empty Re: [Resolvido]Envio de emails um a um

    Mensagem  Leo Lobo 1/11/2012, 10:53

    Bom dia !!
    O que acontece é que se a caixa de listagem tiver 20 emails por exemplo a pessoa que estiver dentro desta recebe 20 vezes o mesmo email.
    Por isso mantive o Display para não enviar para evitar desgaste com o cliente.
    Se puder me auxiliar agradeço !!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8251
    Registrado : 05/11/2009

    [Resolvido]Envio de emails um a um Empty Re: [Resolvido]Envio de emails um a um

    Mensagem  Alexandre Neves 1/11/2012, 21:11

    Boa noite, Leo
    Só mostrando este código fica difícil preparar alteração adequada


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Leo Lobo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 26/07/2012

    [Resolvido]Envio de emails um a um Empty Re: [Resolvido]Envio de emails um a um

    Mensagem  Leo Lobo 1/11/2012, 21:53

    Oi Alexandre tudo bem !!
    Na verdade tenho uma consulta baseada em uma tabela com um campo "email" selecionado
    conforme abaixo
    email
    leo@uol.com.br
    alexandre@bol.com.br

    Ja estou aceitando receber uma nova ideia pois da minha maneira os servidores estado devolvendo tudo como spam.
    A ideia seria fazer um loop enviando um email por cada destinatario para ver se conseguimos se proteger dos bloqueios contra spam.
    Como estes emails sao de clientes que nos autorizaram a enviar tenho a certeza de que estou enviando algo que nao e sujeira para a web.
    Se tiver uma ideia agradeco !!


    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8251
    Registrado : 05/11/2009

    [Resolvido]Envio de emails um a um Empty Re: [Resolvido]Envio de emails um a um

    Mensagem  Alexandre Neves 2/11/2012, 09:57

    Bom dia,
    Crie um recordset com os endereços e um ciclo que, em cada um, envie a mensagem pretendida


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]Envio de emails um a um Empty Re: [Resolvido]Envio de emails um a um

    Mensagem  HARYSOHN 2/11/2012, 16:03

    Creio que este exemplo faz isto. Envia aos selecionados na lista.

    http://maximoaccess.forumeiros.com/t3189-envio-de-e-mail-com-anexos-usando-form-de-envio-atraves-do-access

    Cumprimentos.


    Última edição por PILOTO em 15/12/2012, 15:58, editado 1 vez(es) (Motivo da edição : Tópico dado como resolvido por falta de resposta)

      Data/hora atual: 5/12/2022, 16:56