Email CDO parou de funcionar

Amigos boa noite. Tenho um formulário para envio de emails que foi adaptado de uma exemplo que eu peguei aqui no forum, se eu não me engano no Criquio. Ocorre que parou de funcionar do nada. Clico em enviar mensagem, dá o retorno de mensagem enviada, porém não chega aos destinos o email. As tabela está com a seguinte configuraçao:

Servidor: mail.meusite.com.br
porta: 587
sendusing: 2
smtpauthenticate: 1
sendusername: usosistema@meusite.com.br
senha: ********
smtpconnectiontimeout: 60

Alguma dica do que pode estar ocorrendo?

Grato

Bem... Adicionei o CDO tambem a um projeto meu... Ele envia para caixa de saída do Gmail, dá como enviado, mas não recebo o e-mail destinatario...

Aguardaremos uma posição que quem tem mais experiencia com este procedimento.


Cumprimentos.

Pois é piloto tá estranho mesmo. Hoje há 1 hora atrás fiz novos testes e voltou a funcionar. Agora refiz e não funcionou, enfim sem pistas até o momento.

Não sendo uma duvida relacionada com Formulários, este tópico foi movido para a sala correta.

Poxa ninguém sabe me dizer o que acontece? A situação é realmente crítica porque não há nada de errado, tudo funcionava perfeitamente e simplesmente parou de funcionar. Testes variados eu fiz , tanto de versões de Windows como de redes, computadores e não funciona mesmo. Dá como mensagem enviada, porém não chega ao destino. Alguma mudança de porta algo assim?? Me ajudem por favor.

Já tentou substituir a dll CDO por outra cópia? Às vezes pode acontecer dela se corromper e trocando volta a funcionar normal. Ou verificar se a porta smtp não mudou.

E onde verificamos isso?

Cumprimentos.

Agora amigão.. o interessante é que no meu caso.. ele insere e anexa no Gmail... so nao consegue enviar..

O que pode ser?

Olá

Os gestores, reponsáveis pela Internet aqui no Brasil, resolveram bloquear a porta 25 do SMTP (Envio de email). Agora todos terão que utilizar a porta 587. Não sei dizer se isso é somente a nível Brasil

A razão disso é que o Brasil entrou para lista negra, do paises que mais enviam SPAM. Varios locais do mundo já estavam bloqueando emails que vinham do Brasil.

Com a transição disso, vários provedores estão passando por dificuldades. Estou me estressando pacas com a UOL. Além de ter passado 3 dias inteiros sem email na virada do ano, neste momento estou passando por uma falha nos envios, aonde a cada 3 tentativas estou conseguindo enviar 1.

Revejam também se requer alterar a configurações da "conexão segura" e "autenticação"

Novas configurações de envio de e-mail:
Servidor de SMTP: smtp.seudominio.com.br
Porta de SMTP: 587
Requer conexão segura: sim
Meu servidor requer autenticação: sim


Sucesso!

Erro gerado conforme o print:



80 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
90 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
100 .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
110 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
120 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
130 .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxxxxxx@gmail.com"
140 .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Senha"
150 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

Cumprimentos.

Criquio dll não deve ser, pois como disse, já fiz teste em máquinas diferentes, em ambientes diferentes e nada acontece de errado. A mensagem segue normalmente , mas não chega ao destino. Quanto a sugestão do Avelino, eu já havia mudado para porta 587 e já vinha funcionando assim, o lance é que parou de funcionar do nada. Gostaria de saber do pessoal que tem esse sistema via CDO se estão com os seus funcionando normalmente, pois penso que é algo no caminho que o Avelino comentou, algo nas novas regras , portas, etc... implementadas no Brasil recentemente e está bloqueando os emails.

O teu chega a enviar para a caixa de enviados do Gmail?

O meu vai para caixa de saida do Gmail.. porém nao envia...

Cumprimentos.

Hery

é isso mesmo que está acontecendo! O servidor não consegue liberar o email e acaba ficando retido na caixa de Saída. Como uso o outlook, configurei aqui para cada 2 minutos o envio automático. Depois então de varias tentativas o servidor do provedor recebe o email.

O Gmail não usava a porta 465 ? Esta porta também foi afetada ?

Haja paciência!!!

Eu estou enviando normalmente pelo Gmail. Não testei ainda por outras contas, mas as minhas do Gmail estão funcionando normalmente.

Piloto não uso a conta do gmail. Vou configurar um para gmail para teste e posto o resultado.

Amigos boa tarde!

Como havia dito, criei uma conta no Gmail e fiz um teste, mas deu o mesmo erro apontado pelo PILOTO (talvez algum pequeno ajuste no código em função de alguma atualização feito pelo criquio. Baixei um modelo de exemplo do Criquio e com esse modelo configurando minha nova conta do Gmail funciona perfeitamente. Quando tento configurar a minha conta do meu site, não funciona! Possivelmente pelo problemas levantados pelo Avelino, pois esse email utiliza a porta 587, e não funciona no CDO nem a pau! Ainda tentando descobrir o que mudar ou só funciona com gmail mesmo com a porta 465.

Boa Noite Pessoal,

Como o Avelino já falou, alguns servidores já estão bloqueando a porta 25 do SMTP.

Uso como alternativa a dll da Ostrosoft. Ela tem um componente SMTP não comercial que é bem estável. Já uso há bastante tempo tanto para enviar como receber emails do servidor

MMS envie-me esse modelo para que eu possa testar em minha conta..

Chesetrem, envie-nos um modelo deste que citou.

Cumprimentos.

Ontem já tive uma melhora significativa.

Vamos ver se a coisa irá voltar a normalidade o quanto antes.

MMS, faça um teste com o CDO usando a conta do seu provedor, passando emails para a sua nova conta do Gmail. Transmita umas Dez vezes e veja se algumas das tentativas irão chegar no seu Gmail.

Sucesso!

Bom dia Hary,

O modelo em VB já vem quando você faz o download da dll.

Basta estudar a dll na documentação.

Obs: Registrar a dll no windows e marcar a referência no projeto.

Pode ser uma ligação tardia também. Dá no mesmo.

Segue um exemplo de um botão abaixo:

Código:

Option Compare Database

Dim oSmtp As OSSMTP.SMTPSession
Dim txtLogin As String
Dim txtPassword As String
Dim SmtpServer As String

Private Sub btnEnviar_Click()

txtLogin = "suaconta@seudominio.com.br"
txtPassword = "suasenha"
SmtpServer = "smtp.seudominio.com.br"
Set oSmtp = New OSSMTP.SMTPSession

With oSmtp

    .Server = SmtpServer
    .AuthenticationType = AuthLogin
    .UserName = txtLogin
    .Password = txtPassword
    .Port = 587
    .MailFrom = "seuemail@dominio.com.br"
    .SendTo = "emailpara@dominio.com.br"
    .BCC = "copiapara@dominio.com.br"
    .Charset = utf - 8
    .MessageSubject = "Composição do campo assunto"
    .MessageHTML = "Corpo da Mensagem"
    .SendEmail
End With
Set oSmtp = Nothing

End Sub


Sds,