outlook mail excele aktarma

Excel ile MS Outlook, Outlook Express, Gmail vb. programlar ile mail işlemleri hakkındaki bölüm.

Cevap: outlook mail excele aktarma

İleti#21)  Ali ÖZ » 03 Ağu 2018 13:56

Bu şekilde revize edip deneyin.

Kod: Tümünü seç
Private lRow As Long, x As Date, oWS As Worksheet

Sub GetFromInbox()
On Error Resume Next
    Dim olApp As Object, olNs As Object
    Dim oRootFldr As Object
    Dim lCalcMode As Long
    klasor = InputBox("Klasör Belirtin") ' 5 Gönderilmiş Öğeler , 6 Gelen Kutusu ... kendi mailinizdeki klasör numarasına göre seçim yaparsınız
    Set olApp = CreateObject("Outlook.Application")
    Set olNs = olApp.getnamespace("MAPI")
   
    If olNs.GetDefaultFolder(klasor) Is Nothing Then
      MsgBox ("Klasör Numarası Hatalı")
      Exit Sub
    End If

    Set oRootFldr = olNs.GetDefaultFolder(klasor)
    Set oWS = ActiveSheet


    x = Date
    lRow = 2
    lCalcMode = Application.Calculation
    Application.Calculation = xlCalculationManual
    'Application.ScreenUpdating = False
    GetFromFolder oRootFldr
   ' Application.ScreenUpdating = True
    Application.Calculation = lCalcMode

    Set oWS = Nothing
    Set oRootFldr = Nothing
    Set olNs = Nothing
    Set olApp = Nothing
End Sub

Private Sub GetFromFolder(oFldr As Object)
    Dim oItem As Object, oSubFldr As Object

    For Each oItem In oFldr.Items
   
    Range("g1").Value = lRow
        If TypeName(oItem) = "MailItem" Then
      '   If (oItem.UnRead) Then
            With oItem
               If Format(.ReceivedTime, "dd.mm.yyyy") >= "02.08.2018" And Format(.ReceivedTime, "dd.mm.yyyy") <= "02.08.2018" Then
                    oWS.Cells(lRow, 1).Value = .SenderName
                    oWS.Cells(lRow, 2).Value = .to
                    oWS.Cells(lRow, 3).Value = .cc
                    oWS.Cells(lRow, 4).Value = .Subject
                    oWS.Cells(lRow, 5).Value = .ReceivedTime
                    oWS.Cells(lRow, 6).Value = .Body
                   
                    lRow = lRow + 1
                End If
            End With
            'oItem.UnRead = False
          'End If
        End If
    Next
    For Each oSubFldr In oFldr.Folders
        GetFromFolder oSubFldr
    Next
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 39
İleti: 10104
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: outlook mail excele aktarma

İleti#22)  emreoztan1905 » 11 Arl 2018 15:27

merhaba,

Öncelikle çok teşekkür ederim. Ek olarak 3 işlem daha ekleyebilir misiniz?

1) Mail 'den klasör ismine göre excel'e aktarılmaktadır fakat Inbox, Send item, deleted items, drafts ve benzerleri klasörlerden mail almak istediğimiz zaman hata vermektedir.
2) Outlook 'ta ki tüm klasörler de ki mailleri almak istediğimiz zaman çok fazla olduğu için belli seviye de kesmektedir, Body kısmı alınmaz ise tüm klasörler gelmektedir. Çok fazla mail olmasına rağmen body kısmını da almamız mümkün müdür ?
3) Mail'lerimiz çok fazla olduğu zaman "archive"'e alıyoruz burada ki verileri almanın bir yöntemi var mıdır?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
emreoztan1905
Yeni Başlamış
 
Adı Soyadı:rasim emre öztan
Kayıt: 26 Kas 2010 16:13
İleti: 69
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: eskişehir

Cevap: outlook mail excele aktarma

İleti#23)  emreoztan1905 » 26 Arl 2018 22:43

merhaba,

Bu konu da yardımlarınızı rica ederim.
Kullanıcı avatarı
emreoztan1905
Yeni Başlamış
 
Adı Soyadı:rasim emre öztan
Kayıt: 26 Kas 2010 16:13
İleti: 69
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: eskişehir

Cevap: outlook mail excele aktarma

İleti#24)  abdi123456 » 04 Mar 2019 21:10

Değerli üsdatlar merhaba,

Arşivdeki mailleri de excele aktarma şansımız oluyor mu ?

Destek için çok teşekkür ederim.
Kullanıcı avatarı
abdi123456
Siteye Alışmış
 
Kayıt: 29 Ekm 2014 20:09
Meslek: bilgi işlem
Yaş: 26
İleti: 226
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: outlook mail excele aktarma

İleti#25)  muyat » 15 Nis 2020 20:48

Konu ile ilgili oldugu için sorayım dedim.
İlk sayfadaki dosya ile mailleri arattıgımda son 15 gün okunan veya okunmayan mailleri değil,daha eski mailleri bulup getiriyor.?Bunun nedeni nedir
Kullanıcı avatarı
muyat
 
Kayıt: 20 Kas 2017 15:13
Meslek: memur
Yaş: 36
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MANİSA

Cevap: outlook mail excele aktarma

İleti#26)  muyat » 15 Nis 2020 22:27

Burda hata alıyorum
Resim
Kullanıcı avatarı
muyat
 
Kayıt: 20 Kas 2017 15:13
Meslek: memur
Yaş: 36
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MANİSA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: outlook mail excele aktarma

İleti#27)  Tarkan VURAL » 22 Nis 2020 13:54

Merhaba,
Son 15 günlük epostaları analiz etmek istiyorsanız, baktığınız tarih kriterini buna göre ayarlamalısınız.

Kod: Tümünü seç
if bugununtarihi-epostanintarihi<=15 then
... blablabla
end if
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27311
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Önceki

Forum Excel ile Mail İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 0 misafir

Bumerang - Yazarkafe