AccessTr.neT

Tam Versiyon: Outlook Adres Defterine Programınızdan Kişi Ekleyin
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhaba,
Outlook Adres defterinize kendi programınızdan kişi ekleyebilirsiniz.
Daha önce telefon defteri veya adres defteri adıyla arkadaşlarımız programlar eklemişti, bu olay o programlara uygulanarak outlooka aktarılabilir.

tek tıklamayla programın çalışma mantığı şöyle:

ilk etapta Tool/References'ten Microsoft Outlook 11. Object Library seçili hale getiriyoruz;
Dim x As Outlook.Application
Dim y As Outlook.NameSpace
Set x = CreateObject("Outlook.Application")
Set y = x.GetNamespace("MAPI")
y.Logon

ile outlooka login oluyorsunuz. (outlooku açtırmadan kendinizi tanıtıyorsunuz. eğer girişe şifre konulduysa bu durumda zaten sizden şifre isteyecektir. şifre yok ise hiç bir şey sormadan direkt kişiyi ekler.)
Daha sonra eklenecek kişinin bilgilerini aktarma işlemi yapar:

Dim yeni_kisi As Outlook.ContactItem
Set yeni_kisi = x.CreateItem(olContactItem)
With yeni_kisi
.FullName = FullName
.Birthday = Birthday
.CompanyName = CompanyName
.HomeTelephoneNumber = HomeTelephoneNumber
.Email1Address = Email1Address
.JobTitle = JobTitle
.HomeAddress = HomeAddress
End With

bundan sonrada kayıt işlemi yaparak bilgi verir.

yeni_kisi.Save
MsgBox "Yeni kişi başarıyla eklendi", vbInformation, "Durum"


Ayrıca accessten yapacağınız programlarınıza outlooktaki gelen maillerinize de bakabilirsiniz. bunun için view ekledim, activex denetimlerinden ekleme yapabilirsiniz.

yapmış olduğum örnek ilişikte.

saygılar.
Hocam elinize saglık emek vermiş yapıp bizlerle paylaşmıişsınız teşekkürler
benim Outlook express 6.0
ekteki hata resminden anlayacagınız gibi bir hata iletisi aldım referanslarda istediğiniz degişikliğide yaptım ama çalıştıramadım sorun nedir acaba kolay gelsin
Çok güzel çalışıyor, tşk.
Paylaşım için teşekkürler.
(13/06/2009, 11:31)simendifer yazdı: [ -> ]Hocam elinize saglık emek vermiş yapıp bizlerle paylaşmıişsınız teşekkürler
benim Outlook express 6.0
ekteki hata resminden anlayacagınız gibi bir hata iletisi aldım referanslarda istediğiniz degişikliğide yaptım ama çalıştıramadım sorun nedir acaba kolay gelsin

Merhaba Hocam,
outlook express için farklı bir yol izlemek gerekecek. benim sunduğum örnek microsoft outlook için. express için sanırım ocx dosya gerekecek. yine de ayrıca bakarım.
saygılar.
Teşekkürler eline sağlık.

Peki Outlook'taki adress defterini kendi programımıza atmak için ne yapabiliriz?