[Resolvido]Configurações do smtp-mail.outlook.com - Não aceitando portas 25, 465 ou 587

Prezados, bom dia.

Uso o envio de E-mail (CDO) que temos aqui no fórum.
Funciona perfeitamente, com: Yahoo, Gmail, mas com o hotmail hoje outlook está tendo problema.
Não estou conseguindo enviar nada de nada. Já entrei no outlook e não vi nada que pudesse me ajudar.
Alguém já passou por isso ?

Ninguém tem ideia a respeito disso ?

UP !!!!!

Faltou colocar o código completo para ver se ajuda. Mas veja se está usando as configurações abaixo:

Endereço do servidor: smtp-mail.outlook.com

Porta: 25 (ou 587 se a 25 estiver bloqueada)

Autenticação: Sim

Conexão criptografada: TLS

Nome de usuário: seu endereço de email

Mas talvez não funcione porque, ao que parece, contas Outlook requerem criptografia TLS e o CDO trabalha com SSL. Talvez terá que mudar o email. Acredito que os .hotmail ainda funcionem.

Críquio, boa tarde a ti....

Grato por me dar essa força, eis o código que estou a utilizar...

Sub EnviarEmail()

On Error GoTo erromail

Dim Mens As Object
Dim Config As Object
Set Mens = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")

With Config

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = DLookup("smtp", "tbempresatitular")  
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = DLookup("porta", "tbempresatitular")
.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") = DLookup("email", "tbempresatitular")  
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = DLookup("senha", "tbempresatitular")
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update
End With

Set Mens = New CDO.Message
With Mens
Set .Configuration = Config
.From = Me.txtNome

If Not IsNull(Me.txtPara) Then
.Sender = Me.txtPara
End If

If Not IsNull(Me.txtCC) Then
.CC = Me.txtCC
End If


Senão me falha a memória, quem desenvolveu o mesmo foi você....estou certo ?

Mas aí não aparecem os dados, aparece apenas a origem de onde eles virão. Tem que verificar se esses dados estão no formato que eu passei no post anterior.

Criquio, os dados que me postou...porta, e-mail..etc..etc..., tem origem numa tabela que eu preencho personalizando o sistema.
Eles são preenchidos conforme você me perguntou:

Endereço do servidor: smtp-mail.outlook.com--> é digitado
Porta: 25 (ou 587 se a 25 estiver bloqueada) --> é digitado
Autenticação: Sim --> o número 1 aqui, não é o sim (.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1)
Conexão criptografada: TLS--> ( não é deixar False essa linha : .Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True)
Nome de usuário: seu endereço de email --> é digitado

Em azul, ficou a minha duvida.....

Em tempo, os .hotmail não estão a funfar não....

Já testou passando os dados diretamente no código para ver se funciona?

Bom dia Criquio....

Sim, eu já fiz isso diretamente no código, e não envia. Fui até o hotmail e nada de itens enviados.

Simplesmente nada acontece, ao contrário, quando faço o mesmo procedimento usando o Gmail, diretamente no código ou via Dlookup, o mesmo funfa.

Será que tem alguma coisa, no site do hotmail que bloqueia o envio ? Já fui lá e olhei mas, nada encontrei.

Talvez terá que usar o GMail até ver se consegue fazer o outro funcionar.

Criquio, bom dia !

Complicado será dizer ao cliente mudar de endereço de e-mail, pois esse mesmo endereço ( *.hotmail.com ) está em uso a pelo menos 3 anos.

Questiono você sobre essa linha abaixo:
Conexão criptografada: Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True)

Se eu mudar( ainda não o fiz, apenas gostaria de tua opinião...) de smtpusessl para smtpusetls ?

No aguardo.

Já tentou usar o servidor "smtp.live.com" com a porta 25 ou mesmo a 587? Quanto ao TLS, no CDO não é usado. Apenas o SSL mesmo. Se não funcionar talvez seja interessante tentar um contato com a microsoft para ver o que dizem.

Olá, Criquio....estava enrolado terminado a parte de pendências do caixa; Mas nada meu amigo..nada mesmo.
Nem na technet ou MSDN tive a resposta ainda.
A saga continua !

Ola Silvio, veja se ajuda
http://windows.microsoft.com/pt-pt/windows/outlook/send-receive-from-app

Veja no link imap smtp

Olá, Silvio, estive a fazer uns testes efetivamente via CDO não está a funcionar.
Para resolver ao cliente, ele não tem o office (outlook) ou outro cliente email, poderia ser uma alternativa.
Abraço

Salve.....AhTeixeira..

