Событие для периодической записи новых сообщений из Outlook в БД Access - VB

Формулировка задачи:

Всем доброго дня! Есть учетная запись в Outlook 2010. Необходимо сделать следующее: при поступлении новых писем на почту, Outlook периодически должен сохранять данные сообщения в БД Access и вложения (если они есть) в определенную папку при этом записав в БД путь к данному файлу. Подскажите как решить следующую задачу, и если можно с примером кода.

Решение задачи: «Событие для периодической записи новых сообщений из Outlook в БД Access»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Application_NewMail()
  Call Outlook_copyAttachmentsToFolder
End Sub
 
Sub Outlook_copyAttachmentsToFolder()
On Error Resume Next
Dim myFolder As Outlook.MAPIFolder
Dim mi As MailItem
DestFolder = "G:\Вложения\"
Set myFolder = Outlook.Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
 
Dim MyDate
MyDate = Format(Date, "yyyy.mm.dd")
 
For Each mi In myFolder.Items.Restrict("[Unread]=TRUE")
    If mi.Attachments.Count > 0 Then
        If Len(Dir(DestFolder & MyDate, vbDirectory)) = 0 Then
               MkDir DestFolder & MyDate
        End If
    For j = 1 To mi.Attachments.Count
         mi.Attachments.item(j).SaveAsFile DestFolder & "\" & MyDate & "\" & mi.Attachments.item(j).DisplayName
         
    Next j
    End If
    ' mi.UnRead = False
Next
End Sub