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ş: 37
İleti: 9671
 
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ş: 25
İleti: 209
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

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

Forum Excel ile Mail İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

Bumerang - Yazarkafe