O SERVIDOR SMTP REQUER UMA CONEXÃO SEGURA

FFABIOG 05/07/2017 23:03:37
#475024
Senhores,

Fiz um form para o envio de e-mails, mas está aparecendo a seguinte mensagem:
[Ô]o servidor smtp requer uma conexão segura ou o cliente não foi autenticado, ....[Ô]

Alguém já teve esse problema?

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.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
KERPLUNK 05/07/2017 23:06:07
#475027
A mensagem de erro diz exatamente o que está errado... Não é código
FFABIOG 05/07/2017 23:11:29
#475029
Citação:

:
A mensagem de erro diz exatamente o que está errado... Não é código



Mas que autenticação segura eu preciso ter?
KURTGU 05/07/2017 23:21:24
#475030
Smtp_Server.EnableSsl = True
FOXMAN 05/07/2017 23:22:30
#475031 Resposta escolhida
Citação:


           [ô]enviar email
            objEnvio.Send(objEmail)



Apenas habilite a propriedade EnableSsl antes do envio.

            objEnvio.EnableSsl = True 
           [ô]enviar email
            objEnvio.Send(objEmail)
FFABIOG 05/07/2017 23:52:02
#475032
Citação:

:

           [ô]enviar email
            objEnvio.Send(objEmail)


Apenas habilite a propriedade EnableSsl antes do envio.


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



Isso mesmo, obrigado.
Tópico encerrado , respostas não são mais permitidas
Voltar