关联工具: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文件格式的消息内容如下:
![图片1](https://image.evget.com//Content/files/2017/7/17/7481c616910247419d8bdf0636cfe7f2636358981472987009.png)
完整代码:
[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())