创建 Outlook 电子邮件，同时保持 Excel 工作表上的进度条可见

Question

我编写的代码可以使用大量数据完成大量任务。

当用户运行宏时，我创建了一个在单元格 K1:K2 上可见的进度条。
在此宏的末尾，创建了几封电子邮件，每封电子邮件都显示在屏幕上。
问题是进度条不再可见。

有没有办法在创建电子邮件后将其最小化？

我尝试删除

.display

。我猜电子邮件已创建，但找不到它们，即使是在草稿中也是如此。

创建电子邮件代码

Dim objOutlook As Object
Dim objMail As Object

prenom = cel.Offset(0, 2)

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

objMail.SentOnBehalfOfName = "[email protected]"
objMail.display
objMail.Attachments.Add pth & cel & " " & Format(Date, "dd.mm.yyyy") & ".xls"
objMail.To = prenom & "@test.com"
objMail.Subject = "extract"
objMail.HTMLBody = intro & objMail.HTMLBody
objMail.Recipients.ResolveAll
'objMail.send

objMail.Recipients.ResolveAll

Set objOutlook = Nothing
Set objMail = Nothing

我写了

objMail.save

而不是

objMail.display

。
电子邮件保存为草稿，但它们仍然会在 Excel 工作表上弹出。

Answer 1

将 .Display 替换为 .Save，然后在草稿中创建。

是否发送由您决定，但一旦发送，它们就会从草稿中消失。