Outlookdan mail eklerini klasöre kopyalama

[mesut.ozcanli]

Herkese merhaba,

Bir mail adresi dusunun ve o mail adresine yaklasik 20 bankadan her hesabin aylik ekstresi (toplam 200 hesap ekst.) ayda bir defa ek olarak gelmektedir.
Ornegin;
Yapikrediden 10 mail (her mail ekinde bir hesabin 1 aylik ekstresi var)
Akbankdan 8 mail her mail ekinde bir hesabin 1 aylik ekstresi var)
Her ayin birinde bir onceki ayin ekstreleri
Bunun gibi 20 bankadan birsuru mail ve ek

Yapmak istedigim; daha onceden acilmis (banka adi olan) klasorlerin icine her ay icin bir klasor acarak gelen ekleri ilgili klasorlerin icine otomatik olarak kayit etmesi. (klasorlerin adi banka mail uzantilari olabilir)
Bu konuda bana yardimci olabilecek biri var midir ?

Tesekkurler, selamlar.

 

[muzaffer.sm]

Her ay için bir ayrım neye göre yapılacak.Gelen eklerin ismi bankaya göre değişmektedir.Fakat outlook eklerinizi bir klasöre kopyalanacak gibi bir durum söz konusu ise bununla ilgili makrolar elbette var.Gelen eklerden şu ay yada bu ay demek neye göre yapılacak burası ayrı bir soru.
Gelen ekleri bir klasörde toplamak olabilir mi ?

 

[mesut.ozcanli]

Muzaffer bey merhaba,
her ay için ayrım gelen mail tarihine göre yapılacak. mailler ayda bir defa ve bir sonraki ayın birinde gelecek. (ocak ekstresi , şubatın 1inde gelecek)
ayrıca gelen mail adresinden de klasör adı belirlenecek (örneğin: mail: ekstre@ekstre.yapikredi.com.tr adresinden geldiyse klasör adı yapıkredi olacak gibi düşünebilirsiniz)

ilginiz için teşekkür ederim.
Sayg.

 

[Zeki Gürsoy]

Bunun en iyi yolu, Gelen Kutusu' na mesaj geldiğindeki olayı (Event) yakalamaktır. Gönderen uzantısı ilgili bankanın uzantısı ise, dosya ekini diske kaydedecek yordamı çağırmak yeterli olacaktır. Olay yakalama için aşağıdaki bağlantıdan fikir edinebilirsiniz...

How to run a VBA macro when new mail is received in Outlook

Example code showing how to run a VBA macro when new mail is received in Outlook using an event handler in VBA.

www.tachytelic.net

Option Explicit
Private WithEvents inboxItems As Outlook.Items

Private Sub Application_Startup()
  Dim outlookApp As Outlook.Application
  Dim objectNS As Outlook.NameSpace
 
  Set outlookApp = Outlook.Application
  Set objectNS = outlookApp.GetNamespace("MAPI")
  Set inboxItems = objectNS.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub inboxItems_ItemAdd(ByVal Item As Object)
On Error GoTo ErrorHandler

Dim Msg As Outlook.MailItem
Dim MessageInfo
Dim Result
If TypeName(Item) = "MailItem" Then
    MessageInfo = "" & _
        "Sender : " & Item.SenderEmailAddress & vbCrLf & _
        "Sent : " & Item.SentOn & vbCrLf & _
        "Received : " & Item.ReceivedTime & vbCrLf & _
        "Subject : " & Item.Subject & vbCrLf & _
        "Size : " & Item.Size & vbCrLf & _
        "Message Body : " & vbCrLf & Item.Body
    Result = MsgBox(MessageInfo, vbOKOnly, "New Message Received")
End If

ExitNewItem:
    Exit Sub

ErrorHandler:
    MsgBox Err.Number & " - " & Err.Description
    Resume ExitNewItem
End Sub

.

 

