如何使用Outlook库在vb.net中发送电子邮件

Dim outlookApp As New Outlook.Application()

Dim mailItem As Outlook.MailItem = outlookApp.CreateItem(Outlook.OlItemType.olMailItem)

mailItem.Subject = "邮件主题"
mailItem.Body = "邮件正文"
mailItem.To = "收件人邮箱地址"

mailItem.Attachments.Add("附件路径")

mailItem.Send()

Imports Outlook = Microsoft.Office.Interop.Outlook

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim outlookApp As New Outlook.Application()
        Dim mailItem As Outlook.MailItem = outlookApp.CreateItem(Outlook.OlItemType.olMailItem)

        mailItem.Subject = "邮件主题"
        mailItem.Body = "邮件正文"
        mailItem.To = "收件人邮箱地址"
        mailItem.Attachments.Add("附件路径")

        mailItem.Send()

        MessageBox.Show("邮件发送成功！")
    End Sub
End Class