Outlook' ta Kişiler Klasörüne dosyadan ekleme yapmak

[tamer42]

Merhabalar;

Outlook' ta Kişiler(Contacts) Klasörüne yeni kişiler eklemek amacıyla;

Daha önceden bu konuyla ilgili hazırladığım bir Excel dosyasından faydalanmak istedim.

File >>> Import and Export... >>> Import from another program or file >>> Microsoft Excel >>> ..........

Buradan ilgili dosyayı seçtikten sonra aşağıdaki hata mesajını veriyor.

Anlayabildiğim kadarıyla Excel dosyasının formatı uymuyor.

Bu dosya içerisinde sırasıyla sutünlara

"Adı" , "Soyadı", "İş Tel", "Cep Tel", "Firma" , "E-Mail adresi "

şeklinde girilidir.

Yardımcı olacak arkadaşlara şimdiden teşekkürler...

İyi Çalışmalar dilerim.

 

[Haluk]

Verdiği hata mesajına bakılırsa, Excel dosyasında sütunlardaki veri alanlarını ayrı ayrı adlandırmanız gerekiyor.

Edit: Bu konuyla ilgili de bir kod hazırlamışım bir zamanlar, şimdi buldum .... :mrgreen:

http://www.excel.web.tr/viewtopic.php?t=10167

 

[tamer42]

Sn Haluk Teşekkürler güzel bir çalışma...

Yalnız bu kodlar üzerinde iki konuda yardımlarınıza ihtiyacım vardır.

.........
Set objOutlook = CreateObject("Outlook.Application")
For i = 2 To NoA
Set objContact = objOutlook.CreateItem(2)
With objContact
.FullName = Cells(i, 1)
.Email1Address = Cells(i, 2)
.Save
End With
..........

1- Contacts klasörü yanında OZEL adında kendime bir kişiler klasörü oluşturmuştum, bilgilerin bu buraya atılması için kodlar üzerinde nasıl bir değişiklik yapılmalıdır.

2- "Ofis Tel", "Cep Tel", "Firma" ve "Ev Tel" bilgilerinin buraya girişinde kullanılacak parametreler konusunda da yardımcı olursanız çok iyi olacak.

İyi Çalışmalar dileklerimle...

 

[Haluk]

Verdiği hata mesajına bakılırsa, Excel dosyasında sütunlardaki veri alanlarını ayrı ayrı adlandırmanız gerekiyor.

Bu dediğimi yapın, bu şekilde gayet rahat yapabilirsiniz.

Ben "OZEL" klasöründe denedim, oldu....

 

[Haluk]

Tekrar merhaba,

Yukarıda bahsedilen işi bu kez Excel VBA altında hazırladığım bir kodla yapmayı başarabildim.

Ekli resimlerde de görüleceği gibi;

1) Excel sayfasında İsim, E-mail, Firma, Ofis Tel, Cep Tel ve Ev Tel sütunları bulunmaktadır.

2) Bu datalar, MS OUtlook'da Personal Folders\Contacts\OZEL klasörüne (Contacts biçiminde) aktarılmaktadır. Kodların doğru çalışması için, sözkonusu OZEL klasörünün, resimde de görüldüğü gibi MS Outlook içinde bu yolda bulunması zorunludur.

3) Kodların yer aldığı Excel dosyasında, VBE kısmında menülerden Microsoft Outlook X.0 Object Library referansı ilave edilmelidir. Kullandığınız MS Outlook versiyonuna göre, X.0 değişecektir.

4) Sayfa üzerindeki MS Outlook'a Ekle ... etiketli butona tıkladığınızda, kodlar çalışacaktır.

5) Data.jpg isimli resim Excel sayfasındaki verileri, Outlook.jpg isimli resim olması gereken klasör yerleşimini ve Contacts-OZEL.jpg isimli resim de, kodların çalışmasından sonra sözkonusu OZEL klasörüne aktarılmış verileri göstermektedir.

Kodların yer aldığı örnek dosya, alttaki mesajdadır.

'*********************************************************************
'*  MS Excel'deki mevcut [Contacts] listesinin MS Outlook' da        *
'*  [Personal Folders\Contacts\OZEL] klasorune aktarilmasi ile       *
'*  ilgili bir calismadir.                                           *
'*                                                                   *
'*  Not: VBE kısmında Microsoft Outlook X.0 Object Library           *
'*       referansı eklenmelidir.                                     *
'*                                                                   *
'*                    Burasi Excel Vadisi ...                        *
'*                       31/01/2006                                  *
'*                                                                   *
'*                         Haluk ®                                   *
'*                                                                   *
'*********************************************************************

 

