接收pop3

Public Function Retrieve(ByVal rhs As Pop3Message) As Pop3Message

Dim message, response As String

Dim msg As New Pop3Message

msg.bytes = rhs.bytes

msg.number = rhs.number

message = \"RETR \" + rhs.number.ToString + vbCrLf

write(message)

response = Respond()

If response.Substring(0, 3) <> \"+OK\" Then

Throw New Pop3Exception(response)

End If

MsgBox(msg)

msg.retrieved = True

While (1 = 1)

response = Respond()

If response = \".\" + vbCrLf Then

Exit While

Else

msg.message += response

End If

End While

Return msg

End Function-receive pop3 Public Function Retrieve (ByVal rh As Pop3Message s) As Pop3Message Dim message, response As String Dim msg As New Pop3Message ms rhs.bytes g.bytes = = rhs.number me msg.number ssage = "RETR" rhs.number.ToString vbCrLf WRI te (message) response = Respond () If response. Substring (0, 3)