Jump to content
Nilton Santos

[Resolvido] Problema ao enviar um Email!

Recommended Posts

Nilton Santos

Boas!

Tenho o seguinte codigo que utilizo para enviar um email:

Private Sub EnviarEMail()

'Efetuando a chamada a Mail.MailMessage
Dim message As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage()

'Configurando o remetente
message.To.Add(TxtTo.Text)

'Tratamento p/ que não seja gerado um erro
If String.IsNullOrEmpty(TxtCc.Text) Then
TxtCc.Text = String.Empty
Else
message.CC.Add(TxtCc.Text)
End If

'Chamada a Mail.Attachment
Dim attach As System.Net.Mail.Attachment = New System.Net.Mail.Attachment(TxtAttachment.Text)
message.Attachments.Add(attach)

'Configurando o e-mail de saida
message.From = New System.Net.Mail.MailAddress("email@outlook.com")
message.Subject = "Padrão que deverá ser o assunto"

message.IsBodyHtml = True

Dim head As String
Dim body As String
Dim fechaHeadAndBody As String

'Conforme a minha preferência realizo o tratamento
'do corpo do e-mail como se estivesse criando um
'html no bloco de notas.
'Obs: ele fica limpo, sem espaçamento e outros problemas
'que podemos ter criando em uma IDE.
head = ""
body = "adaptar conforme necessidade"
fechaHeadAndBody = ""

'Configurando o Corpo do e-mail
message.Body = head & body & fechaHeadAndBody

'Configurando o SmtpClient p/ envio
Dim smtp As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient()

'Setamos o smtp host
smtp.Host = "smtp.gmail.com"

'Habilitando o SSL
'alguns servidores obrigam o envio nesse formato seguro
smtp.EnableSsl = True

'Configurando as credenciais do servidor smtp
smtp.Credentials = New System.Net.NetworkCredential("email@gmail.com", "senha")

'Chamamos o objeto que envia o e-mail
smtp.Send(message)

MessageBox.Show("E-mail enviado com sucesso!")

Mas a mensagem não está sendo enviada e recebo o seguinte erro:

___

An unhandled exception of type 'System.Net.Mail.SmtpException' occurred in System.dll

Additional information: O servidor não oferece suporte para conexões seguras.

____

Algo pode me ajudar a resolver isso.

Lembrado que á algum tempo atrás esse codigo fucionava direitinho.

Share this post


Link to post
Share on other sites
Nilton Santos

eu consegui resolver o problema! acho que eu estava colando os dados errados

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.