Pois é, estive em contato com os "entendidos" da MS.   Pura decepção !
Mas, consegui contornar a situação com o cliente aqui, explicando para ele a impossibilidade de enviar e-mails pelo Hotmail ( outlook web).
Então, a solução para o caso foi ele abrir uma conta de e-mail no Gmail e detalhei algumas facilidades do mesmo para a empresa dele.
Bom, creio que posso dar por "resolvido" esse tópico, deixando aqui, minha decepção com certo e-mails da MS.
Abraços.

Olá, obrigado pelo retorno.
Ainda bem que resolveu com o cliente.

No entanto, estamos cá na luta.
Apesar do tópico estar como resolvido, eu consegui enviar via CDO, pode testar com estas configurações:

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-mail.outlook.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"
.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") = "seuEmail@hotmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "palavraPasse"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60


Fico aguardar retorno.
Abraço

Alvaro, boa tarde.

É a mesma que eu estou a usar...

With Config

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = DLookup("smtp", "tbempresatitular")
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = DLookup("porta", "tbempresatitular")
.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") = DLookup("email", "tbempresatitular")
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = DLookup("senha", "tbempresatitular")
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update
End With

A única mudança está no fato que eu uso o Dlookup, para buscar na tblempresatitular os dados do meu cliente.
Já tentei, inclusive colocando direto no código como você fez descrito acima.

E então experimentou na porta 25 com o servidor smtp indicado, funcionou?
Comigo sim, no retorno

Boa noite Alvaro.

Sim eu testei sim. A única coisa que eu não chequei ou olhei, foram as configurações do hotmail dentro da Web; Pode ser que tenha algo por lá
que possa ser feito, abaixando as configurações de segurança ou algo assim.

Ola, isso também estive a ver e não tem nada.
Acho que o problema estava no nome de servidor e na porta.
Estou no telemovel.
Se não conseguir enviar, avise que eu mando a base de dados onde testei e funcionou o envio.
Assim, so será necessário colocar o seu email e palavra passe para testar.
Abraço

Bom dia Alvaro.

Se puder mandar.....fico agradecido.

Abraços.

Olá Silvio,
Aqui vai, click no envelope e coloque o seu email e pass.
Abraço

Exemplo mais simples e recente na mensagem n. 31

Olá Silvio, conseguiu através do exemplo postado.
Aproveito para desejar a todos os colegas do fórum Boas Festas.
Abraço

Boa tarde Alvaro,

Negativo meu amigo...negativo mesmo.

Ainda estou acreditando que tem algo nas configurações web do hotmail.

Mas, aproveitando...ensejo a ti e aos teus....um ótimo natal cheio de paz e harmonia !

Abraços.

Obrigado Silvio,

Relativamente ao email, acabei de fazer novo teste do exemplo disponibilizado (fiz até donwload) e com outro email.
Depois de introduzir os dados, será melhor sair e voltar a entrar (acho que os dados mão estão a gravar bem ao alterar o email)

No aguardo

Alvaro, boa tarde....

Nada mesmo....nem com o teu exemplo vai no hotmail, mas Gmail ou Yahoo, funfa legal.

Olá Silvio, estranho, ficamos por aqui.
No entanto solicito a outros utilizadores do fórum a testar e deixar aqui o testemunho.
Abraço e Boas Festas

Olá Silvio,
Hoje testei de novo e continua a funfar com o meuEmail@outlook.com.

Configurações no outlook:


Nota, apesar da porta indicada, apenas consigo pela porta 25
Abraço

Bom dia Alvaro.

Vou testar por aqui....agradeço por não se esquecer desse tópico.

Olá Silvio,
Acho que o CDO não permite usar STARTTLS.
Por isso é que só funciona na porta 25.
No entanto, vou efetuar mais uns testes.
Abraço

Olá Silvio,
Teste com este novo exemplo, comigo funcionou.
É apenas necessário preencher os 3 campos do formulario e testar.
Abraço

Boa tarde Alvaro.

Agora foi.....showww !!!

Agradeço.

Olá Silvio,
Finalmente ficou resolvido e descobriu-se a razão.
Obrigado pelo retorno.

Amigos com a mesma questão porta 25

Abraço

Bom dia Teixeira

Uso gmail

Pergunto como colocar um aviso se a palavra password estiver errada ?

Obrigado


Sub EnviarEmail()
On Error GoTo erromail
Dim Mens As CDO.Message
Dim Config As CDO.Configuration
Set Config = New CDO.Configuration

With Config
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Me.SMTP
.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") = Me.Email
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Me.Pass
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update
End With

Set Mens = New CDO.Message
With Mens
Set .Configuration = Config
.From = Forms!Menu!Nome 'envia

