Failure sending mail

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • maliksleo
    New Member
    • Feb 2009
    • 115

    Failure sending mail

    hi i am using the following class for email sending but getting this error "Failure sending mail"

    Code:
    Imports System.Net.Mail
    
    Public Class MailHelper
        ''' <summary>
        ''' Sends an mail message
        ''' </summary>
        ''' <param name="from">Sender address</param>
        ''' <param name="recepient">Recepient address</param>
        ''' <param name="bcc">Bcc recepient</param>
        ''' <param name="cc">Cc recepient</param>
        ''' <param name="subject">Subject of mail message</param>
        ''' <param name="body">Body of mail message</param>
        Public Shared Sub SendMailMessage(ByVal from As String, ByVal recepient As String, ByVal bcc As String, ByVal cc As String, _
            ByVal subject As String, ByVal body As String)
            ' Instantiate a new instance of MailMessage
            Dim mMailMessage As New MailMessage()
    
            ' Set the sender address of the mail message
            mMailMessage.From = New MailAddress(from)
            ' Set the recepient address of the mail message
            mMailMessage.To.Add(New MailAddress(recepient))
    
            ' Check if the bcc value is null or an empty string
            If Not bcc Is Nothing And bcc <> String.Empty Then
                ' Set the Bcc address of the mail message
                mMailMessage.Bcc.Add(New MailAddress(bcc))
            End If
    
            ' Check if the cc value is null or an empty value
            If Not cc Is Nothing And cc <> String.Empty Then
                ' Set the CC address of the mail message
                mMailMessage.CC.Add(New MailAddress(cc))
            End If
    
            ' Set the subject of the mail message
            mMailMessage.Subject = subject
            ' Set the body of the mail message
            mMailMessage.Body = body
    
            'mMailMessage.Attachments.Add(New Net.Mail.Attachment(attachment))
            ' Secify the format of the body as HTML
            mMailMessage.IsBodyHtml = True
            ' Set the priority of the mail message to normal
            mMailMessage.Priority = MailPriority.Normal
    
            ' Instantiate a new instance of SmtpClient
            Dim mSmtpClient As New SmtpClient("localhost")
            ' Send the mail message
            mSmtpClient.Send(mMailMessage)
        End Sub
    End Class
    i am using my local server for testing and using local emails IDs for this instead of using gmail or yahoo that server sends email to local email IDs as i tested it through my PHP code but in asp.net case i am getting this error.
    Please sugest me if some thing wrong in this code.
    maliksleo
  • Frinavale
    Recognized Expert Expert
    • Oct 2006
    • 9749

    #2
    I'm not sure what's going on but just try something simple:

    Code:
    Imports System.Net.Mail
    
    Public Class MailHelper
        ''' <summary>
        ''' Sends an mail message
        ''' </summary>
        ''' <param name="from">Sender address</param>
        ''' <param name="recepient">Recepient address</param>
        ''' <param name="bcc">Bcc recepient</param>
        ''' <param name="cc">Cc recepient</param>
        ''' <param name="subject">Subject of mail message</param>
        ''' <param name="body">Body of mail message</param>
        Public Shared Sub SendMailMessage(ByVal from As String, ByVal recepient As String, ByVal bcc As String, ByVal cc As String, _
            ByVal subject As String, ByVal body As String)
            ' Instantiate a new instance of MailMessage
            Dim mMailMessage As New MailMessage()
    
            ' Set the sender address of the mail message
            mMailMessage.From = New MailAddress(from)
            ' Set the recepient address of the mail message
            mMailMessage.To.Add(New MailAddress(recepient))
    
            '' Check if the bcc value is null or an empty string
            'If Not bcc Is Nothing And bcc <> String.Empty Then
            '    ' Set the Bcc address of the mail message
            '    mMailMessage.Bcc.Add(New MailAddress(bcc))
            'End If
    
            ' Check if the cc value is null or an empty value
            'If Not cc Is Nothing And cc <> String.Empty Then
            '    ' Set the CC address of the mail message
            '    mMailMessage.CC.Add(New MailAddress(cc))
            'End If
    
            ' Set the subject of the mail message
            mMailMessage.Subject = subject
            ' Set the body of the mail message
            mMailMessage.Body = body
    
            'mMailMessage.Attachments.Add(New Net.Mail.Attachment(attachment))
            ' Secify the format of the body as HTML
            'mMailMessage.IsBodyHtml = True
            ' Set the priority of the mail message to normal
            'mMailMessage.Priority = MailPriority.Normal
    
            ' Instantiate a new instance of SmtpClient
            Dim mSmtpClient As New SmtpClient("localhost")
            ' Send the mail message
            mSmtpClient.Send(mMailMessage)
        End Sub
    End Class

    If this works, start uncommenting the stuff that doesn't work to see what's causing the problem.

    Comment

    Working...