O SERVIDOR NÃO OFERECE SUPORTE P CONEXÕES SEGURAS

Citação:

:
Fiz o comando que faz o envio de e-mail pelo Hotmail funcionou perfeitamente, (com ajuda de vocês).

Agora com eu faço para enviar o e-mail da empresa onde eu trabalho?
Existe mais alguma informação além do e-mail, SMTP, porta e senha?
Porque quando eu envio com as credencias do e-mail da minha empresa, gera a mensagem abaixo:

“O Servidor não oferece suporte para conexões seguras”

Desde já agradeço como sempre pela ajuda.


Abaixo o código: =======================================

Imports System.Net
Imports System.Net.Mail

Public Class frm_email

Private Function EnviarEmail(ByVal strDestino As String, ByVal strNome As String) As Boolean
Dim objEnvio As SmtpClient = Nothing
Dim objEmail As MailMessage = Nothing

Dim blnRetorno As Boolean = False

Try
objEnvio = New SmtpClient(txt_smtp.Text, txt_porta.Text)
objEmail = New MailMessage

[ô]Destino
objEmail.To.Add(New MailAddress(strDestino, strNome))

[ô]remetente
objEmail.From = New MailAddress(txt_mail.Text, txt_display.Text)

[ô]Assunto
objEmail.Subject = txt_assunto.Text

[ô]prioridade
objEmail.Priority = MailPriority.High

[ô][ô]confimação de leitura
[ô]objEmail.Headers.Add([Ô]confimação de leitura[Ô], txt_mail.Text)

[ô]mensagem de texto
Dim menssagem As AlternateView = AlternateView.CreateAlternateViewFromString(txt_msg.Text, Nothing, Mime.MediaTypeNames.Text.Plain)
objEmail.AlternateViews.Add(menssagem)

[ô]credenciais
Dim credencial As New NetworkCredential(txt_mail.Text, txt_senha.Text)
objEnvio.Credentials = credencial

[ô]enviar email
objEnvio.EnableSsl = True
objEnvio.Send(objEmail)

[ô]retorna
blnRetorno = True

Catch ex As Exception

MessageBox.Show(ex.Message)
Finally
objEmail = Nothing
objEnvio = Nothing

End Try

Return blnRetorno

End Function

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If EnviarEmail(txt_mail.Text, [Ô]Fabio[Ô]) = True Then
MessageBox.Show([Ô]Email enviado com sucesso[Ô], [Ô]aviso[Ô], MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub

End Class

Citação:

:
vc mesmo já fez essa pergunta e já finalizou com uma solução, não entendi pq abriu esse tópico, a resposta é exatamente a mesma de la

Citação:

:
:
vc mesmo já fez essa pergunta e já finalizou com uma solução, não entendi pq abriu esse tópico, a resposta é exatamente a mesma de la

Não jovem, são coisas diferentes.
No outro tópico você me ajudou a corrigir o erro, onde eu não estava conseguindo enviar o e-mail do provedor do Hotmail.
Com a sua dica, consegui.

Porém ao chegar na empresa onde eu trabalho, fui fazer o teste com as credenciais da minha empresa, smtp, porta, email e senha e não deu certo.
Aparece a mensagem: “O Servidor não oferece suporte para conexões seguras”, diferente da mensagem do tópico anterior.