此主题相关图片如下:1664113006514.jpg
各位老师
因为公司有个项目要用到定时收取固定邮箱的邮件,我采用了这个例子里的方法,由于本人英文和vb.net 的水平有限,已经研究了一个星期了,都还是有几个地方弄不出来,希望各位老师能帮帮忙,主要有两个方面需要帮忙:
1。我的邮箱是QQ企业邮箱,收取的内容和其它信息都没有问题,但是不知道为什么发送人 那里总是乱码,试了很多方法都变不成正常的内容,内容请看附件。
代码如下:
Dim str As String = ""
For Each email As object In emails
If email.Rfc822 IsNot Nothing
email.Rfc822.Stream.Position = 0
Dim mime_message = LumiSoft.Net.Mail.Mail_Message.ParseFromStream(email.Rfc822.Stream)
email.Rfc822.Stream.Close()
Dim UID As Long = email.UID.UID '邮件的唯一ID值
str &= "UID:" & UID & vbcrlf
str &= "发送人:" & mime_message.From(0).DisplayName & vbcrlf
'Output.Show(mime_message.From(0).DisplayName)
str &= "发送地址:" & mime_message.From(0).Address & vbcrlf
str &= "主题:" & mime_message.Subject & vbcrlf
'str &= "日期:" & mime_message.Date & vbcrlf
Dim fjs = mime_message.GetAttachments(True, True)
str &= "附件数:" & fjs.length & vbcrlf
'str &= vbcrlf & vbcrlf & mime_message.BodyHtmlText & vbcrlf & vbcrlf
End If
Next
e.Form.Controls("TextBox1").Text = str
[此贴子已经被作者于2022/9/25 21:47:59编辑过]