Uygulama Gelen Kutusundaki Konu Adına Göre Mail İçeriğini Listelemek

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,054
En İyi Yanıtlar
77
Beğeniler
855
Puanları
113
Konum
İstanbul
#1
Outlook Gelen Kutunuzda, belirli konudaki maillerin içeriklerini Excel'de alt alta listeleyebilirsiniz.
Aşağıdaki kodlar, tüm postaların konuları tek tek sorgulanıp, konu (Subject) içeriğinde afs geçen tüm postaların içeriklerini A sütununda alt alta listeler.
Dilerseniz aranan konuyu bir hücreye yazıp, o hücre adresini de koddaki ilgili yere If .Subject Like "*afs*" Then yazarak değişken konulara göre listeleme de yaptırılabilir.

VBA:
Const Gelen = 6
Sub ExcelTurkey()
    Dim Outlook As Object, ns As Object, GelenKutusu As Object
    Set Outlook = CreateObject("Outlook.Application")
    Set ns = Outlook.GetNamespace("MAPI")
    Set GelenKutusu = ns.GetDefaultFolder(Gelen)
    Fonksiyon GelenKutusu
    MsgBox "Bitti", vbInformation, "Www.ExcelTurkey.Com"
    Set GelenKutusu = Nothing: Set ns = Nothing: Set Outlook = Nothing
End Sub

Private Sub Fonksiyon(mailim As Object)
    Dim posta As Object, klasorler As Object
    For Each posta In mailim.Items
        If TypeName(posta) = "MailItem" Then
            With posta
                If .Subject Like "*afs*" Then
                    Range("A65536").End(3)(2, 1) = Replace(.body, Chr(10), " ")
                End If
            End With
        End If
    Next posta
    For Each klasorler In mailim.Folders
        Fonksiyon klasorler
    Next
    Columns.AutoFit
End Sub
Örnek dosyayı da ek'te bulabilirsiniz. (y)
 

Ekli dosyalar

Katılım
20 Ara 2018
Mesajlar
4
En İyi Yanıtlar
0
Beğeniler
0
Puanları
1
Yaş
26
Konum
İstanbul
Ad Soyad
İlhan Yıldız
#2
merhaba ücreti karşılığında outlooktan excele veri taşıma için sizinle görüşebilir miyim ?
veya bu işde bana yardımcı olabilecek bir kişi ile tanıştırabilir misiniz ?

Şimdiden teşekkürler
 
Üst Alt