使用Outlook用作传出服务器来通过VB端发送电子邮件

Question

Imports System.Net
Imports System.Net.Mail

Public Class frmEmail

    Private Sub btnEnviar_Click(sender As Object, e As EventArgs) Handles btnEnviar.Click
        Try
            ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12

            Dim strSmtpServer As String = "smtp.office365.com"
            Dim strSmtpPort As Integer = 587
            Dim strEmail As String = "[email protected]"
            Dim strSenha As String = "senhaaplicativo"

            Dim strRemetente As String = "[email protected]"
            Dim strDestinatario As String = "[email protected]"
            Dim strAssunto As String = "Assunto do e-mail"
            Dim strMensagem As String = "Corpo do e-mail"

            Dim smtp As New SmtpClient(strSmtpServer)
            smtp.Port = strSmtpPort
            smtp.Credentials = New NetworkCredential(strEmail, strSenha)
            smtp.EnableSsl = True

            Dim mail As New MailMessage()
            mail.From = New MailAddress(strRemetente)
            mail.To.Add(strDestinatario)
            mail.Subject = strAssunto
            mail.Body = strMensagem

            smtp.Send(mail)
            MsgBox("E-mail enviado com sucesso!", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
End Class

我希望能够通过VB使用Outlook作为传出服务器发送电子邮件。 从2023年，您无法再使用

basicAuthentication

，也不能再用于Microsoft Exchange Servicess。资料来源：在线交换中基本身份验证的基本认证

您必须在以下两个替代方案之间进行选择：

Answer 1

实现IMAP，POP或SMTP连接 or 使用MicrosoftGraphAPI，更精确地ioutlook mailapi