【教程】如何在C＃，VB.NET中提取消息内容

2019独角兽企业重金招聘Python工程师标准>>>

关联工具：Spire.Email for .NET

代码片段：

Step 1:加载邮件。

MailMessage mail = MailMessage.Load("Sample.msg");

Step 2:创建一个新的StringBuilder实例。

StringBuilder sb = new StringBuilder();

Step 3:获取我们想要的消息内容。

//get the From address
sb.AppendLine("From:");
sb.AppendLine(mail.From.Address);
//get the To address
sb.AppendLine("To:");
foreach (MailAddress toAddress in mail.To)
{
    sb.AppendLine(toAddress.Address);
}
//get the date
sb.AppendLine("Date:");
sb.AppendLine(mail.Date.ToString());
//get the subject
sb.AppendLine("Subject:");
sb.AppendLine(mail.Subject);
//get the BodyText
sb.AppendLine("Message contents");
sb.AppendLine(mail.BodyText);
//get the BodyHtml
sb.AppendLine("BodyHtml");
sb.AppendLine(mail.BodyHtml);

Step 4:写入.txt中的所有内容

File.WriteAllText("ExtractMessageContents.txt", sb.ToString());

提取的.text文件格式的消息内容如下：

完整代码：

[C#]

{
    MailMessage mail = MailMessage.Load("Sample.msg");
    StringBuilder sb = new StringBuilder();
    sb.AppendLine("From:");
    sb.AppendLine(mail.From.Address);
    sb.AppendLine("To:");
    foreach (MailAddress toAddress in mail.To)
    {
        sb.AppendLine(toAddress.Address);
    }
    sb.AppendLine("Date:");
    sb.AppendLine(mail.Date.ToString());
    sb.AppendLine("Subject:");
    sb.AppendLine(mail.Subject);
    sb.AppendLine("Message contents");
    sb.AppendLine(mail.BodyText);
    sb.AppendLine("BodyHtml");
    sb.AppendLine(mail.BodyHtml);
    File.WriteAllText("ExtractMessageContents.txt", sb.ToString());
}

[VB.NET]

Dim mail As MailMessage = MailMessage.Load("Sample.msg")
Dim sb As New StringBuilder()
sb.AppendLine("From:")
sb.AppendLine(mail.From.Address)
sb.AppendLine("To:")
For Each toAddress As MailAddress In mail.[To]
    sb.AppendLine(toAddress.Address)
Next
sb.AppendLine("Date:")
sb.AppendLine(mail.[Date].ToString())
sb.AppendLine("Subject:")
sb.AppendLine(mail.Subject)
sb.AppendLine("Message contents")
sb.AppendLine(mail.BodyText)
sb.AppendLine("BodyHtml")
sb.AppendLine(mail.BodyHtml)
File.WriteAllText("ExtractMessageContents.txt", sb.ToString())

慧都控件网

 

 

转载于:https://my.oschina.net/u/3006003/blog/1439038