Коллеги, добрый день. Проблема следующая, есть макрос, который должен определять адрес последнего (именно последнего) входящего сообщения в outlook. Проблема в том что макрос рандомно выбирает сообщение (это может быть вчерашнее сообщение или сообщение прошлой недели, а может быть и действительно последнее вошедшее). Прошу помощи, как заставить его, каждый раз стабильно обрабатывать последнее вошедшее сообщение.
Код |
---|
Sub test()
Dim myFolder As Outlook.MAPIFolder
Dim mymyItem As MailItem
Dim mailsend As String
Set myFolder = Application.GetNamespace("mapi").GetDefaultFolder(olFolderInbox) '.Folders("tt")
Set mymyItem = myFolder.Items.GetLast
mailsend = mymyItem.Sender
msgbox mailsend
End Sub |
P.S. Срабатывает макрос автоматически по строчке
Код |
---|
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Call test
End Sub |