MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Gerador de senha Aleatória com envido de e-mail de recuperação

    avatar
    Vianaedu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/05/2017

    [Resolvido]Gerador de senha Aleatória com envido de e-mail de recuperação Empty [Resolvido]Gerador de senha Aleatória com envido de e-mail de recuperação

    Mensagem  Vianaedu em 5/12/2018, 18:45

    Estou anexando o BD do projeto para facilitar a ajuda

    sobre o BD a intenção dele é:

    1. gerar um código aleatório
    2. gravar o código do BD
    3. enviar o código por email (para o email registrado no BD de acordo com o usuário)
    4. validar o código ( ação do usuário )

    eu li vários tópicos sobre o assunto ( enviar email pelo access) aqui no fórum, mas não fui capaz de adaptar nenhum para minha necessidade então vim apelar para a ajuda dos colegas do forum.


    PS: por algum motivo apenas o primeiro registro é atualizado, mesmo quando eu escolho um usuário diferente então ficaria grato se alguem me ajudar a concertar isso...

    grato!

    PS: o anexo foi removido pois estava incompleto a versão completa e funcional pode ser encontrada no repositório do site: http://www.maximoaccess.com/t34998-gerador-de-senha-aleatoria-com-validacao-e-envio-por-email#239690


    Última edição por Vianaedu em 26/12/2018, 17:22, editado 1 vez(es)
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 01/08/2011

    [Resolvido]Gerador de senha Aleatória com envido de e-mail de recuperação Empty Re: [Resolvido]Gerador de senha Aleatória com envido de e-mail de recuperação

    Mensagem  ronaldojr1 em 6/12/2018, 17:45

    boa tarde,
    Seu erro é pq vc nao esta usando o terceiro parametro da função DLookup.
    Vc precisa informar o criterio de busca se não a função ira retornar apenas o primeiro registro q ela encontrar.

    segue exemplo
    Código:
    'parte do codigo que vc usa para validar
     db = DLookup("senha", "tblUser", "senha = '" & txtsenha & "'")

    abaixo segue exemplo de envio de e-mail. tente adaptar

    Código:
    Dim Mens As CDO.Message
    Dim Config As CDO.Configuration

    With Config

    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "email-ssl.com.br"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "email@provedor.com.br"
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxx"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    .Fields.Update

    End With

    Set Mens = New CDO.Message
    With Mens
    Set .Configuration = Config
    .From = "emailDeRemetente"
    .Sender = "emailDeRemetente"
    .CC = "emailParaCopia"
    .BodyPart.Charset = "utf-8"
    .Subject = "titulo mensagem"
    .HTMLBody = "Corpo da mensagem"
    .To = "EmailDestinatario"
    .Attachment.Add ("CaminhoDoArquivo")
    .Send

    End With

    Set Mens = Nothing
    Set Config = Nothing
    avatar
    Vianaedu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/05/2017

    [Resolvido]Gerador de senha Aleatória com envido de e-mail de recuperação Empty Re: [Resolvido]Gerador de senha Aleatória com envido de e-mail de recuperação

    Mensagem  Vianaedu em 7/12/2018, 19:46

    Eu tinha certeza de que ia ficar com vergonha da resposta ... Muito obrigado pelo apoio, quanto a duvida principal, assim que chegar em casa vou tentar ver esse script do Email...
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 01/08/2011

    [Resolvido]Gerador de senha Aleatória com envido de e-mail de recuperação Empty Re: [Resolvido]Gerador de senha Aleatória com envido de e-mail de recuperação

    Mensagem  ronaldojr1 em 7/12/2018, 20:16

    boa tarde,
    tem essa de passar vergonha não fera. ninguem nasceu sabendo.
    não tenha vergonha de perguntar, aqui é um forum de ajuda e não show do milhao. kkk

    testa la e depois manda o retorno ai.

    sucesso
    avatar
    Vianaedu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/05/2017

    [Resolvido]Gerador de senha Aleatória com envido de e-mail de recuperação Empty Re: [Resolvido]Gerador de senha Aleatória com envido de e-mail de recuperação

    Mensagem  Vianaedu em 26/12/2018, 17:18

    Consegui resolver os problemas de conexão com o db e agora o gerador de senha esta completo inclusive enviando o e-mail por isso eu o adicionei no repositório do site: http://www.maximoaccess.com/t34998-gerador-de-senha-aleatoria-com-validacao-e-envio-por-email#239690


      Data/hora atual: 24/4/2019, 09:30