CDOSYS HOTMAIL
Olá pessoal, boa tarde!
Seguinte... Desenvolvi uma rotina aqui pra enviar emails usando a DLL CDOSYS. Enviar XML e PDF de NFe e alguns outros arquivos que porventura precisam ser enviados sem muita complicação diretamente pela aplicação.
Consegui enviar com alguns servidores...
Terra OK
smtp.terra.com.br
GMail OK
smtp.gmail.com
Yahoo OK
smtp.mail.yahoo.br
...e alguns outros. Só que quando tento enviar usando contas do Hotmail a coisa num funfa
. Num vai nem a custa de reza braba! E acho que é alguma coisinha besta mais que não to conseguindo enxergar.
Com o Hotmail a configuração deveria ser a seguinte:
Servidor SMTP: [Ô]smtp.live.com[Ô], porta 25 (antiga), agora a 587. Mais num vai de jeito nenhum.
Parte do meu código...
.................................................................................................................................
Dim CDOMensagem As CDO.Message, CDOConfiguração As CDO.Configuration, Conexão
Set CDOMensagem = New CDO.Message
Set CDOConfiguração = New CDO.Configuration
Set Conexão = CDOConfiguração.Fields
With Conexão
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSMTPServer) = smtp.live.com
.Item(cdoSMTPConnectionTimeout) = 20
.Item(cdoSMTPServerPort) = 587
.Item(cdoSMTPUseSSL) = True
.Item(cdoSendUserName) = xxxxxx@hotmail.com
.Item(cdoSendPassword) = xxxxxxSenha
.Update
End With
With CDOMensagem
Set .Configuration = CDOConfiguração
.To = xxDestinatário
.From = xxRemetente
.Subject = xxAssunto
.TextBody = xxTexto
.AddAttachment xxAnexo
.Send [ô]Aqui da um erro [Ô]Run-time error [ô]-2147220973 (80040213)[ô]: Falha na conexão de transporte com o servidor.[Ô]
End With
.................................................................................................................................
No meu Outlook eu consegui receber e enviar utilizando a configuração disponÃvel no site. Mas quando passo pro VB a coisa não vai!
Windows XP SP3 X VB6 SP6
Caso alguém já tenha passado pelo mesmo problema e possa me ajudar, desde já eu agradeço a atenção de voces!
Até+
Seguinte... Desenvolvi uma rotina aqui pra enviar emails usando a DLL CDOSYS. Enviar XML e PDF de NFe e alguns outros arquivos que porventura precisam ser enviados sem muita complicação diretamente pela aplicação.
Consegui enviar com alguns servidores...
Terra OK
smtp.terra.com.br
GMail OK
smtp.gmail.com
Yahoo OK
smtp.mail.yahoo.br
...e alguns outros. Só que quando tento enviar usando contas do Hotmail a coisa num funfa
. Num vai nem a custa de reza braba! E acho que é alguma coisinha besta mais que não to conseguindo enxergar.
Com o Hotmail a configuração deveria ser a seguinte:
Servidor SMTP: [Ô]smtp.live.com[Ô], porta 25 (antiga), agora a 587. Mais num vai de jeito nenhum.
Parte do meu código...
.................................................................................................................................
Dim CDOMensagem As CDO.Message, CDOConfiguração As CDO.Configuration, Conexão
Set CDOMensagem = New CDO.Message
Set CDOConfiguração = New CDO.Configuration
Set Conexão = CDOConfiguração.Fields
With Conexão
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSMTPServer) = smtp.live.com
.Item(cdoSMTPConnectionTimeout) = 20
.Item(cdoSMTPServerPort) = 587
.Item(cdoSMTPUseSSL) = True
.Item(cdoSendUserName) = xxxxxx@hotmail.com
.Item(cdoSendPassword) = xxxxxxSenha
.Update
End With
With CDOMensagem
Set .Configuration = CDOConfiguração
.To = xxDestinatário
.From = xxRemetente
.Subject = xxAssunto
.TextBody = xxTexto
.AddAttachment xxAnexo
.Send [ô]Aqui da um erro [Ô]Run-time error [ô]-2147220973 (80040213)[ô]: Falha na conexão de transporte com o servidor.[Ô]
End With
.................................................................................................................................
No meu Outlook eu consegui receber e enviar utilizando a configuração disponÃvel no site. Mas quando passo pro VB a coisa não vai!
Windows XP SP3 X VB6 SP6
Caso alguém já tenha passado pelo mesmo problema e possa me ajudar, desde já eu agradeço a atenção de voces!
Até+
Você já tentou altera a opção .Item(cdoSMTPUseSSL) = True para False?
Citação::
Você já tentou altera a opção .Item(cdoSMTPUseSSL) = True para False?
Ola NETMANIA,
Já alterei sim, mas não obtive sucesso!
Espero que alguem aii ja tenha conseguido enviar usando o HOTMAIL!
Valeu! t+
Tente verificar a configuração do servidor conforme parametros abaixo:
0
-------------------------------------------------------
CONTA HOTMAIL
-------------------------------------------------------
Servidor para Enviar:
Nome Servidor ................. smtp.live.com
Porto ......................... 587
Nome Utilizador ............... qualquer@hotmail.com
Metodo Autenticacao ........... Normal password
Seguranca da Ligacao .......... STARTTLS
Servidor para Receber:
Nome Servidor ................. pop3.live.com
Porto ......................... 995
Nome Utilizador ............... qualquer@hotmail.com
Metodo Autenticacao ........... Normal Password
Seguranca da Ligacao .......... SSL/TLS
Fonte:http://social.msdn.microsoft.com/Forums/pt-BR/vsvbasicpt/thread/323ef59b-e5d0-41c8-88ee-763373bc9213
0
-------------------------------------------------------
CONTA HOTMAIL
-------------------------------------------------------
Servidor para Enviar:
Nome Servidor ................. smtp.live.com
Porto ......................... 587
Nome Utilizador ............... qualquer@hotmail.com
Metodo Autenticacao ........... Normal password
Seguranca da Ligacao .......... STARTTLS
Servidor para Receber:
Nome Servidor ................. pop3.live.com
Porto ......................... 995
Nome Utilizador ............... qualquer@hotmail.com
Metodo Autenticacao ........... Normal Password
Seguranca da Ligacao .......... SSL/TLS
Fonte:http://social.msdn.microsoft.com/Forums/pt-BR/vsvbasicpt/thread/323ef59b-e5d0-41c8-88ee-763373bc9213
??
STARTTLS
Rapaiz, num dei conta ainda não viu...
Como é aplicado isso (STARTTLS)?!!
Porque aqui eu consegui configurando no Outlook Express. La funcionou beleza! Mais quando tento no VB6 da erro...
E la no Outook, quando eu entro nas configurações da conta, guia [Ô]Servidores[Ô] laaa embaixo, [Ô]Servidor de saÃda de emails[Ô] se eu desmarcar a opção [Ô]Meu servidor requer autenticação[Ô] ele também não envia, da erro... só funciona com essa opção marcada...
Aii o que eu queria saber é: Qual propriedade na CDOSys equivale a essa opção...
t+
STARTTLS
Rapaiz, num dei conta ainda não viu...
Como é aplicado isso (STARTTLS)?!!
Porque aqui eu consegui configurando no Outlook Express. La funcionou beleza! Mais quando tento no VB6 da erro...
E la no Outook, quando eu entro nas configurações da conta, guia [Ô]Servidores[Ô] laaa embaixo, [Ô]Servidor de saÃda de emails[Ô] se eu desmarcar a opção [Ô]Meu servidor requer autenticação[Ô] ele também não envia, da erro... só funciona com essa opção marcada...
Aii o que eu queria saber é: Qual propriedade na CDOSys equivale a essa opção...
t+
boa tarde DARCIOAS;
estou com o mesmo problema que vc postou aki.
conseguiu resolver sobre o CDO com homtail.
aguardo sua ajuda.
estou com o mesmo problema que vc postou aki.
conseguiu resolver sobre o CDO com homtail.
aguardo sua ajuda.
O problema na época era a porta que eu tava utilizando. Hj ta tudo diferente, mas mesmo assim continuo usando a mesma dll pra envio dos emails.
Obrigado
Tópico encerrado , respostas não são mais permitidas