使用vba转发outlook文件夹中的电子邮件

Sub ForwardEmails()
    Dim objNamespace As Outlook.Namespace
    Dim objFolder As Outlook.Folder
    Dim objMail As Outlook.MailItem
    Dim objForwardMail As Outlook.MailItem
    
    ' 获取Outlook应用程序的命名空间
    Set objNamespace = Outlook.Application.GetNamespace("MAPI")
    
    ' 获取指定文件夹
    Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox).Folders("待转发")
    
    ' 遍历文件夹中的每封邮件
    For Each objMail In objFolder.Items
        ' 创建转发邮件
        Set objForwardMail = objMail.Forward
        
        ' 设置转发邮件的收件人
        objForwardMail.Recipients.Add "recipient@example.com"
        
        ' 设置转发邮件的主题
        objForwardMail.Subject = "转发：" & objMail.Subject
        
        ' 添加原始邮件作为附件
        objForwardMail.Attachments.Add objMail, olEmbeddeditem
        
        ' 发送转发邮件
        objForwardMail.Send
        
        ' 清空转发邮件对象
        Set objForwardMail = Nothing
    Next objMail
    
    ' 释放对象
    Set objMail = Nothing
    Set objFolder = Nothing
    Set objNamespace = Nothing
End Sub