如何以编程方式阅读任何邮件

本文介绍了如何以编程方式阅读任何邮件的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

大家好， 我以编程方式成功完成发送邮件的任何方式，但是我想阅读任何邮件方式(gmail，yahoo，live ...等) 如何以编程方式阅读任何邮件 让我知道 谢谢，谢谢.

Hi all, any way i have successfully complete sending mails programmatically,but i want to read any mails means (either gmail,yahoo,live...etc) How to read any mail programmatically let me know Thanks and advance.

推荐答案

您必须使用邮件服务器的POP 请参阅此链接 [ ^ ] 谢谢 you have to use the POP of the mail server see this link[^] thanks

检查该问题 在asp中使用免费的smtp服务器发送电子邮件的问题 [ ^ ] --NDK check this question problems in sending email using free smtp server in asp[^] --NDK

像这样阅读gmail， 私人Sub OK_Click(ByVal发送者为System.Object，ByVal e为System.EventArgs)处理OK.Click 昏暗的objClient作为新的System.Net.WebClient 昏暗的节点列表作为XmlNodeList 将Dim节点设置为XmlNode 暗淡响应作为字符串 昏暗的xmlDoc作为新的XmlDocument 试试 objClient.Credentials =新的System.Net.NetworkCredential(UsernameTextBox.Text.Trim，PasswordTextBox.Text.Trim) 响应= Encoding.UTF8.GetString(objClient.DownloadData("mail.google/mail/feed/atom")) response = response.Replace("，< feed>") xmlDoc.LoadXml(响应) 节点= xmlDoc.SelectSingleNode("/feed/fullcount") mailCount = node.InnerText''获取未读电子邮件的数量 如果mailCount> 0然后 ReDim emailFrom(mailCount-1) ReDim emailMessages(mailCount-1) nodelist = xmlDoc.SelectNodes("/feed/entry") 节点= xmlDoc.SelectSingleNode("title") 对于节点列表中的每个节点 emailMessages(tempCounter)= node.ChildNodes.Item(0).InnerText emailFrom(tempCounter)= node.ChildNodes.Item(6).ChildNodes(0).InnerText tempCounter + = 1 下一个 tempCounter = 0 如果结束 Me.Hide() Form1.Show() 异常捕获 MsgBox(ex.Message) 结束尝试 结束子 //另一种形式 reading gmail like this, Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click Dim objClient As New System.Net.WebClient Dim nodelist As XmlNodeList Dim node As XmlNode Dim response As String Dim xmlDoc As New XmlDocument Try objClient.Credentials = New System.Net.NetworkCredential(UsernameTextBox.Text.Trim, PasswordTextBox.Text.Trim) response = Encoding.UTF8.GetString(objClient.DownloadData("mail.google/mail/feed/atom")) response = response.Replace("", "<feed>") xmlDoc.LoadXml(response) node = xmlDoc.SelectSingleNode("/feed/fullcount") mailCount = node.InnerText ''Get the number of unread emails If mailCount > 0 Then ReDim emailFrom(mailCount - 1) ReDim emailMessages(mailCount - 1) nodelist = xmlDoc.SelectNodes("/feed/entry") node = xmlDoc.SelectSingleNode("title") For Each node In nodelist emailMessages(tempCounter) = node.ChildNodes.Item(0).InnerText emailFrom(tempCounter) = node.ChildNodes.Item(6).ChildNodes(0).InnerText tempCounter += 1 Next tempCounter = 0 End If Me.Hide() Form1.Show() Catch ex As Exception MsgBox(ex.Message) End Try End Sub //another form Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = True Me.Hide() Me.ShowInTaskbar = False Left = (SystemInformation.WorkingArea.Size.Width - Size.Width) Top = (SystemInformation.WorkingArea.Size.Height - Size.Height) End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Me.Show() If tempCounter >= mailCount Then Timer1.Enabled = False Me.Hide() Else lblFrom.Text = "From : " & emailFrom(tempCounter) lblMessage.Text = "Subject : " & emailMessages(tempCounter) tempCounter += 1 End If End Sub

//glabalvariable.vb

//glabalvariable.vb

Public emailFrom(1), emailMessages(1) As String Public tempCounter As Int16 = 0 Public mailCount As Int16 = 0