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

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: https://www.maximoaccess.com/t34998-gerador-de-senha-aleatoria-com-validacao-e-envio-por-email#239690

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


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

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

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: https://www.maximoaccess.com/t34998-gerador-de-senha-aleatoria-com-validacao-e-envio-por-email#239690