Skip to main content

AccessTr.neT


Outlook Adres Defterine Programınızdan Kişi Ekleyin

Outlook Adres Defterine Programınızdan Kişi Ekleyin

#1
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.
.rar OutlookaKisiEkle.rar (Dosya Boyutu: 16 KB | İndirme Sayısı: 121)
Cevapla
#2
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
Son Düzenleme: 13/06/2009, 11:32, Düzenleyen: simendifer.
Cevapla
#3
Çok güzel çalışıyor, tşk.
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
Paylaşım için teşekkürler.
Cevapla
#5
(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.
Cevapla
#6
Teşekkürler eline sağlık.

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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da