outlooktaki mail adreslerini excele kaydetmek

[monopol]

merhaba arkadaşlar,

outlookta adres defterinde kayıtlı olan mail adreslerini excele nasıl kaydedebilirim.

 

[ziya]

Merhaba,
Outlokta sırasıyla
-Dosya
-Ver , Adres defteri verme aracı açılacak, burada
-Metin dosyası (virgüller ayrılmış değerler) 'i seçiniz. ve Ver'i tıklayınız.
Size aktarmak istediğiniz verilerden aktarmak istediklerinizi ve istemediklerinizi işaretleyebileceğiniz bir pencere açılacak. Gerekli seçimi yaptıktan sonra, Gözat'tan dosyayı kaydedeceğiniz yeri belirledikten sonra İleri ve Dosya adı belirleyip son 'u tıkladığınızda verileriniz yeni açılan bir excel dosyasına aktarılacaktır.
Selamlar,

 

[monopol]

merhaba,
deniyorum ama olmadı.
şöyle yaptım; dosya / al ve ver / alma ve verme sihirbazı çıkıyor orda bulunanlar;
Başka Dosya veya Proğramdan alma
dosyaya verme
icalender veya vcalender dosyası(.vcs )alma
internet posta hesabıayarları alma
internet posta ve adreslerini alma
vcard dosyası(.vcf ) alma

ne yapmam gerekiyor bundan sonrasında?

ilginiz için teşekkürler bu arada.

 

[ziya]

merhaba,
deniyorum ama olmadı.
şöyle yaptım; dosya / al ve ver / alma ve verme sihirbazı çıkıyor orda bulunanlar;

dosyaya verme


ne yapmam gerekiyor bundan sonrasında?

ilginiz için teşekkürler bu arada.

Merhaba,
önceki mesajı yazmadan önce ben de ekrana gelenleri adım adım yazdım size. Ama görüyorum ki arada fark var. "dosyaya verme" seçin, sanıyorum orada "Metin dosyası (virgüller ayrılmış değerler)" çıkacaktır. Onu seçin, aktarılan bilgiler zaten excel dosyası olacaktır.
Selamlar,

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodları standart bir modül sayfasına kopyalayıp, çalıştırınız.

Option Explicit
Sub Adres_Defterini_Getir()
    
    Dim apP As Object
    Dim ssS As Object
    Dim Fld As Object
    Dim sh As Worksheet
    Dim i As Integer
    Dim z As Boolean
    
    On Error Resume Next
    Set apP = GetObject(, "Outlook.Application")
    If Err.Number <> 0 Then: z = True
    On Error GoTo 0
    
    If apP Is Nothing Then
        Set apP = CreateObject("Outlook.Application")
    End If
    
    Set ssS = apP.GetNamespace("MAPI")
    ssS.Logon
    
    Set sh = Sheets(1)
    Set Fld = ssS.AddressLists(1)
    
    For i = 1 To Fld.AddressEntries.Count
        sh.Cells(i + 1, 1).Value = Fld.AddressEntries(i)
        sh.Cells(i + 1, 2).Value = Fld.AddressEntries.Item(i).Address
    Next i
    
    sh.Cells(1, 1).Value = "Kişi"
    sh.Cells(1, 2).Value = "E-mail"
    
    If z = True Then: apP.Quit
    
    Set sh = Nothing
    Set ssS = Nothing
    Set apP = Nothing
    
End Sub

 

[ziya]

Merhaba,
Sn Pazarçevirdi denedim , "License information for this component not found." mesajı verdi.
Selamlar,

 

[Ferhat Pazarçevirdi]

Bilgisayarınızda Microsoft Outllook kurulu mu? Mail gönderimi için Outllok Express mi, Microsoft Outllook mu kullanıyorsunuz ?

Ayrıca VBE'de Tools->References'da; Microsoft Outlook XX.X Object Library var mı? Kontrol ediniz. Varsa işaretleyip deneyiniz.

 

[monopol]

Merhaba,

Bilgisayarımda Microsoft Outlook kurulu ve references - VBAProject seçeneğinde belirttiğiniz seçenek yok, işe yarar mı bilmem ama Microsoft Outlook 11.0 Object Library var.

 

[baydeniro]

Çok teşekkürler

 

[accilisse]

sayın ferhat hocam elinize sağlık,
peki sadece inbox daki mail adreslerini nasıl listeleriz.
bunula ilgili bir örnek verebilirmisiniz?

 

[spacebar]

Merhabalar. Outlook 2013 kullanıyorum. Bu kodlar çalışmadı. Ne yapmam gerekiyor. Aç ve dışarı aktarda maillerin tüm içeriğini aktarıyor. Sadece adresleri alabileceğim bit çözüm varmıdır.