PROBLEMA COM CDOSYS ENVIANDO E-MAIL
Boa noite amigos
Ao tentar usar o CDOSys, está me surgindo o problema abaixo:
Alguém tem alguma sugestão do que pode estar acontecendo?
Abraço a todos e uma excelente semana.
Ao tentar usar o CDOSys, está me surgindo o problema abaixo:
Alguém tem alguma sugestão do que pode estar acontecendo?
Abraço a todos e uma excelente semana.
Imagem correta:
http://cfvernizze.sites.uol.com.br/erro_email_vb.JPG
Agora sim...
Agora sim...
Te ajudando... segue a imagem:
Sobre o erro, ele ocorre com TODOS os endereços?
Sobre o erro, ele ocorre com TODOS os endereços?
Olha Flávio
Eu tentei com outros e-mail do UOL e deu o mesmo problema.
Já com o GMail, não consegui usar, pois ele exige configurações de segurança a mais, e a princÃpio não deu certo.
A propósito, obrigado pela ajuda !
Eu tentei com outros e-mail do UOL e deu o mesmo problema.
Já com o GMail, não consegui usar, pois ele exige configurações de segurança a mais, e a princÃpio não deu certo.
A propósito, obrigado pela ajuda !
Posta aqui pra gente o trecho do código onde vc passa as configurações de autenticação e de envio da msg, sem a senha, é claro. Creio que pode estar havendo alguma falha de autenticação.
1 Pergunta: Vc tentou enviar uma mensagem para um endereço uol e deu este mesmo erro?
Veja as configurações que vc deve utilizar para envio:
- Servidor de envio de mensagens: smtps.uol.com.br
Porta de SMTP: 587
Requer conexão segura: sim
Meu servidor requer autenticação: sim
Note que é smtps, tem um s a mais, diferentemente dos outros: smtp.yahoo.com.br.
1 Pergunta: Vc tentou enviar uma mensagem para um endereço uol e deu este mesmo erro?
Veja as configurações que vc deve utilizar para envio:
- Servidor de envio de mensagens: smtps.uol.com.br
Porta de SMTP: 587
Requer conexão segura: sim
Meu servidor requer autenticação: sim
Note que é smtps, tem um s a mais, diferentemente dos outros: smtp.yahoo.com.br.
Olha Ricardo, o código é este:
----------------------------------------------------BOF---------------------------------------------------------------------
Private Sub cmdEnviar_Click()
Dim Msg As CDO.Message
Dim Cof As CDO.Configuration
Dim Camp
Set Msg = New CDO.Message
Set Cof = New CDO.Configuration
Set Camp = Cof.Fields
With Camp
.Item(cdoSendUsingMethod) = 2 [ô] cdoSendUsingPort
.Item(cdoSMTPServer) = [Ô]smtp.uol.com.br[Ô] [ô]Endereço do Server SMTP
.Item(cdoSMTPConnectionTimeout) = 10 [ô] quick timeout
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = [Ô]cfvernizze[Ô] [ô]Login
.Item(cdoSendPassword) = [Ô]********[Ô] [ô]Senha
.Update
End With
With Msg
Set .Configuration = Cof
.To = [Ô][Ô][Ô]user[Ô][Ô] <vernizze.cf@gmail.com>[Ô]
.From = [Ô][Ô][Ô]user[Ô][Ô] <evernizze@uol.com.br>[Ô]
.Subject = [Ô]Teste de CDOSYS[Ô]
.AddAttachment [Ô]c:123.txt[Ô]
.Send
End With
End Sub
----------------------------------------------------EOF---------------------------------------------------------------------
A algum tempo atrás, quando o vi pela primeira vez e testei, funcionou. Hoje quando o integrei ao sistema que estou desenvolvendo, me retornou este erro.
Na verdade, quando mando para qualquer e-mail, ele dá este erro. O que tentei também foi mudar o endereço de remetente, mas o erro permanece.
----------------------------------------------------BOF---------------------------------------------------------------------
Private Sub cmdEnviar_Click()
Dim Msg As CDO.Message
Dim Cof As CDO.Configuration
Dim Camp
Set Msg = New CDO.Message
Set Cof = New CDO.Configuration
Set Camp = Cof.Fields
With Camp
.Item(cdoSendUsingMethod) = 2 [ô] cdoSendUsingPort
.Item(cdoSMTPServer) = [Ô]smtp.uol.com.br[Ô] [ô]Endereço do Server SMTP
.Item(cdoSMTPConnectionTimeout) = 10 [ô] quick timeout
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = [Ô]cfvernizze[Ô] [ô]Login
.Item(cdoSendPassword) = [Ô]********[Ô] [ô]Senha
.Update
End With
With Msg
Set .Configuration = Cof
.To = [Ô][Ô][Ô]user[Ô][Ô] <vernizze.cf@gmail.com>[Ô]
.From = [Ô][Ô][Ô]user[Ô][Ô] <evernizze@uol.com.br>[Ô]
.Subject = [Ô]Teste de CDOSYS[Ô]
.AddAttachment [Ô]c:123.txt[Ô]
.Send
End With
End Sub
----------------------------------------------------EOF---------------------------------------------------------------------
A algum tempo atrás, quando o vi pela primeira vez e testei, funcionou. Hoje quando o integrei ao sistema que estou desenvolvendo, me retornou este erro.
Na verdade, quando mando para qualquer e-mail, ele dá este erro. O que tentei também foi mudar o endereço de remetente, mas o erro permanece.
Perdão, é Ricart e não Ricardo....
Já estou caindo de sono, foi mal....
Já estou caindo de sono, foi mal....
Realmente, acho que há diferença:
Tente como abaixo e vamos ver se dá certo:
.Item(cdoSendUsingMethod) = 2 [ô] cdoSendUsingPort
.Item(cdoSMTPServer) = [Ô]smtps.uol.com.br[Ô] ‘informe o servidor smtp aqui
.Item(cdoSMTPConnectionTimeout) = 20 [ô] quick timeout
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = [Ô]cfvernizze[Ô] [ô] informe o usuario de autenticação (Em alguns casos, precisa informar com os dados após o @)
.Item(cdoSendPassword) = [Ô]pwusuario[Ô] [ô]Informe a Senha aqui
.Update
Mais este:
[ô]Essa string poderá ser colocada em uma variável pública com a mensagem que se deseja enviar, vc pode passar as tags de configuração normalmente.
Dim strHTML
strHTML = [Ô]<HTML>[Ô]
strHTML = strHTML & [Ô]<HEAD>[Ô]
strHTML = strHTML & [Ô]<BODY>[Ô]
strHTML = strHTML & [Ô]<b> Esse é um Teste de Envio automático.</b></br>[Ô]
strHTML = strHTML & [Ô]</BODY>[Ô]
strHTML = strHTML & [Ô]</HTML>[Ô]
With Msg
With Msg
Set .Configuration = Cof
.To = [Ô]vernizze.cf@gmail.com[Ô] [ô] Para acrescentar outros, separar por ;
.From = [Ô]evernizze@uol.com.br[Ô] [ô] seu endereço igual do usuário de autenticação.
.Subject = [Ô]Teste de CDOSYS[Ô]
.HTMLBody = strHTML
.AddAttachment [Ô]c:123.txt[Ô]
.Send
End With
Testa aÃ. Eu não tenho como testar agora, mas acho que vai dar certo. Talvez o erro tivesse o smtps e no seu .From, pois acho que estava informado errado.
Tente como abaixo e vamos ver se dá certo:
.Item(cdoSendUsingMethod) = 2 [ô] cdoSendUsingPort
.Item(cdoSMTPServer) = [Ô]smtps.uol.com.br[Ô] ‘informe o servidor smtp aqui
.Item(cdoSMTPConnectionTimeout) = 20 [ô] quick timeout
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = [Ô]cfvernizze[Ô] [ô] informe o usuario de autenticação (Em alguns casos, precisa informar com os dados após o @)
.Item(cdoSendPassword) = [Ô]pwusuario[Ô] [ô]Informe a Senha aqui
.Update
Mais este:
[ô]Essa string poderá ser colocada em uma variável pública com a mensagem que se deseja enviar, vc pode passar as tags de configuração normalmente.
Dim strHTML
strHTML = [Ô]<HTML>[Ô]
strHTML = strHTML & [Ô]<HEAD>[Ô]
strHTML = strHTML & [Ô]<BODY>[Ô]
strHTML = strHTML & [Ô]<b> Esse é um Teste de Envio automático.</b></br>[Ô]
strHTML = strHTML & [Ô]</BODY>[Ô]
strHTML = strHTML & [Ô]</HTML>[Ô]
With Msg
With Msg
Set .Configuration = Cof
.To = [Ô]vernizze.cf@gmail.com[Ô] [ô] Para acrescentar outros, separar por ;
.From = [Ô]evernizze@uol.com.br[Ô] [ô] seu endereço igual do usuário de autenticação.
.Subject = [Ô]Teste de CDOSYS[Ô]
.HTMLBody = strHTML
.AddAttachment [Ô]c:123.txt[Ô]
.Send
End With
Testa aÃ. Eu não tenho como testar agora, mas acho que vai dar certo. Talvez o erro tivesse o smtps e no seu .From, pois acho que estava informado errado.
Amigo Ricart !
Muito obrigado. Após mudar para smtps, fucionou beleza !
Mais uma bez, muito obrigado !
Muito obrigado. Após mudar para smtps, fucionou beleza !
Mais uma bez, muito obrigado !
Tópico encerrado , respostas não são mais permitidas