Microsoft outlookta makro kullanımı

[cavanoos]

Merhaba arkadaşlar;

Mail adresimize bir bankadan her gün 40 tane ekli mail gelmektedir.Bizde herbirine girip tek tek masaüstüne kaydediyoruz.Microsoft outlookta makro kullanımı mevcut mu ? Eğer mevcut ise bu işlemi makro kodu ile yapabilir miyiz ?

 

[Mehmet Şahin]

Merhaba,
linki incelermisiniz. Kolay gelsin.

Tıklayınız.

 

[cavanoos]

Dentex;

Makro kodunu aşağıdaki şekilde düzelttim.Ama anlam veremediğim sonuçlar oluyor.
1-efatura@turktelekom.com.tr ile ilgili gelen kutusunda 20 adet mail varsa 14 tanesi geliyor.
2-Başka bir adresi yazıyorum.Hiç sonuç yok.

Hatayı nerde yapıyorum ?


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 = "efatura@turktelekom.com.tr" Then
For Each Atmt In Item.Attachments
FileName = "E:\" & Atmt.FileName
Atmt.SaveAsFile FileName
Next Atmt
End If
Next Item
hata:
End Sub