Question

以下代码是发送Outlook邮件的代码：

Sub SendEmail()

Dim OutlookApp As Object
Dim MItem As Object

Set OutlookApp = CreateObject("Outlook.Application")

Dim Sendrng As Range
Set Sendrng = Worksheets("Test").Range("A1").SpecialCells(xlCellTypeVisible)
Sendrng.Copy

Set MItem = OutlookApp.CreateItem(0)
With MItem
    .To = "test@email.com"
    .Subject = "Test"
    .Display
    Threading.Thread.Sleep(2000)
End With

End Sub

如何检查Outlook邮件项是否处于活动状态？

我正在寻找这样的代码：

.Display
Threading.Thread.Sleep(2000)
If MItem is not active then 
    exit sub
End if

换句话说，显示仍在显示？

因为我不希望用户关闭打开的Outlook邮件屏幕。

Answer 1

所以基本上你想知道消息什么时候关闭？调用显示指定TRUE作为参数（如果未指定，则默认为false） - 这将导致显示为模态。行.Display需要更改为.Display(true)

检查Outlook邮件项是否处于活动状态

1 个答案: