none
System.Net.Mail não envia email quando eu alimento a variavel RRS feed

  • Pergunta

  • Estou usando asp.net vb

    A função em vb.net

    Quando eu alimento os campos da função manualmente funciona, se eu preencher usando uma variavel ou capturar direto do campo de texto ele não erro, mas não envia, estou usando a kinghost, ja não sei mais o que fazer

    'inicio modulo

    '--------------------------------------------------------------------------------

    Imports System.Net
    Imports System.Net.Mail
    Imports System.Net.Mime
    Imports System.Text
    Imports System.IO

    Module emails

        Public Function Envia_Email(ByRef RemetenteEmail As String, _
                                          ByRef NomeRemetenteEmail As String, _
                                          ByRef AssuntoEmail As String, _
                                          ByRef MensagemEmail As String, _
                                          Optional ByRef ArquivoStr As String = "", _
                                          Optional ByRef CopiaEmail As String = "") As String

            'cria objeto para receber os dados do email
            Dim oEmail As New MailMessage


            Try
                'remetente do email
                oEmail.From = New MailAddress(RemetenteEmail, NomeRemetenteEmail, System.Text.Encoding.UTF8)
                
                'destinatario do email
                oEmail.To.Add("nome <destinatario@dominio>")

                'destinatario de copia do email
                oEmail.To.Add("nome<email@dominio>")

                'destinatario de copia oculta
                oEmail.Bcc.Add("nome<email@dominio>")

                'prioridade de envio
                oEmail.Priority = MailPriority.Normal

                'define o formato do email
                oEmail.IsBodyHtml = True
     
                'define o assunto do email
                oEmail.Subject = AssuntoEmail

                'define a mensagem principal do email
                Dim mensagemStr As String
                'define a mensagem principal do email

                mensagemStr = MensagemEmail

                oEmail.IsBodyHtml = True

                oEmail.Body = mensagemStr

                'Anexo
                If ArquivoStr <> "" Then
                    oEmail.Attachments.Add(New Attachment(ArquivoStr))
                End If


                'Para evitar problemas com caracteres especiais configuramos o Charset
                oEmail.SubjectEncoding = Text.Encoding.GetEncoding("ISO-8859-1")
                oEmail.BodyEncoding = Text.Encoding.GetEncoding("ISO-8859-1")

                'cria o objeto SMTP

                Dim oSmtp As New SmtpClient
                oSmtp.DeliveryMethod = SmtpDeliveryMethod.Network
                'Requer autenticação
                oSmtp.Credentials = New Net.NetworkCredential("email@dominio"), "senhaEmail")
                oSmtp.Port = 587
                oSmtp.Host = "smtp.uni5.net" ' smtp king host
                oSmtp.EnableSsl = False



                'envia o email
                oSmtp.Send(oEmail)

                Return "Email enviado com sucesso. "

            Catch ex As Exception
                Return "Ocorreu um erro ao enviar o email : Erro Nº " & Err.Number & " - " & Err.Description & Chr(13) & " - " & ex.Message

            Finally

                'limpa o objeto da memória 
                oEmail.Dispose()
                oEmail = Nothing

            End Try

            oEmail.Dispose()
            oEmail = Nothing

        End Function

    'fim modulo

    '--------------------------------------------------------------------------------

    segunda-feira, 15 de março de 2021 16:38