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

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,307
En iyi yanıt
10
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Versiyon
Office 365 TR+EN
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.

PHP:
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

  • Gelen Kutusundaki Konu Adına Göre Mail İçeriğini Listelemek.rar
    13.5 KB · Görüntüleme: 21

ilhanyıldız

Yeni Üye
Katılım
20 Ara 2018
Mesajlar
4
En iyi yanıt
0
Puanları
1
Yaş
28
Konum
İstanbul
Ad Soyad
İlhan Yıldız
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