使用vb net将屏幕截图附加到新的电子邮件outlook图像

Imports Outlook = Microsoft.Office.Interop.Outlook

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

Dim screenshot As New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
Dim graphics As Graphics = Graphics.FromImage(screenshot)
graphics.CopyFromScreen(0, 0, 0, 0, screenshot.Size)
Dim tempFilePath As String = "C:\Temp\Screenshot.png" ' 临时文件路径
screenshot.Save(tempFilePath, Imaging.ImageFormat.Png)

Dim attachment As Outlook.Attachment = mailItem.Attachments.Add(tempFilePath)
attachment.DisplayName = "Screenshot.png" ' 附件显示名称

mailItem.Subject = "屏幕截图"
mailItem.Body = "请查看附加的屏幕截图。"
mailItem.To = "recipient@example.com"

mailItem.Display()

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)

        Dim screenshot As New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
        Dim graphics As Graphics = Graphics.FromImage(screenshot)
        graphics.CopyFromScreen(0, 0, 0, 0, screenshot.Size)
        Dim tempFilePath As String = "C:\Temp\Screenshot.png"
        screenshot.Save(tempFilePath, Imaging.ImageFormat.Png)

        Dim attachment As Outlook.Attachment = mailItem.Attachments.Add(tempFilePath)
        attachment.DisplayName = "Screenshot.png"

        mailItem.Subject = "屏幕截图"
        mailItem.Body = "请查看附加的屏幕截图。"
        mailItem.To = "recipient@example.com"

        mailItem.Display()
    End Sub
End Class