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


2 participantes

    Enviar e-mail apos cadastrar colaborador

    avatar
    andreyab
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 28/10/2020

    Enviar e-mail apos cadastrar colaborador Empty Enviar e-mail apos cadastrar colaborador

    Mensagem  andreyab 13/10/2022, 15:27

    Bom dia a todos, preciso de uma ajuda de vocês feras, estou desenvolvendo uma aplicação que o objetivo é depois de cadastrar enviar um e-mail para o e-mail cadastrado, criei um banco simples (access 2003) que estou anexando e utilizando a biblioteca CDO, porém não dá nenhuma mensagem de erro e o processamento da máquina fica lá em cima, fiz o teste com a conta que estou usando como servidor de smtp testando o envio por uma impressora e funcionou sem nenhum problema.

    Observação, já pesquisei no fórum outros tópicos mas pelas informações deles não consegui resolver o problema

    Caso possam me ajudar eu agradeço muito

    Código da aplicação

    Private Sub mail_Click()

    On Error GoTo manipularErro

    Dim Mens As Object
    Set Mens = New CDO.Message
    Set Config = New CDO.Configuration
    ' ObterEmailConfig

    With Config

    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.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") = "smtp@email.com.br"
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    .Fields.Update

    End With

    Set Mens = New CDO.Message

    With Mens

    .Configuration = Config

    .From = "lgpd@andreyrose.com.br"

    .BodyPart.Charset = "utf-8"

    .Subject = "teste" & Now

    ' .TextBody = msgbody

    .HTMLBody = "

    Teste

    "

    ' .AddAttachment = "C:\"

    .To = emailDestinoTeste

    ' .CC =sendccto

    ' .BCC = Me.txtCCO

    ' .ReplyTo = answerto

    .Send

    End With

    MsgBox (" Email enviado com sucesso"), vbInformation + vbOKOnly, "Aviso"

    Set Mens = Nothing

    Set Config = Nothing

    encerrar_operacao:

    Set Mens = Nothing

    ' Exit Funcition

    manipularErro:

    ' Msgbox = "Erro: " & Err.Description, vbInformation

    GoTo encerrar_operacao

    End Sub
    Anexos
    Enviar e-mail apos cadastrar colaborador AttachmenttesteMail1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 16 vez(es)
    avatar
    andreyab
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 28/10/2020

    Enviar e-mail apos cadastrar colaborador Empty Enviar e-mail apos cadastrar colaborador

    Mensagem  andreyab 15/10/2022, 01:04

    Alguem para ajudar?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Enviar e-mail apos cadastrar colaborador Empty Re: Enviar e-mail apos cadastrar colaborador

    Mensagem  Alexandre Neves 15/10/2022, 13:05

    Bom dia
    Se funciona para uma mensagem, apenas adaptei para fazer o ciclo dos registos da tabela

    Código:
    Private Sub mail_Click()
        Dim Rst As DAO.Recordset
    On Error GoTo manipularErro

    Dim Mens As Object
    Set Mens = New CDO.Message
    Set Config = New CDO.Configuration
    ' ObterEmailConfig
        Set Rst = CurrentDb.OpenRecordset("SELECT * FROM tabColab")
    With Config

    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.smtp.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") = "smtp@email.com.br"
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    .Fields.Update

    End With

    Set Mens = New CDO.Message

    With Mens
    .Configuration = Config
    .BodyPart.Charset = "utf-8"
    .From = "smtp@email.com.br"
    ' .AddAttachment = "C:\"
    ' .CC =sendccto
    ' .BCC = Me.txtCCO
    ' .ReplyTo = answerto
    ' .TextBody = msgbody
    '.HTMLBody = "<p>Teste</p>"
           
        Do Until Rst.EOF
            .Subject = "teste" & Now
            .To = Rst("email")
            .Send
            Rst.MoveNext
        Loop

    End With

    MsgBox (" Email enviado com sucesso"), vbInformation + vbOKOnly, "Aviso"

    Set Mens = Nothing

    Set Config = Nothing

    encerrar_operacao:

    Set Mens = Nothing

    ' Exit Funcition

    manipularErro:

    ' Msgbox = "Erro: " & Err.Description, vbInformation

    GoTo encerrar_operacao

    ' End Function
    End Sub


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 28/10/2020

    Enviar e-mail apos cadastrar colaborador Empty Enviar e-mail apos cadastrar colaborador

    Mensagem  andreyab 15/10/2022, 21:58

    Alexandre, obrigado pela ajuda, antes de tudo gostaria de agradecer muito!!!! Smile

    Vou testar e fazer um comparativo com o código que eu utilizei e ver onde errei, caso de algum erro eu retorno.

    Muito obrigado mesmo, vai me ajudar muito!!!!
    avatar
    andreyab
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 28/10/2020

    Enviar e-mail apos cadastrar colaborador Empty Enviar e-mail apos cadastrar colaborador

    Mensagem  andreyab 24/10/2022, 03:28

    Alexandre obrigado pela ajuda fiz o testes e enviou o e-mail, porem me surgiu duas questões se fosse possivel respondelas

    1º no seu código abaixo

    With Mens
    .Configuration = Config
    .BodyPart.Charset = "utf-8"
    .From = "smtp@email.com.br"
    ' .AddAttachment = "C:\"
    ' .CC =sendccto

    ele envia o e-mail utilizando o smtp configurado, a minha dúvida, tentei criar uma váriavel utilizando a do campo email do formulário até renomeei para sendccto e fiz a alterção no código para

    With Mens
    .Configuration = Config
    .BodyPart.Charset = "utf-8"
    .From = "smtp@email.com.br"
    ' .AddAttachment = "C:\"
    .CC =sendccto

    com o objetivo do e-mail ser enviado para o e-mail do registro do momento porém não funcionou, teria alguma dica de como eu poderia fazer?

    2º Dúvida

    Após o envio do e-mail ele entra em alto processamento e o access 2003 trava, fiz até algumas alterações mas continua o mesmo comportamento

    fico no aguardo e desde já só tenho a agradecer a sua ajuda.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Enviar e-mail apos cadastrar colaborador Empty Re: Enviar e-mail apos cadastrar colaborador

    Mensagem  Alexandre Neves 24/10/2022, 11:55

    Bom dia
    1ª dúvida
    O endereço de destino é o campo To. O campo CC é para segundo destinatário

    2ª dúvida
    Não vejo situação que justifique esse comportamento mas reveja tantos códigos que temos aqui no fórum para descobrir qual funcionará bem


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 28/10/2020

    Enviar e-mail apos cadastrar colaborador Empty Enviar e-mail apos cadastrar colaborador

    Mensagem  andreyab 24/10/2022, 23:14

    Obrigado pelas informações

    vou dar uma olhada novamente e ver se entendo onde estou errando, assim que eu resolver eu retorno e digo onde esta o erro, caso contrário coloco mais informações, desde já meu muito obrigado.

    Conteúdo patrocinado


    Enviar e-mail apos cadastrar colaborador Empty Re: Enviar e-mail apos cadastrar colaborador

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/12/2024, 14:12