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.
OutlookaKisiEkle.rar
(Dosya Boyutu: 16 KB | İndirme Sayısı: 121)
