C# と VB.NET の質問掲示板

■No95179 (furu さん) に返信
> 申し訳ない。
> 「Mailkit Using」で検索しても
> ちゃんとしたのはないですね。

自分が言葉足らずだっただけなのでお気になさらず。

Sub SendMail()
        Using stream = File.OpenRead(strFilePath)
            Using smtp = New MailKit.Net.Smtp.SmtpClient()

                smtp.Connect("smtp.alpha-prm.jp", 25)

                Dim mail = New MimeKit.MimeMessage()
                mail.From.Add(New MimeKit.MailboxAddress("***", "***@***"))
                mail.To.Add(New MimeKit.MailboxAddress("***", "***@***"))
                mail.Subject = "テスト"

                Dim textPart = New MimeKit.TextPart(MimeKit.Text.TextFormat.Plain) With {
                .Text = Format("テストです"
                }

                Dim attachment = New MimeKit.MimePart("Application/Octet-Stream") With {
               .Content = New MimeKit.MimeContent(stream),
      　　　   .ContentDisposition = New MimeKit.ContentDisposition(),
               .ContentTransferEncoding = MimeKit.ContentEncoding.Base64,
               .FileName = Path.GetFileName(strFilePath)
                }
                Dim multipart = New MimeKit.Multipart("mixed") From {
                    textPart,
                    attachment
                }

                mail.Body = multipart

                smtp.Send(mail)
                stream.Dispose()
                smtp.Dispose()
            End Using
        End Using
        File.Delete(strFilePath)
    End Sub
End Module

こんな感じでソース作ったらうまくいきました。
本当に助かりました。ありがとうございました！