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

    enviar Email com dados solicitados

    Compartilhe

    Vianaedu
    Novato
    Novato

    Respeito às Regras 100%

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

    enviar Email com dados solicitados

    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!
    Anexos
    gerarSenha.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (480 Kb) Baixado 3 vez(es)
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: enviar Email com dados solicitados

    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

    Vianaedu
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: enviar Email com dados solicitados

    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...
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: enviar Email com dados solicitados

    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

      Data/hora atual: 16/12/2018, 11:23