ChillAxen.com

''' <summary>
''' This will take a inputted file that contains username, password, pop server, and port seperated by a TAB and get all bounced emails from it,
''' outputting the final list to a text file
''' </summary>
''' <remarks></remarks>
Sub Main()
 
  'first we need to open our list of pop3 accounts, returning an error if we can not
  Dim filename As String = "accounts.txt"
  If Load_POP3(filename) = False Then
    Console.WriteLine("There was an error accessing the """ & filename & """ file. Please make sure it exists and that no other programs are using this file.")
    Exit Sub
  End If
 
  'We need to open a new file for writing to
  Dim savedFile As String = Now.ToString("MM-dd-yyyy HH-mm-ss") & ".txt"
  writer = New IO.StreamWriter(savedFile, False)
 
  'Once accounts are loaded, process each account until there are no more
  While accounts.Count > 0
 
    'Get our next account, and remove it from the accounts list so we do not reprocess it
    Dim current As Account = accounts.ElementAt(0)
    accounts.RemoveAt(0)
 
    'Get the bounced emails for this account
    Console.WriteLine("Processing [" & current.username & "]. " & FormatNumber(accounts.Count, 0) & " pending.")
    Dim err As String = ""
    Dim success As Boolean = Process_Account(current, 1, err)
 
    'If this failed say why
    If success = False Then Console.WriteLine("-- Error: " & err)
 
    'Write a blank line to break us up
    Console.WriteLine()
 
  End While
 
  'Close our writer and say complete
  writer.Close()
  Console.WriteLine("Process completed with " & FormatNumber(bounceCount, 0) & " bounced emails.")
  Console.WriteLine("We have saved your bounced emails to " & savedFile & ". Press enter to close this window.")
  Console.ReadLine()
 
End Sub