检查，如果Outlook邮件产品活跃

下面的代码是用于发送Outlook邮件代码：检查，如果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 = "[email protected]" 
    .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邮件屏幕。

来源

2016-03-04 George Costanza

我想在这里你可能会找到答案。但它也取决于您使用的Outlook版本。 http://www.slipstick.com/developer/outlook-vba-work-with-open-item-or-select-item/ – Farside

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

来源

2016-03-04 01:03:14

你能解释一下你的意思吗？你是在暗示一个代码还是什么？ –

查看上面更新的答案。 –

谢谢。但是，如何找出消息何时关闭？ –

检查，如果Outlook邮件产品活跃

回答

相关问题