what's the problem??
Remote_Addr = "hotmail.co m"
sFrom = "<makefrien d8@" & Remote_Addr + ">"
Dim oConnection As New TcpClient()
Try
oConnection.Sen dTimeout = 3000
oConnection.Con nect(mserver, 25) ' msserver is right for
example mx4.HOTMAIL.COM
oStream = oConnection.Get Stream()
sResponse = GetData(oStream )
sResponse = SendData(oStrea m, "HELO " & Remote_Addr & vbCrLf)
sResponse = SendData(oStrea m, "MAIL FROM: " & sFrom & vbCrLf)
If ValidResponse(s Response) Then
sResponse = SendData(oStrea m, "RCPT TO: " & sTo & vbCrLf)
If ValidResponse(s Response) Then
Return 1 'E-mail address is vaild
Else
Return 2 'wrong address
End If
End If
SendData(oStrea m, "QUIT" & vbCrLf)
oConnection.Clo se()
oStream = Nothing
Catch
Return 3 ' why go here?? no matter the address is right or
wrong.
Private Function GetData(ByRef oStream As NetworkStream) As String
Dim bResponse(1024) As Byte
Dim sResponse As String
Dim lenStream As Integer = oStream.Read(bR esponse, 0, 1024)
If lenStream 0 Then
sResponse = Encoding.ASCII. GetString(bResp onse, 0, 1024)
End If
Return sResponse
End Function
Private Function SendData(ByRef oStream As NetworkStream, ByVal sToSend
As String) As String
Dim sResponse As String
Dim bArray() As Byte = Encoding.ASCII. GetBytes(sToSen d.ToCharArray)
oStream.Write(b Array, 0, bArray.Length() )
sResponse = GetData(oStream )
Return sResponse
End Function
Private Function ValidResponse(B yVal sResult As String) As Boolean
Dim bResult As Boolean
Dim iFirst As Integer
If sResult.Length 1 Then
iFirst = CType(sResult.S ubstring(0, 1), Integer)
If iFirst < 3 Then bResult = True
End If
Return bResult
End Function