If Not IsNull(Me.txtDeMail) Then
.Sender = Me.Email 'email de quem envia.
End If
If Not IsNull(Me.txtCOculta) Then
.BCC = Me.txtCOculta
End If
.Subject = Me.txtAssunto 'caixa texto assunto
.TextBody = Me.txtMensagem 'Caixa texto com o texto
.To = Me.txtPara 'caixa texto para quem vai o email"
If Not IsNull(Me.txtAnexo) Then
.AddAttachment (Me.txtAnexo)
End If
If Not IsNull(Me.txtAnexo1) Then
.AddAttachment (Me.txtAnexo1)
End If
If Not IsNull(Me.txtAnexo2) Then
.AddAttachment (Me.txtAnexo2)
End If

DoCmd.openForm "frmProgresso"
.Send ' envia

End With

MsgBox "@Mail Enviado com Sucesso", vbExclamation, "Gestão de @Mails"
DoCmd.Close acForm, "frmProgresso"
DoCmd.Close acForm, "email"
Set Mens = Nothing
Set Config = Nothing

Exit Sub
erromail:

Set Mens = Nothing
Set Config = Nothing

Exit Sub

End Sub

Olá Assis, desconheço.
Teria que ter um código de retorno do erro que as credenciais não estão correctas.
Abraço

Teixeira

Se os dados do mail não estiverem corretos..




E outros alguém sabe

Olá Assis,
Pode partilhar o código que está a mostrar o erro, ou na totalidade.

Quanto às configurações, é só pesquisar no fornecedor do serviço.
Yahoo SMTP server address: smtp.mail.yahoo.com -> port: 465
Zoho Mail - SSL Server Name: smtp.zoho.eu -> Port: 465
AOL SMTP server name: smtp.aol.com -> port: 25 or 465
Portugalmail Servidor de envio SMTP – smtp.portugalmail.pt – porta 25
yandex Outgoing mail server (SMTP) — smtp.yandex.ru -> Port: 465
GMX Mail SMTP server address: smtp.gmx.com -> port: 25 (alternative: 465)

Tem algum em especial que esteja a precisar?
Abraço

O códigode enviar

Os dados do mail vou buscar a uma tabela "DadosProprietario", e se os dados não estiverem certos mostra a Mensagem....

Sub EnviarEmail()
On Error GoTo erromail
Dim Mens As CDO.Message
Dim Config As CDO.Configuration

Set Config = New CDO.Configuration

With Config
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = DLookup("smtp", "DadosProprietario")
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = DLookup("porta", "DadosProprietario")
.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") = DLookup("email", "DadosProprietario")
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = DLookup("pass", "DadosProprietario")
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update
End With

Set Mens = New CDO.Message
With Mens
Set .Configuration = Config
'.From = Forms!Menu!Mail 'envia
.From = Forms!Menu!Nome 'envia

If Not IsNull(Me.txtDeMail) Then
.Sender = Me.Email 'email de quem envia.
End If
If Not IsNull(Me.txtCOculta) Then
.BCC = Me.txtCOculta
End If
.Subject = Me.txtAssunto 'caixa texto assunto
.TextBody = Me.txtMensagem 'Caixa texto com o texto
.To = Me.txtPara 'caixa texto para quem vai o email"
If Not IsNull(Me.txtAnexo) Then
.AddAttachment (Me.txtAnexo)
End If
If Not IsNull(Me.txtAnexo1) Then
.AddAttachment (Me.txtAnexo1)
End If
If Not IsNull(Me.txtAnexo2) Then
.AddAttachment (Me.txtAnexo2)
End If

DoCmd.openForm "frmProgresso"
.Send ' envia

End With


MsgBox "@Mail Enviado com Sucesso", vbExclamation, "Gestão de @Mails"
DoCmd.Close acForm, "frmProgresso"
DoCmd.Close acForm, "email"
Set Mens = Nothing
Set Config = Nothing

Exit Sub
erromail:


MsgBox "@Mail Não Enviado!" & vbCrLf & "Dados da Conta Mal Preenchidos.", vbCritical, "Gestão de @Mails"


DoCmd.Close acForm, "frmProgresso"
'MsgBox err.Number & " " & err.Description
Set Mens = Nothing
Set Config = Nothing

Exit Sub

End Sub

Olá Assis, obrigado pelo retorno.

Sim, podemos ter esse tipo de tratamento de erros.
Não refleti.
No entanto da forma que tem se não tiver net ou o smtp estiver mal ou outro erro vai apresentar sempre a mesma mensagem.

Abraço a todos

Olá bom dia.
Fiz um processo para envio de e-mail usando o CDO porém diferente do que vi aqui eu uso o servidor SMTP.office365.com
Em contato com a microsoft disseram que não é necessário passar a porta.
Aqui em minha base funciona normalmente, e se especifico a porta 25 também funciona. Porém no cliente não funciona de forma alguma
sempre da erro de conexão com o servidor.
Aqui no Brasil a porta 25 foi bloqueada por vários provedores de internet, e se tento passar outra porta não funciona nem aqui na minha base.