- Katılım
- 25 May 2018
- Mesajlar
- 1,609
- En iyi yanıt
- 14
- Puanları
- 113
- Konum
- İstanbul
- Web sitesi
- excelarsivi.com
- Ad Soyad
- Murat OSMA
- Office Vers.
- Microsoft 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
Örnek dosyayı da ek'te bulabilirsiniz.
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.