+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Outlook Adres Defterine Programınızdan Kişi Ekleyin (/konu-outlook-adres-defterine-programinizdan-kisi-ekleyin.html)
Outlook Adres Defterine Programınızdan Kişi Ekleyin - cuneyt - 12/06/2009
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.
Cvp: Outlook Adres Defterine Programınızdan Kişi Ekleyin - simendifer - 13/06/2009
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
Cvp: Outlook Adres Defterine Programınızdan Kişi Ekleyin - okileturc - 13/06/2009
Çok güzel çalışıyor, tşk.
Cvp: Outlook Adres Defterine Programınızdan Kişi Ekleyin - mesudi - 13/06/2009
Paylaşım için teşekkürler.
Cvp: Outlook Adres Defterine Programınızdan Kişi Ekleyin - cuneyt - 13/06/2009
(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.
Cvp: Outlook Adres Defterine Programınızdan Kişi Ekleyin - Solarfall - 04/02/2010
Teşekkürler eline sağlık.
Peki Outlook'taki adress defterini kendi programımıza atmak için ne yapabiliriz?