none
Enviando e-mail RRS feed

  • Pergunta

  • Olá pessoal,

    Estou utilizando o código abaixo para enviar e-mail. Quando envio utilizando os dados do meu gmail dá tudo certo, mas ao usar os dado da empresa em que trabalho ocorre o erro Falha no envio do e-mail. A empresa utiliza criptografia STARTTLS.


    Private Sub EnviarEmail(ByVal pCPF As String, ByVal pEmail As String, ByVal pNome As String)
            
            Dim vlMensagem As String
            vlMensagem = Editor1.Content
    
            Dim remetenteEmail As String = "vestibular@centec.org.br"
            'O e-mail do remetente
            Dim mail As New MailMessage()
    
            mail.[To].Add(pEmail)
            mail.From = New MailAddress(remetenteEmail, pNome, System.Text.Encoding.UTF8)
            mail.Subject = "Assunto: " & TxtTitulo.Text
            mail.SubjectEncoding = System.Text.Encoding.UTF8
    
            mail.Body = vlMensagem 'Editor1.Content
            mail.BodyEncoding = System.Text.Encoding.UTF8
            mail.IsBodyHtml = True
            mail.Priority = MailPriority.High
            'Prioridade do E-Mail
    
            Dim client As New SmtpClient()
            'Adicionando as credenciais do seu e-mail e senha:
            client.Credentials = New System.Net.NetworkCredential("vestibular@centec.org.br", "minha_senha")
    
            client.Port = 587
            ' A porta utilizada pelo Gmail para envio é 587
            client.Host = "Host_da_Empresa"
            'client.Host = "smtp.gmail.com"
            'Definindo o provedor que irá disparar o e-mail
            client.EnableSsl = True
            'Gmail trabalha com Server Secured Layer
    
            Try
                client.Send(mail)
                LbHistorico.Items.Add(pCPF & " enviado com sucesso!!!")
    
            Catch ex As Exception
                LbHistorico.Items.Add("ERRO NO ENVIO DO E-MAIL DE " & pCPF & " : " & ex.Message)
    
            End Try
    
        End Sub


    O que pode estar dando de errado?

    Grato,

    Ilano.

    terça-feira, 23 de julho de 2013 19:04

Todas as Respostas