在VB.NET中检测有没有新邮件
Imports System.Net
Imports System.Net.Sockets
……
Private Function Connect(ByVal strServer As String, ByVal strUser As String, ByVal strPwd As String) As NetworkStream
Dim Sender As New TcpClient(strServer, 110)
Dim OutBytes As Byte()
Dim input As String
Dim Ns As NetworkStream = Nothing
Try
Ns = Sender.GetStream()
Dim sr As New StreamReader(Ns)
input = "user " & strUser & vbCrLf
outbytes = System.Text.Encoding.ASCII.GetBytes(input)
Ns.Write(OutBytes, 0, OutBytes.Length)
Console.WriteLine(sr.ReadLine())
input = "pass " & strPwd & vbCrLf
OutBytes = System.Text.Encoding.ASCII.GetBytes(input)
Ns.Write(OutBytes, 0, OutBytes.Length)
Console.WriteLine(sr.ReadLine())
Console.WriteLine("==========================================================")
Return Ns
Catch ex As Exception
MsgBox("无法连接到服务器", MsgBoxStyle.Critical)
Return Ns
End Try
End Function
Private Function GetNumberOfNewMessages() As Integer
Dim OutBytes As Byte()
Dim input As String
Dim strTemp As String
GetNumberOfNewMessages = -1
Try
Dim Ns As NetworkStream = Connect("在这输入邮件服务器名称", "用户名", "密码")
您可能感兴趣的文章：
在VB.NET中检测有没有新邮件
qq邮箱客户端发不了邮件怎么办？
如何提高E-mail收发的成功率
阿里云邮箱邮件重复收取邮件怎么回事？如何解决
phpmailer 发送邮件中文乱码问题的解决方法总结
phpmailer发送邮件及实现密码找回功能的代码
Email邮件头结构及原理详解
asp.net上传文件小例子
邮件常见错误代码收集
PHPMailer发送邮件代码实例(ubuntu系统)