'检查除txtBody之外所有文本框的内容是否为空
For Each c In Controls
If TypeOf c Is TextBox And c.Name <> "txtBody" Then
If Len(c.Text) = 0 Then
MsgBox c.Name & " can't be empty", vbCritical
Exit Sub
End If
End If
Next
'改变当前进程状态的值
m_State = POP3_Connect
'关闭socket以防它已被另一个进程打开
Winsock1.Close
'重置 local port的值,Windows Socket会自动寻找一个新值
'这样做是为了防止出现 "地址正在被使用"的错误,
'这种情况通常出现在Winsock控件已被前一个进程所使用
Winsock1.LocalPort = 0
'POP3服务器通常用端口110来等待连接请求
'因此我们要让Winsock控件用这个端口连上服务器。
Winsock1.Connect txtHost, 110