保存している.emlファイルから添付ファイルを取り出す

概要

MailBoxから取り出している最中に添付ファイルを取り出す方法はネット上にありましたが、
保存している.emlファイルからの手順がなかなか見つからなかったので書いときます。

VB.NET

Imports MimeKit 'NugetでInstall-Package MimeKit -Version 3.3.0

        Dim folderName As String = "C:\temp\INBOX\"
        Dim infileName As String = "hoge.eml"

        Dim message As MimeKit.MimeMessage = MimeMessage.Load(System.IO.Path.Combine(folderName, infileName))

        For Each attachment In Message.Attachments
            'MimePartにある添付ファイルを取り出す
            Dim part As MimeKit.MimePart = CType(attachment, MimePart)
            Dim fileName = part.FileName

            'ファイルへ書き出す
            Using stream = File.Create(System.IO.Path.Combine(folderName, fileName))
                part.Content.DecodeTo(stream)
            End Using
        Next