VBA -如何指定收件箱而不是使用收件箱？

Sub SendEmailToSpecificInbox()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.Namespace
    Dim olFolder As Outlook.Folder
    Dim olMail As Outlook.MailItem
    
    ' 创建Outlook应用程序对象
    Set olApp = New Outlook.Application
    
    ' 获取Outlook命名空间
    Set olNamespace = olApp.GetNamespace("MAPI")
    
    ' 获取指定收件箱的文件夹对象
    Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox).Folders("指定收件箱名称")
    
    ' 创建邮件对象
    Set olMail = olApp.CreateItem(olMailItem)
    
    ' 设置邮件属性
    With olMail
        .Subject = "邮件主题"
        .Body = "邮件内容"
        .To = "收件人邮箱地址"
        .SentOnBehalfOfName = "发件人邮箱地址"
    End With
    
    ' 发送邮件到指定收件箱
    olMail.Move olFolder
    
    ' 释放对象
    Set olMail = Nothing
    Set olFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub