экспорт писем из The bat в excel с помошью MAPI

имеется следующая програмка:

Dim i As Long
Dim telo

MAPISession1.DownLoadMail = True
MAPISession1.SignOn

MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Fetch

If MAPIMessages1.MsgCount > 0 Then
For i = 0 To MAPIMessages1.MsgCount - 1
MAPIMessages1.MsgIndex = i
Worksheets("лист1").Cells(i + 1, 1).Value = MAPIMessages1.MsgOrigAddress
Worksheets("лист1").Cells(i + 1, 2).Value = MAPIMessages1.MsgSubject

Next
End If
MAPISession1.SignOff

как вы уже поняли програмка экспортирует письма из The bat в exсel. Имеются следующие вопросы:

Экспорт происходит очень долго. 100 писем где то минут за 15 это при том, что экспортируется только тема, дата и e-mail. Как можно ускорить это процедуру? что не так?

При экспорте тела письма вылазит ошибка out of memory. Как это лечится?

не удалось найти функцию которая бы показывала дату создания письма,а не дату получения.

как сделать чтобы экспортировались только непрочитанные письма.

Возможна ли работа с другими папками например sent или trash.