[Haluk]

Ve bir not:

Eğer verilerin aktarılacağı OZEL klasörü, resimdeki yolda ise yani;

Personal Folders\OZEL ise, o zaman kodda aşağıdaki satırı eskisiyle değiştirmek yeterlidir:

    Set MyFolder = NS.Folders("Personal Folders").Folders("OZEL")

 

[tamer42]

Sn Haluk emek ve destekleriniz için teşekkürler...
Dün işlerimim yoğunluğundan bakamadım. Kusura bakmazsınız inşallah.

Yeni deneme imkanı buldum.

Ben Office -2003 kullanıyorum. Sanırım Personal Folders önceki versiyonlarda var. 2003 versiyonunda Personal Folders klasörünü bulamadım.

zaten;

Set MyFolder = NS.Folders("Personal Folders").Folders("Contacts").Folders("OZEL")

satırında hata verdi.


ikinci olarakta manuel yöntemi denedim...

Verdiği hata mesajına bakılırsa, Excel dosyasında sütunlardaki veri alanlarını ayrı ayrı adlandırmanız gerekiyor.

Aktarım yapmasına yaptı fakat, Satırdaki bilgilerin;

"Adı" , "Soyadı", "İş Tel", "Cep Tel", "Firma" , "E-Mail adresi "

her bir bilgiyi ayrı ayrı birer kişi gibi kaydetti. Yani "adın" yanına "Soyadı", "İş Tel", "Cep Tel", "Firma" , "E-Mail adresi " bilgilerini gtirmedi, onlarıda bağımsız olarak ekledi.

Çalışmalarınızda başarılar dilerim..

 

[Haluk]

Merhaba;

Önce bahsettiğiniz OZEL klasörünü manuel olarak oluşturun [Klasörün içeriği -Contacts- biçiminde olucak.]

Sonra, koddaki "Personal Folders" yazan yere "Kişisel Klasörler" yazıp, deneyin.

 Set MyFolder = NS.Folders("Kişisel Klasörler").Folders("OZEL")

 

[tamer42]

Sn Haluk,

çok teşekkürler...

Tamam dır.

Manuel yöntem neden olmamamış olabilir? Nerede hata yapmışımdır.

İyi Çalışmalar....

 

[can_su]

sayın Super Moderatorum çok teşekkür ederim deneyeceğim burda bulamazsam bu cevabı nerde bulacaktım ki yaşasın excel vadisi

 

[frtsngz]

Merhabalar,

Sanırım aynı sorunu bende yaşıyorum. Ancak tek fark Outlook 2007 ye aktarım yapacak olmam. Translation hatası ile karşılaşıyorum. Yardımcı olabilecek kimse var mıdır ?

 

[frtsngz]

Merhabalar,

Sanırım aynı sorunu bende yaşıyorum. Ancak tek fark Outlook 2007 ye aktarım yapacak olmam. Translation hatası ile karşılaşıyorum. Yardımcı olabilecek kimse var mıdır ?

Kimse yardımcı olmamış ben kendi bulduğum yöntemi anlatayım bari diğer arkadaşlar yararlansın.

Öncelikle her başlık hücresine birer ad belirleyin. Yani B1-C1 olarak yazan yerlere AD-SOYAD görünecek şekilde hücre adı belirleyin. Daha sonra tüm listeyi seçerek aynı hücrelere ad verir gibi listeye de ad verin. Daha sonra outlook wizard'ı ile import listeye verdiğiniz adı seçin ve translation map i uygun şekilde hazırladıktan sonra başarılı bir şekilde kayıtları atabilirsiniz.

 

[cakin27]

merhaba,
hücre adını nasıl değiştiriyorsunuz?

 

[hsayar]

Ofis 2010 için excelden outlok kişi listesi nasıl atılabilir?

 

[NitrateX]

Arkadaşlar Bende Excel De Tek Satırda Alt Alta Yazılı Numaralar Bunu Nasıl Aktarırım Peki Outlooka Bir Türlü Beceremedim Yardımcı Olurmusunuz Lütfen.