Using .NET and Excel 2003 To Validate E-Mails

function SetFormAction7() { newLocation = "http://hardwarecentral.dealtime.com/xKW-" + document.frmGSRequest7.keyword.value + "/NS-1/linkin_id-3011678/GS.html"; document.location.href = newLocation; return; } Compare products, prices, and stores at Hardware Central! PORTABLE DVD PLAYER Samsung DVD L300 Portable DVD Player $516 - $700 Toshiba SDP 1400 $205 - $329 Toshiba SDP 2600 $437 - $733 See All Models

Function ThanksYahoo(ByVal name As String) As Long

Dim ret As String
' The Path to the Yahoo Quotes Service
Dim fullpath As String = "http://profiles.yahoo.com/" + name

'// Create a HttpWebRequest object on the Yahoo url
Dim webreq As HttpWebRequest = WebRequest.Create(fullpath)

'// Get a HttpWebResponse object from the Yahoo url
Dim webresp As HttpWebResponse = webreq.GetResponse

'// Create a StreamReader object and pass the Yahoo Server stream as a
parameter
Dim strm As StreamReader
strm = New StreamReader(webresp.GetResponseStream(), Encoding.ASCII)

'// Read a single line from the stream (from the server)
'// We read only a single line, since the Yahoo server returns all the
'// information needed by us in just one line.

Return strm.ReadToEnd.IndexOf("User not found")
End Function

Dim oform As New frmExcel(ThisWorkbook)
oform.Show()

Dim oSheet As Excel.Worksheet
Dim oEmail As New com.projecthunder.IWAMFW.ValidateEmail
Dim stemp As String
Dim stemp2 As String
oEmail.Timeout = 1000

'Using the local instance of the worksheet.
oSheet = CType(_workbook.Worksheets.Item(1), Excel.Worksheet)

'loop until there is nothing there
For i As Integer = 1 To 900

If oSheet.Range("C" + i.ToString).Text.ToString.Trim = "" Then

stemp = oSheet.Range("A" + i.ToString).Text.ToString
Try
stemp2 = oEmail.ChatMailServer(stemp).ToString
Catch
'in case something dies
oEmail = New com.futuredontics.services.ValidateEmail

End Try

'if something went wrong let's say we couldn't connect
If stemp2 <> "" Then
oSheet.Range("C" + i.ToString).Value = stemp2
Else
oSheet.Range("C" + i.ToString).Value = "3"

End If
stemp2 = ""

End If

'humor me and process windows messages although it seems to do nothing
System.Windows.Forms.Application.DoEvents()

Next

End Sub