none
falha ao enviar email RRS feed

  • Pergunta

  • 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("bruno.gaiola@hotmail.com", "bruno.gaiola@hotmail.com", "teste", "C:\Test.txt", "teste", "587")
    
    
    
        End Sub
    


    Bruno Gaiola Domus & Lepton Des. Software

    sexta-feira, 9 de agosto de 2013 20:59

Todas as Respostas

  • Cara,

     MailMessage mailMessage = new MailMessage();
    
                    mailMessage.From =
                        new MailAddress("Teste@Teste.edu.br", "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

    sexta-feira, 9 de agosto de 2013 21:56