VS.NET 2010 (and above) Users Click Here   

HOMECONTACT PRODUCTS DOWNLOADS PURCHASE TESTIMONIALS FORUMS COMPANY CONTACT
Home
Products
Downloads
Purchase
Licensing
Licensing FAQ
Software Updates
Support Forums
Testimonials
Feature Requests
Guarantee
About Us
Contact Us
Hosting Companies
Privacy Policy
   
Shopping Cart


aspNetMX forum



[ Reply to Post ] [ Back To Forum ]
From: "Molly" <mfagan@...>
Date: 3/28/2013 10:12:10 AM
Subject: RE: Loading Emails into MailboxChecker
I'm looking at the MailChecker class and I'm not really seeing anything different than what I had been doing, other than the logging of bad domains, etc.

Here's my initial code (I read e-mails from a text file into a list view):

  Public Sub CheckEmailList()
        Dim key As String = "QQGP9-T94C4-LHANF-HYHQS-TMNB1-AT6HZ-2ULTA-KV21C-SG9RC-RU7XS-XK6JY-6JT5A-6FYX"

        MXValidate.LoadLicenseKey(key)

        Dim objMail As New MXValidate

        Dim iStatus As Integer
        Dim sw As New StreamWriter(My.Settings.EmailLogPath & "BadEmails" & Format(Now, "yyyyMMddHHmmss") & ".txt")
        Dim iCount As Integer
        Dim i As Integer
        Dim timedOut As Boolean = False

        iCount = lstEmailAddresses.Items.Count
        i = 0

        Do While i < iCount
            lstEmailAddresses.SetSelected(i, True)

            objMail = New MXValidate

            objMail.LogInMemory = True
            objMail.LogPath = "mailboxmxLatest.log"
            objMail.CheckLiteralDomain = True
            objMail.CheckGreylisting = True

            Dim level As MXValidateLevel = objMail.Validate(lstEmailAddresses.Items.Item(i), MXValidateLevel.Mailbox, 3000, timedOut)

            If timedOut Then
                sw.WriteLine(lstEmailAddresses.Items.Item(i))
                lstEmailAddresses.Items.RemoveAt(i)
                iCount = iCount - 1
            Else
                If level = MXValidateLevel.Mailbox Then
                    i = i + 1
                ElseIf InStr(objMail.SMTPSession.ToString, "no rDNS") Then
                    i = i + 1
                Else
                    sw.WriteLine(lstEmailAddresses.Items.Item(i))
                    lstEmailAddresses.Items.RemoveAt(i)
                    iCount = iCount - 1
                End If
            End If

            Application.DoEvents()
        Loop

        sw.Close()

    End Sub

 

 

 



Thread View

Subject By Date
Loading Emails into MailboxChecker Richard Golko 2/2/2013
   RE: Loading Emails into MailboxChecker dave wanta 2/5/2013
     RE: Loading Emails into MailboxChecker Richard Golko 2/5/2013
       RE: Loading Emails into MailboxChecker dave wanta 2/5/2013
   RE: Loading Emails into MailboxChecker dave wanta 2/5/2013
   RE: Loading Emails into MailboxChecker dave wanta 2/6/2013
     RE: Loading Emails into MailboxChecker Molly 3/28/2013
     RE: Loading Emails into MailboxChecker [ you are here ] Molly 3/28/2013
       RE: Loading Emails into MailboxChecker dave wanta 4/1/2013

 

 

Testimonial

It's hard to get across via an e-mail how thankful and grateful I am for your unending efforts. THANK YOU SO MUCH! "

Andrew Lau | Datahouse

Read more testimonials
ListNanny aspNetDNS aspNetEmail aspNetPOP3 aspNetMX IPMuncher aspNetMIME aspNetPING aspNetTraceRoute aspNetIMAP aspNetMHT