通过Outlook Web App上的VB.NET下载电子邮件附件

Imports System.Net
Imports System.Net.Mail

Public Class EmailAttachmentDownloader
    Public Sub DownloadAttachment()
        Dim emailServer As String = "your_email_server"
        Dim email As String = "your_email_address"
        Dim password As String = "your_email_password"

        Dim client As New SmtpClient(emailServer)
        client.Port = 587
        client.EnableSsl = True
        client.Credentials = New NetworkCredential(email, password)

        Dim message As New MailMessage()
        message.From = New MailAddress(email)
        message.[To].Add("recipient_email_address")
        message.Subject = "Email Subject"
        message.Body = "Email Body"

        Dim attachment As New Attachment("attachment_file_path")
        message.Attachments.Add(attachment)

        client.Send(message)
    End Sub
End Class