Yardım Excel ile Tarihe Göre Mail İndirme

Dostlar merhaba,

Aşağıdaki dosyadan mail eklerini indirebiliyorum.Fakat ben belirlediğim tarihteki ve belirlediğim klasördeki mail eklerini indirmek istiyorum. Nerelerde degısıklıkler yapmam gerekıyor yardımlarınızı rica ediyorum.

Merhaba aşağıdaki gibi deneyebilirsiniz.

Sub GetAttachments()
Dim Inbox As MAPIFolder
Dim Item As MailItem
Dim Atmt As Attachment
Dim FileName As String
Dim Tarih As Date

Set Inbox = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders.Item("Mailbox'daki Klasör ismi")

mailx = Inbox.Items.Count
Tarih = Format(Inbox.Items(1).ReceivedTime, "dd.mm.yyyy")

Range("A1") = Inbox.Items(1).Subject
Range("B1") = Inbox.Items(1).ReceivedTime
Range("C1") = Inbox.Items(1).Sender

For Each Item In Inbox.Items
If Tarih = Format(Range("E1"), "dd.mm.yyyy") Then 'E1 hücresine isteğiniz tarihi yazın
For Each Atmt In Item.Attachments
FileName = "Dosyanın Kopyalanacağı Klasör yolu" & Atmt.FileName
Atmt.SaveAsFile FileName
Next
End If
Next

Set Inbox = Nothing
Set Item = Nothing
End Sub

Aşağıdaki Outlook eklentisini aktif hale getirin.