从POP3服务器下载整个邮件后，如上一个教程所示，开发人员可以管理可用的邮件主体。例如，当邮件没有HTML格式的主体时，开发人员可以配置邮件解析器以从纯文本正文中创建HTML格式的主体：
| C#:msg.Parser.PlainToHtmlMode = PlainToHtmlAutoConvert.IfNoHtml; |
|
VB.NET: msg.Parser.PlainToHtmlMode = PlainToHtmlAutoConvert.IfNoHtml |
此外，开发人员可以指定影响邮件解析方式的选项。例如，下面的代码指定了当纯文本正文被自动转换为HTML格式的主体时，包含在邮件纯文本主体中的所有URI都应该被更改为相应的链接：
| C#:msg.Parser.PlainToHtmlOptions = PlainToHtmlConvertOptions.UriToLink; |
|
VB.NET: msg.Parser.PlainToHtmlOptions = PlainToHtmlConvertOptions.UriToLink |
由于邮件解析器已配置，开发人员应调用Apply方法应用更改：
| C#:msg.Parser.Apply(); |
|
VB.NET: msg.Parser.Apply() |
解析的邮件的HTML主体内容可以使用Web浏览器控件轻松显示，如下所示：
| C#:webBrowser1.DocumentText = msg.BodyHtmlText; |
|
VB.NET: webBrowser1.DocumentText = msg.BodyHtmlText |
请注意，WebBrowser控件仅在Visual Studio 2005和更高版本中可用。因此，上述代码将不会在早期版本的Visual Studio.NET中运行。 示例代码：以下示例从指定邮箱中下载最后一条消息，从纯文本正文中生成HTML邮件主体，并显示此消息的HTML主体。在使用MailBee.NET Objects之前，请确保它已解锁。请将对MailBee.NET.dll的引用添加到应用程序中，然后在代码顶部添加以下行以允许在应用程序中使用MailBee.NET Objects：
|
C#:using System; using MailBee; using MailBee.Pop3Mail; |
|
VB.NET: Imports System Imports MailBee Imports MailBee.Pop3Mail |
然后在Visual Studio 2005中创建一个新表单，并将Button和WebBrowser控件放在此表单上。设置以下代码在按钮点击事件上运行：
|
C#:Pop3 pop = new Pop3(); try { pop.Connect(“mail.domain.com”); pop.Login(“login”, “password”); Console.WriteLine(“Successfully logged in.”); }catch(MailBeePop3LoginNegativeResponseException e) { Console.WriteLine(“POP3 server replied with a negative response at login.”); }MailMessage msg = pop.DownloadEntireMessage(pop.InboxMessageCount);msg.Parser.PlainToHtmlMode = PlainToHtmlAutoConvert.IfNoHtml; msg.Parser.PlainToHtmlOptions = PlainToHtmlConvertOptions.UriToLink;msg.Parser.Apply(); WebBrowser1.Text = msg.BodyHtmlText;try { pop.Disconnect(); Console.WriteLine(“Disconnected successfully.”); } catch { Console.WriteLine(“Disconnection failed.”); } |
|
VB.NET: Dim pop As Pop3 = New Pop3() Try pop.Connect(“mail.domain.com”) pop.Login(“login”, “password”) Console.WriteLine(“Successfully logged in.”) Catch e As MailBeePop3LoginNegativeResponseException Console.WriteLine(“POP3 server replied with a negative response at login.”) End Try Dim msg As MailMessage = pop.DownloadEntireMessage(pop.InboxMessageCount) msg.Parser.PlainToHtmlMode = PlainToHtmlAutoConvert.IfNoHtml msg.Parser.PlainToHtmlOptions = PlainToHtmlConvertOptions.UriToLink msg.Parser.Apply() WebBrowser1.Text = msg.BodyHtmlText Try pop.Disconnect() Console.WriteLine(“Disconnected successfully.”) Catch Console.WriteLine(“Disconnection failed.”) End Try |
以上就是本次教程的全部内容，接下来会有更多相关教程，敬请关注！您也可以在评论者留下你的经验和建议。
试用、下载、了解更多产品信息请点击“咨询在线客服”
标签：Pop3电子邮件
声明：本站部分文章及图片源自用户投稿，如本站任何资料有侵权请您尽早请联系jinwei@zod.com.cn进行处理,非常感谢！