Enviar e-mail apos cadastrar colaborador

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

Alguem para ajudar?

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

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

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

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.

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

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.