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

VB2019です。
前回と立て続けに同じような質問ですいません。
Mailkitを使用して、読み取り専用テキストファイルを添付して送信した後、
ファイルを削除しようとしているのですが、例外が発生して削除出来ません。
別のプロセスで使用されているため、アクセスできないといわれているんですが、
タスクマネージャーを見てもテキストファイルはありませんし、いろいろ試しているんですがいまだにわかりません。

Using、Disposeを使ってMailkitのソースを作ることは可能なのでしょうか。
また、どのプロセスで使用されているか調べる方法ありましたら教えてください。

■No95176 (工場プログラマー さん) に返信
> ちなみにUsingで設定しようとするとIDisposableを使えとエラーが発生して、理解が追い付けません。
申し訳ない。
「Mailkit Using」で検索しても
ちゃんとしたのはないですね。

添付ファイルのstreamはメール送信後に解放するようにしてください。

C#のサンプルです。

using (var stream = System.IO.File.OpenRead(filepath))
using (var smtp = new MailKit.Net.Smtp.SmtpClient())
{
    smtp.Connect(host, port, MailKit.Security.SecureSocketOptions.Auto);
    smtp.Authenticate(ﾕｰｻﾞｰId, ﾊﾟｽﾜｰﾄﾞ);

    var mail = new MimeKit.MimeMessage();
    mail.From.Add(new MimeKit.MailboxAddress("", from));
    mail.To.Add(new MimeKit.MailboxAddress("", to));
    mail.Subject = "テスト";

    var multipart = new MimeKit.Multipart("mixed");

    multipart.Add(new MimeKit.TextPart (MimeKit.Text.TextFormat.Plain){Text ="テストです"});

    var attachement = new MimeKit.MimePart("Application/Octet-Stream")
    {
        Content = new MimeKit.MimeContent(stream),
        ContentDisposition = new MimeKit.ContentDisposition(),
        ContentTransferEncoding = MimeKit.ContentEncoding.Base64,
        FileName = "テストファイル.txt",
    };

    multipart.Add(attachement);

    mail.Body = multipart;

    smtp.Send(mail);
}

System.IO.File.Delete(filepath);

■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

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