通过 System.Net.Mail 的 VB SMTP 停止工作

我有一个VB.NET应用程序向用户发送邮箱，让他们知道一些需要他们关注的事情.

邮件在应用程序内生成，并通过Microsoft 365帐户发送.

多年来，这项技术一直没有出现任何问题，但在2天前，它突然停止了工作.

我在应用程序外测试了邮件帐户，效果很好.

当我登录365帐户时，发件箱中没有任何项目，过go 2天内没有发送的项目，收件箱中也没有失败的邮箱通知.因此，我得出结论，这个问题一定在应用程序中.

问题是，我已经有2-3年没有更改应用程序的这一部分了，所以不知道为什么它会停止工作.

代码 struct 为:

Imports System.Net.Mail

Public Class Form1

    Private Sub SendEmail()
        Dim MS365Email As New MailMessage
        MS365Email.To.Add("RECIPIENTEMAIL")
        MS365Email.From = New MailAddress("SENDEREMAIL")
        MS365Email.Subject = "SUBJECT"
        MS365Email.IsBodyHtml = True
        MS365Email.Body = "BODYTEXT"

        Dim MS365client As New SmtpClient("smtp.office365.com", 587)
        MS365Email.Priority = MailPriority.Normal

        MS365client.EnableSsl = True
        MS365client.UseDefaultCredentials = False
        Dim xms365 As New Net.NetworkCredential("USERNAME", "PASSWORD")
        MS365client.Credentials = xms365
        MS365client.DeliveryMethod = SmtpDeliveryMethod.Network
        MS365client.SendAsync(MS365Email, Nothing)
    End Sub

End Class

谢谢你的帮助和建议.

日本