接收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
標簽:
Pop3MEssage
Function
Retrieve
response
上傳時間:
2013-12-28
上傳用戶:fnhhs