如何通过VB.NET读取指定磁盘目录下的Outlook邮件文件

本地读取指定目录下的Outlook .msg文件并提取主题、正文等信息的需求完全可实现，根据部署环境是否安装Outlook，可选择两种不同的实现路径，以下是具体思路和可直接复用的代码示例。

• 依赖Outlook客户端的COM互操作方案：适合本地开发、目标运行机器已安装正版Outlook的场景，无需引入第三方依赖，直接调用Outlook官方对象模型即可读取.msg文件的全量属性，解析准确率最高。核心逻辑为初始化Outlook应用实例，调用OpenSharedItem方法加载本地MSG文件，直接访问对象属性提取所需字段，使用完成后手动释放COM资源避免后台残留Outlook进程。
• 无Outlook依赖的独立解析方案：适合服务器部署、目标机器未安装Office的场景，通过MSG格式的二进制结构直接解析文件，不需要启动COM进程，稳定性更强，一般通过Nuget安装对应解析包即可快速实现，代码逻辑和COM方案基本一致。

前置准备 #

在VB.NET项目中添加COM引用，在引用管理器的COM列表中找到对应本机Outlook版本的Microsoft Outlook XX.X Object Library（Outlook 2016/2019/365对应版本号为16.0），添加完成后即可使用Outlook相关对象。

Imports Microsoft.Office.Interop.Outlook
Imports System.IO
Imports System.Runtime.InteropServices

Public Class MsgFileParser
    ''' <summary>
    ''' 遍历指定目录下所有.msg文件并提取核心信息
    ''' </summary>
    ''' <param name="targetFolder">存放msg文件的目录路径，示例：D:\mails\to-read\</param>
    Public Shared Sub ParseFolderMsgFiles(targetFolder As String)
        ' 目录合法性校验
        If Not Directory.Exists(targetFolder) Then
            Throw New DirectoryNotFoundException($"目标路径不存在：{targetFolder}")
        End If

        Dim outlookApp As Application = Nothing
        Dim outlookNS As NameSpace = Nothing
        Try
            ' 初始化Outlook实例和MAPI命名空间
            outlookApp = New Application()
            outlookNS = outlookApp.GetNamespace("MAPI")

            ' 枚举目录下所有.msg格式文件
            Dim allMsgFiles = Directory.GetFiles(targetFolder, "*.msg", SearchOption.TopDirectoryOnly)
            For Each msgFilePath In allMsgFiles
                Dim currentMail As MailItem = Nothing
                Try
                    ' 加载单个msg文件
                    currentMail = CType(outlookNS.OpenSharedItem(msgFilePath), MailItem)

                    ' 提取所需字段，可根据自己的需求增减
                    Dim mailResult = New With {
                        .FileName = Path.GetFileName(msgFilePath),
                        .Subject = currentMail.Subject, ' 邮件主题
                        .TextBody = currentMail.Body, ' 纯文本格式正文
                        .HtmlBody = currentMail.HTMLBody, ' HTML格式正文
                        .SenderName = currentMail.SenderName, ' 发件人显示名称
                        .SenderAddress = currentMail.SenderEmailAddress, ' 发件人邮箱地址
                        .SentTime = currentMail.SentOn, ' 邮件发送时间
                        .ReceiveTime = currentMail.ReceivedTime, ' 邮件接收时间
                        .AttachmentCount = currentMail.Attachments.Count ' 附件数量
                    }

                    ' 此处替换为你自己的业务逻辑，比如存入数据库、导出Excel等
                    Console.WriteLine($"=== 解析文件：{mailResult.FileName} ===")
                    Console.WriteLine($"邮件主题：{mailResult.Subject}")
                    Console.WriteLine($"发件人：{mailResult.SenderName} <{mailResult.SenderAddress}>")
                    Console.WriteLine($"发送时间：{mailResult.SentTime:yyyy-MM-dd HH:mm:ss}")
                    Console.WriteLine($"正文预览：{If(mailResult.TextBody?.Length > 100, mailResult.TextBody.Substring(0, 100) & "...", mailResult.TextBody)}")
                    Console.WriteLine(Environment.NewLine)

                    ' 如果需要提取附件，可遍历Attachments属性调用SaveAsFile保存
                    ' For Each att As Attachment In currentMail.Attachments
                    '     att.SaveAsFile(Path.Combine("D:\mails\attachments\", att.FileName))
                    ' Next
                Catch parseEx As Exception
                    Console.WriteLine($"解析文件 {msgFilePath} 失败：{parseEx.Message}")
                Finally
                    ' 释放单个邮件的COM资源
                    If currentMail IsNot Nothing Then
                        Marshal.ReleaseComObject(currentMail)
                        currentMail = Nothing
                    End If
                End Try
            Next
        Catch initEx As Exception
            Console.WriteLine($"初始化Outlook组件失败，请确认本机已正确安装Outlook：{initEx.Message}")
        Finally
            ' 按顺序释放顶层COM资源，避免后台残留Outlook进程
            If outlookNS IsNot Nothing Then
                Marshal.ReleaseComObject(outlookNS)
                outlookNS = Nothing
            End If
            If outlookApp IsNot Nothing Then
                Marshal.ReleaseComObject(outlookApp)
                outlookApp = Nothing
            End If
            ' 强制垃圾回收清理COM残留引用
            GC.Collect()
            GC.WaitForPendingFinalizers()
            GC.Collect()
            GC.WaitForPendingFinalizers()
        End Try
    End Sub
End Class

调用方式 #

直接传入你的MSG文件存放目录即可执行解析：

' 调用示例
MsgFileParser.ParseFolderMsgFiles("D:\mails\to-read\")

• COM方案必须严格按照代码中的顺序释放所有Outlook相关COM对象，否则会导致Outlook进程在后台持续驻留占用内存。
• 如果出现“检索COM类工厂失败”类的位数不兼容错误，将项目的目标平台架构改成和本机安装的Outlook一致（64位Outlook选x64，32位选x86）即可解决。
• 如果程序需要部署在未安装Outlook的服务器环境，不要使用COM方案，直接通过Nuget安装无依赖的MSG解析库即可，核心字段提取逻辑和上述代码基本一致，不需要做COM资源释放处理。

内容的提问来源于stack exchange，提问作者newvbcode