[Resolvido]Tentativa de Enviar Email: erro de transporte foi 0x80040217

Bom dia a todos, estou tentando enviar um email pelo access, usando o exemplo que esta disponível na comunidade itlab.
Ao tentar enviar o email aparece a seguinte mensagem:
"-2147220975 Não foi possível enviar a mensagem para o servidor SMTP. O código do erro de transporte foi 0x80040217.A resposta do servidor foi NOT AVILAbLE."

O código de envio é:
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") = "smtp.yexx.com.br" 'aqui uso o provedor da empresa que trabalho
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' porta usada pelo bol
.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/sendusername") = "email" 'aqui usei meu email
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha" 'coloque a senha do seu email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update
End With

Set Mens = New CDO.Message
With Mens
Set .Configuration = Config
.From = "fulano@bol.com.br" 'quem envia
If Not IsNull(Me.txtDeMail) Then
.Sender = Me.txtDeMail '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
.Send ' envia
End With
MsgBox "Menssagem enviada com sucesso"

Set Mens = Nothing
Set Config = Nothing
Exit Sub
erromail:
MsgBox Err.Number & " " & Err.Description
Set Mens = Nothing
Set Config = Nothing
Exit Sub

End Sub


Gostaria de uma orientação, o que devo fazer para funcionar?


Obrigado.

Você usa como server o site da sua empresa e usa como porta a mesma do bol. Tem certeza que a porta está correta para o server usado? Talvez seja smtps.yexx.com.br. Ademais, tente usar um email do próprio bol para ver se dá certo. O bol usa smtp seguro, sendo, portanto, smtps.bol.com.br. Pode ser tambem que seja necessário usar conexão ssl segura, incluindo a linha para isso:

...
.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") = "email"
...

O problema pode sim estar por aí, na descrição do Criquio.

Testando com o Gmail, funciona sem problemas.

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

Agora depois de adicionar a linha :

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

O erro mudou para -2147220973 Falha na conexão de transporte com o servidor.

As configurações da conta peguei todas do Outlook:

servidor de saída: smtp.yexx.com.br
servidor de entrada: pop3.yexx.com.br

Configurações:
Meu servidor de saída requer autenticação, está marcada
e a opção de usar mesmas configurações do servidor de entrada.
Porta de saída : 25

No aguardo.

Não fiz o teste com outro email ainda.

Pessoal, eu estava com o email de remetente errado, esta foi a falha, funcionou 100 % .
Obrigado pela ajuda.