如何以编程方式阅读任何邮件 [英] How to read any mail programmatically
本文介绍了如何以编程方式阅读任何邮件的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
大家好,
我以编程方式成功完成发送邮件的任何方式,但是我想阅读任何邮件方式(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.net中使用免费的smtp服务器发送电子邮件的问题 [ ^ ]
--NDK
check this question
problems in sending email using free smtp server in asp.net[^]
--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("https://mail.google.com/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("https://mail.google.com/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
这篇关于如何以编程方式阅读任何邮件的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文