kayıtlı mail listesini listeleme

[Kemal Demir]

Outlook'umuza kayıtlı mailleri Listbox'a nasıl ekleyebiliriz.Yada ekleme imkanımız varmıdır arkadaslar.Bu konuda bilgi sahibi olan kişiler yardımcı olabilirmi.

 

[Kemal Demir]

Merhaba Arkadaslar,

Konu Hakkında Israrcı durumuna gerçekten dusmek ıstemezdım.Peki Sun u Öğrenebilirmiyim.Yukarıdaki sorumun Çözümü mevcutmudur?

İyi Çalışmalar.

 

[veyselemre]

Haluk Beyin yapmış olduğu Outlook'a Mail Listesi Ekleme Çalışmasındaki kodları tersten düzenleyerek alınabilir.

Sub ListeAl()
    Dim MyOutlook As Outlook.Application
    Dim objContact As ContactItem
    Dim NS As NameSpace
    Dim i As Long
    
    Set MyOutlook = New Outlook.Application
    Set NS = MyOutlook.GetNamespace("MAPI")
    
    'Set MyFolder = NS.Folders("Personal Folders").Folders("Contacts").Folders("OZEL")
    Set MyFolder = NS.Folders("Kişisel Klasörler").Folders("Kişiler")
    
    Set myitems = MyFolder.Items

    For Each objContact In myitems
    i = i + 1
            With objContact
                Cells(i, 1) = .FullName
                Cells(i, 2) = .Email1Address
                Cells(i, 3) = .CompanyName
                Cells(i, 4) = .BusinessTelephoneNumber
                Cells(i, 5) = .MobileTelephoneNumber
                Cells(i, 6) = .HomeTelephoneNumber
            End With
    
    Next objContact
    Set NS = Nothing
    Set MyFolder = Nothing
    Set myitems = Nothing
    Set MyOutlook = Nothing
End Sub

 

[Haluk]

Yoksa, MS Outlook' da Inbox içindeki mevcut e-mail'leri ListBox' da mı görmek istiyordunuz ?

Bununla ilgili bir dosya ektedir ...

 

[Kemal Demir]

Öncelikle Sordugum soruya karsı duyarlılıgınızdan dolayı sizlere tesekkur ederim.

Veysel ßey'in yazmıs oldugu kodda;

Kontak Kişileri Listelemekte(Zannedersem Soruyu yanlıs sormusum).Gayet Güzel ve Başarılı bir çalışma ama Aslına bakarsanız istediğim bu değildi.

Haluk ßey'in Çok güzel görsellik açısındanda mukemmel bir çalışma Aşagıda vermiş oldugunuz koddaki alıntıda.

 Set NewMail = MyInbox.Items(i)
            MySh.Cells(i, 1) = NewMail.SenderName
            MySh.Cells(i, 2) = NewMail.ReceivedTime
            MySh.Cells(i, 3) = NewMail.Subject
[b]'            MySh.Cells(i, 4) = NewMail.[/b]
Kalın belirtiğim sırada . Sonrasındaki prosedur ne olması gerekir ki kişinin kullanılabilir mail adresi görünsün.

Yukarıdaki anlatımımın Biraz karısık oldugunu dusunerek soyle ozetlemek istiyorum.

İsim:
Kemal Demir

Mail:
kemaldemir@gfkturkiye.com

Umarım anlatabilmişimdir.Hepinize tekrar tekrar teşekkur ederim.

 

[Haluk]

Eğer kullandığınız Office versiyonundaki güvenlik uygulamaları müsaade ederse, ekteki dosya istediğinizi karşılar.

Benim kullandığım Office2000 ile herhangibir problem yok, sadece e-mail'leri gönderenlerin adreslerinin tek tek çözülmesi biraz vakit alıyor ....

 

[Kemal Demir]

Haluk ßey,

Anlayısınız için teşekkur ederim.Ben çözüme ulaşamadım.Ama hazırlamıs oldugunuz ornekler ileriki zamanlarda işime yarayacagı kanısındayım.

Sizden Soru için tekrar bir çözüm talep etmeyeceğim.Yalnız Küçük birşey oğrenmek istiyorum.Olmamasının nedeni nedir.?

İyi Calismalar.

 

[Haluk]

Yukarıda yazdığım gibi ... kullandığınız Office versiyonu ile ilgili.

 

[Haluk]

Son olarak, bir de ekli dosyayı deneyin ...

 

[Kemal Demir]

Teşekkurler,

İyi Çalışmalar.

 

[Levent Menteşoğlu]

Daha önceden yine Haluk Hocamın hazırlamış olduğu bir kodda bende sürekli bir uyarı mesajı ile karşılaşmıştım. Bunu sebebini şöyle açıklayabiliriz. Outlook bir e-mail programı olması sebebiyle dışarıdan gelebilecek saldırılara en açık programlardan biridir. Özellikle e-mail listelerine ulaşmaya çalışan her kodlamaya kolayca izin vermesi düşünülemez. (bu kendi makrosu olsa bile)

 

[Haluk]

En son eklediğim MesajNo:9 ekindeki dosyada öyle bir güvenlik uyarısı da vermemesi gerekir ama bilemiyorum artık ...

 

[Kemal Demir]

Büyüksün Usta.

Ne diyeyim.Tebrikler.Hayrınlıkla İzledim.

Sn.Leventm sizinde açıklamanız için sizede ayrıca teşekkur ederim.

İyi Çalışmalar.