VBA为网页截图，另存为文件并附加到新的电子邮件中

Sub CaptureWebpageScreenshot()
    Dim IE As Object
    Dim URL As String
    Dim FilePath As String
    
    ' 设置网页URL和保存路径
    URL = "https://www.example.com"
    FilePath = "C:\screenshot.png"
    
    ' 创建Internet Explorer对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 打开网页
    IE.Visible = True
    IE.Navigate URL
    
    ' 等待网页加载完成
    Do While IE.Busy Or IE.ReadyState <> 4
        DoEvents
    Loop
    
    ' 截图并保存
    IE.ExecWB 17, 0 ' 17表示截图命令
    IE.ExecWB 12, 2, FilePath ' 12表示保存命令
    
    ' 关闭Internet Explorer对象
    IE.Quit
    
    ' 释放对象
    Set IE = Nothing
    
    ' 将截图文件附加到新的电子邮件中
    Dim OutlookApp As Object
    Dim MailItem As Object
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' 创建新的电子邮件
    Set MailItem = OutlookApp.CreateItem(0)
    
    ' 添加附件
    MailItem.Attachments.Add FilePath
    
    ' 显示电子邮件
    MailItem.Display
    
    ' 释放对象
    Set MailItem = Nothing
    Set OutlookApp = Nothing
End Sub