[muzaffer.sm]

Muzaffer bey merhaba,
her ay için ayrım gelen mail tarihine göre yapılacak. mailler ayda bir defa ve bir sonraki ayın birinde gelecek. (ocak ekstresi , şubatın 1inde gelecek)
ayrıca gelen mail adresinden de klasör adı belirlenecek (örneğin: mail: ekstre@ekstre.yapikredi.com.tr adresinden geldiyse klasör adı yapıkredi olacak gibi düşünebilirsiniz)

ilginiz için teşekkür ederim.
Sayg.

Anladım Mesut Bey. Benden sonra Zeki bey ayrıca bir çözüm iletmiş.Ona özellikle bir bakalım. Zeki bey'in iletisini inceleyelim.Bu konu Günlük hayatta gerekli bir duruma değinmişsiniz.

 

[mesut.ozcanli]

Anladım Mesut Bey. Benden sonra Zeki bey ayrıca bir çözüm iletmiş.Ona özellikle bir bakalım. Zeki bey'in iletisini inceleyelim.Bu konu Günlük hayatta gerekli bir duruma değinmişsiniz.

Teşekkür ederim. evet çözülebilirse gerçekten birçok kişinin işini kolaylaştıracak bir iş olur.

Kolaylıklar.

 

[mesut.ozcanli]

Muzaffer bey merhaba,
her ay için ayrım gelen mail tarihine göre yapılacak. mailler ayda bir defa ve bir sonraki ayın birinde gelecek. (ocak ekstresi , şubatın 1inde gelecek)
ayrıca gelen mail adresinden de klasör adı belirlenecek (örneğin: mail: ekstre@ekstre.yapikredi.com.tr adresinden geldiyse klasör adı yapıkredi olacak gibi düşünebilirsiniz)

ilginiz için teşekkür ederim.
Sayg.

Bunun en iyi yolu, Gelen Kutusu' na mesaj geldiğindeki olayı (Event) yakalamaktır. Gönderen uzantısı ilgili bankanın uzantısı ise, dosya ekini diske kaydedecek yordamı çağırmak yeterli olacaktır. Olay yakalama için aşağıdaki bağlantıdan fikir edinebilirsiniz...

How to run a VBA macro when new mail is received in Outlook

Example code showing how to run a VBA macro when new mail is received in Outlook using an event handler in VBA.

www.tachytelic.net

Option Explicit
Private WithEvents inboxItems As Outlook.Items

Private Sub Application_Startup()
  Dim outlookApp As Outlook.Application
  Dim objectNS As Outlook.NameSpace

  Set outlookApp = Outlook.Application
  Set objectNS = outlookApp.GetNamespace("MAPI")
  Set inboxItems = objectNS.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub inboxItems_ItemAdd(ByVal Item As Object)
On Error GoTo ErrorHandler

Dim Msg As Outlook.MailItem
Dim MessageInfo
Dim Result
If TypeName(Item) = "MailItem" Then
    MessageInfo = "" & _
        "Sender : " & Item.SenderEmailAddress & vbCrLf & _
        "Sent : " & Item.SentOn & vbCrLf & _
        "Received : " & Item.ReceivedTime & vbCrLf & _
        "Subject : " & Item.Subject & vbCrLf & _
        "Size : " & Item.Size & vbCrLf & _
        "Message Body : " & vbCrLf & Item.Body
    Result = MsgBox(MessageInfo, vbOKOnly, "New Message Received")
End If

ExitNewItem:
    Exit Sub

ErrorHandler:
    MsgBox Err.Number & " - " & Err.Description
    Resume ExitNewItem
End Sub

.

ilginiz için teşekkürler Zeki bey, makrodan hiç anlamıyorum umarım anlayan kişilere bir ışık olur..

Selamlar.

 

[mesut.ozcanli]

Merhabalar,
Bu konu ile ilgili bir cozumu olan yok sanirim ????