Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
12/06/2009 23:09
Konu Sahibi
cuneyt
Yorumlar
5
Okunma
2553
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy

cuneyt

Aktif Üye
Kullanici Avatari
Aktif Üye
321
29/10/2008
81
İstanbul
Ofis 2007
08/06/2016,10:56
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.


Ek Dosyalar
.rar   OutlookaKisiEkle.rar (Dosya Boyutu: 16 KB / İndirme Sayısı: 118)
Cevapla

simendifer


Kullanici Avatari
Altın Üye
E.... Ç....
892
30/10/2008
324
Çankırı
emekli
Ofis 2007
Bugün,17:03
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


Cevapla

okileturc

Aktif Üye
Kullanici Avatari
Aktif Üye
O.... V....
966
18/03/2009
459
İzmir
Ofis 2003
23/05/2016,13:38
Çok güzel çalışıyor, tşk.


okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

mesudi

Aktif Üye
Kullanici Avatari
Aktif Üye
M.... A....
249
30/10/2008
63
İstanbul
Ofis 2003
12/12/2016,17:50
Paylaşım için teşekkürler.


Cevapla

cuneyt

Aktif Üye
Kullanici Avatari
Aktif Üye
321
29/10/2008
81
İstanbul
Ofis 2007
08/06/2016,10:56
(13/06/2009, 11:31)simendifer Adlı Kullanıcıdan Alıntı: 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

Solarfall

Üye
Kullanici Avatari
Üye
5
2
16/10/2009
0
Bilecik
Ofis XP
15/06/2010,15:06
Teşekkürler eline sağlık.

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


Solarfall, 16-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Microsoft Outlook Randevu Ekleme Uygulaması ozanakkaya 11 5.693 13/02/2017, 19:06 husem
  Outlook Benzeri Menü Bilgisayarcı 36 10.789 10/01/2016, 13:09 atoz112
  Word İle Adres Mektup Birleştirme Örneği. (Otomatik Sözleşme Yazıcı.) Kur@l 10 5.644 18/11/2012, 15:18 DUAYEN
  Word`e Göndermek mi Adres Mektup Birleştirme mi? Kur@l 18 7.876 15/11/2012, 21:27 Kur@l
  İşlemci + Harddisk + MAC adres + Bios seri No aynı anda mehmetdemiral 9 3.712 25/03/2012, 11:12 assenucler

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.