Microsoft Outlook 2010

[igultekin2000]

iyi günler;

Sub Gonderene_Gore_Outlook_Maillerini_Kaydetme()
     Dim ns As Namespace
     Dim Inbox As MAPIFolder
     Dim Item As Object
     Dim Atmt As Attachment
     Dim FileName As String
     
     On Error GoTo hata
     Set ns = GetNamespace("MAPI")
     Set Inbox = ns.GetDefaultFolder(olFolderInbox)
    
     If Inbox.Items.Count = 0 Then
        MsgBox "Hiçbir Mesaja Rastlanmadı.", vbInformation, _
               "Hiçbir Şey Bulunamadı"
        Exit Sub
     End If
     For Each Item In Inbox.Items
     If Item.SenderEmailAddress = "xxx@hotmail.com" Then 'Buraya Mail kimden geliyorsa adresini yazın.
     For Each Atmt In Item.Attachments
         FileName = "C:\" & Atmt.FileName
         Atmt.SaveAsFile FileName
     Next Atmt
     End If
     Next Item
hata:
End Sub

bu sitede Outlook' tan mailler ekindeki dosyaları bilgisayara indirme kodunu buldum. bayağı kullanışlı. daha da pratik olması için mail' i interaktif yapmamız mümkün müdür? boş bir excel sayfasına veri doğrulama(mesela B2 hücresine) ile seçtiğimiz mail adresini "xxx@hotmail.com" ' a atamamız mümkün olabilir mi. ayrıca veri C:\ nin için atıyor, isim belirttiğimiz bir klasöre attırmak ta istiyorum.
teşekkürler.