Outlookta ek olarak excel dosyasını kaydetmek

[siyahyedili]

Herkese merhabalar,

Ben outlook ile günlük olarak gelen bir excel dosyasını belli bir isim vererek ve kaydedileceği klasörü belirterek kaydedilmesinin makro ile nasıl olabileceğini merak ediyorum..

Örneğin, gelen aaa.xlsx dosyasını 01.11.2010 olarak, ertesi gün gelen aynı isimli dosyayı(aaa.xlsx) 02.11.2010 olarak masaüstünde bir klasöre nasıl kaydedebilirim?

bu konuda yardımlarınızı bekliyorum.

iyi çalışmalar..

 

[hamitcan]

Kodu dener misiniz ?

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 Resume Next
     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 = "deneme@deneme.com" Then
     For Each Atmt In Item.Attachments
         FileName = "C:\" & Format(Item.CreationTime, "dd.mm.yyyy_") & Atmt.FileName
         Atmt.SaveAsFile FileName
     Next Atmt
     End If
     Next Item
     MsgBox "Kayıt İşlemi Tamamlandı"
End Sub

 

[siyahyedili]

SN. hamitcan,

öncelikle teşekkür ederim istediğim gibi yapmışsınız.Ama bi sorum olacaktı kod içindeki

Set ns = GetNamespace("MAPI")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)

kısmının tam olarak ne yaptığını açıklayabilirmisiniz?

 

[hamitcan]

Verdiğim linkleri incelerseniz, size bir fikir verecektir.

Set ns = GetNamespace("MAPI")

http://translate.google.com.tr/tran...h?q=WHAT+IS+(%22MAPI%22)&hl=tr&rlz=1W1HPND_en
http://translate.google.com.tr/tran...h?q=WHAT+IS+(%22MAPI%22)&hl=tr&rlz=1W1HPND_en
http://translate.google.com.tr/tran...h?q=WHAT+IS+GetNamespace&hl=tr&rlz=1W1HPND_en

Set Inbox = ns.GetDefaultFolder(olFolderInbox)

kısmının tam olarak ne yaptığını açıklayabilirmisiniz?

http://support.microsoft.com/kb/310244/tr

 

[siyahyedili]

İlginiz için teşekkürler, gönderdiğiniz linkleri inceliyeceğim..