falha ao enviar email

Question

a rotina que fiz para enviar email, esta retornando falha ao enviar

    Sub enviarEmail(ByVal emailRemetente As String, ByVal emailDestinatario As String, ByVal mensagem As String, ByVal arquivoAnexo As String, ByVal assunto As String, ByVal smtpRemetente As String)
        Dim email As New MailMessage
        email.From = New MailAddress(emailRemetente)
        email.To.Add(New MailAddress(emailDestinatario))
        If arquivoAnexo <> Nothing Then
            email.Attachments.Add(New Attachment(arquivoAnexo))
        End If
        email.Subject = assunto
        email.Body = mensagem
        email.IsBodyHtml = True
        email.Priority = MailPriority.Normal
        Dim smtpCliente As New SmtpClient(smtpRemetente)

        Try
            smtpCliente.Send(email)
            MsgBox("Email enviado com sucesso!", MsgBoxStyle.Exclamation, "E-Mail")
        Catch ex As Exception
            lblMsg.text = ex.Message
        End Try
    End Sub


    Protected Sub btnEnviarArquivo_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnEnviarArquivo.Click
        enviarEmail("[e-mail]", "[e-mail]", "teste", "C:\Test.txt", "teste", "587")



    End Sub

---

Bruno Gaiola Domus & Lepton Des. Software

Answer 1

Cara,

 MailMessage mailMessage = new MailMessage();

                mailMessage.From =
                    new MailAddress("[e-mail]", "LogSistemas");

                mailMessage.To.Add(strTo);

                if (!string.IsNullOrEmpty(strCC))
                {
                    AddCCopy(mailMessage, strCC);
                }

                mailMessage.Subject = "Serviço Integração de Ponto RM X DIMEP";
                mailMessage.SubjectEncoding = System.Text.Encoding.UTF8;
                mailMessage.Body = strMensagemHtml;
                mailMessage.BodyEncoding = System.Text.Encoding.UTF8;
                mailMessage.IsBodyHtml = true;
                mailMessage.Priority = MailPriority.Normal;

                SmtpClient smtpClient = new SmtpClient(ServidorSMTP);

                smtpClient.Timeout = 50000;
                smtpClient.DeliveryMethod = SmtpDeliveryMethod.Network;
                smtpClient.Credentials = new System.Net.NetworkCredential(SMTPUsername, SMTPPassword);

                smtpClient.Send(mailMessage);

                mailMessage.Dispose();
                smtpClient.Dispose();

A unica diferença entre nossos códigos é que no meu tenho o usuário e senha do smpt.

---

Atenciosamente, Samuel dos Anjos