ChillAxen.com

''' <summary>
''' This will get all the bounce requests for a specific account
''' </summary>
''' <param name="acc"></param>
''' <param name="minimum_level">The min level we will look for when deciding if it's a bounced email</param>
''' <param name="err">if there is an error, it will be held here</param>
''' <returns></returns>
''' <remarks></remarks>
Private Function Process_Account(acc As Account, ByVal minimum_level As Integer, ByRef err As String) As Boolean
 
  'Use a try so that we can catch errors
  Try
 
    'Holds how many people bounced
    Dim localBounceCount As Integer = 0
 
    'Connect to the server writing how many emails we have left to process
    Dim pop As New Pop3Client
    pop.Connect(acc.server, acc.port, acc.username, acc.password)
    Dim mailCount As Integer = pop.MessageCount
    Console.WriteLine("-- We have " & FormatNumber(mailCount, 0) & " emails to process")
 
    'Loop each mail
    For i As Integer = 1 To mailCount
 
      'Get the message and bounce info for this message (if msg is nothing for any reason, continue)
      Dim msg As Message = pop.RetrieveMessageObject(i)
 
      'If bounced is nothing, contine
      Dim bounced As BounceResult = msg.GetBounceStatus("bouncedSignatures.xml")
      Console.WriteLine("-- Checking email " & FormatNumber(i, 0) & " of " & FormatNumber(mailCount, 0) & " (" & FormatNumber((i / mailCount) * 100, 3) & "%)")
 
      'If bounce level is >= to our min leve, add it to our list and increase our counters
      If bounced.Level >= minimum_level And bounced.Email <> "" Then
        writer.WriteLine(bounced.Email & vbTab & bounced.Level)
        localBounceCount += 1
        bounceCount += 1
      End If
 
    Next
 
    'Write how many bounced emails we found and return true
    Console.WriteLine("-- We found " & FormatNumber(localBounceCount, 0) & " bounced emails")
    Return True
 
  'If we have a pop3 exception return it
  Catch pexp As Pop3Exception
    err = pexp.Message
    Return False
 
  'Return the generate exception
    Catch ex As Exception
    err = ex.Message
    Return False
 
  End Try
 
  'We completed ok so return true
  Return True
 
End Function