• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

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,506
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
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: 23

ilhanyıldız

Yeni Üye
Katılım
20 Ara 2018
Mesajlar
4
En iyi yanıt
0
Puanları
1
Yaş
31
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