创建Outlook邮件时保持Excel进度条可见的技术求助

方法1：后期绑定（无需引用Outlook库） #

直接通过设置邮件窗口的WindowState属性实现最小化，代码示例：

Dim olApp As Object
Dim olMail As Object

Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0) ' 创建新邮件

' 配置邮件信息
olMail.To = "recipient@example.com"
olMail.Subject = "批量邮件主题"
olMail.Body = "邮件内容"

' 显示邮件后立即设置为最小化
olMail.Display
olMail.WindowState = 2 ' 2对应Outlook的olMinimized常量值

' 可选：保存到草稿箱
olMail.Save

方法2：早期绑定（需引用Outlook库） #

如果已经在VBA编辑器中引用了Microsoft Outlook xx.x Object Library，可以直接使用常量名，可读性更好：

Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

' 配置邮件信息...

olMail.Display
olMail.WindowState = olMinimized
olMail.Save

额外优化：恢复Excel焦点，保持进度条可见 #

邮件弹出后Excel会失去焦点，可能导致进度条不可见，处理完邮件后可以重新激活Excel窗口：

' 激活当前工作簿窗口
AppActivate ThisWorkbook.Name
' 刷新进度条单元格（确保状态更新）
Range("K1:K2").Calculate

内容的提问来源于stack exchange，提问作者D4_