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

分手后的思念是犯贱 2022-06-12 05:55 114阅读 0赞

**关联工具：**[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][1]

**完整代码：**

**\[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())

[慧都控件网][Link 1]

--------------------

[Spire.Email for .NET]: https://www.evget.com/product/3977
[1]: /images/20220612/4d76583579f24028947abeaa6ca59302.png
[Link 1]: https://www.evget.com/article/2017/7/17/26585.html