Как определить, открыт ли почтовый элемент в Outlook из Access 2013?

Question

необходимо определить, открыт ли почтовый элемент.

Я не могу открыть электронную почту в модальной форме, потому что пользователи должны иметь возможность просматривать другие электронные письма.

прямо сейчас я отображаю mailitem.display true, который вызывает проблему, это должен быть просто mailitem.display, но затем код будет продолжаться.

Мне нужен цикл, который будет продолжаться, покаэлектронная почта все еще открыта

Answer 1

Вы можете перебрать все окна Application.Inspectors и проверить их свойство CurrentItem , которое возвращает объект, представляющий текущий элемент, отображаемый в инспекторе.

Для Explorers проверьтеApplication.Explorers свойство, которое возвращает Explorers объект коллекции, который содержит Explorer объекты, представляющие всех открытых исследователей.

Sub GetSelectedItems()  
 Dim myOlExp As Outlook.Explorer  
 Dim myOlSel As Outlook.Selection  
 Dim MsgTxt As String  
 Dim x As Integer 

 MsgTxt = "You have selected items from: "  
 Set myOlExp = Application.Explorers.Item(1)  
 If myOlExp = "Inbox" Then  
 Set myOlSel = myOlExp.Selection  
 For x = 1 To myOlSel.Count  
 MsgTxt = MsgTxt & myOlSel.Item(x).SenderName & ";"  
 Next x  
 MsgBox MsgTxt  
End If 

End Sub