Problem z wgraniem kontaktów do outlook'a

Pytania, problemy, uwagi związane ze starszymi wersjami Microsoft Outlook 2003, 2002 (XP), 2000, 98

Moderator: Moderatorzy

Problem z wgraniem kontaktów do outlook'a

Postprzez mikiel » Cz 09.10.2008 09:01

Witam,
chce eksportować liste kontaktowy z exela do outloka ale wyskakuje mi dziwny blad.
Moze ktoś wie jak przerobić Excela aby widział go outlook

w danym pliku excel sa nastepujace kategorie
FIRMA, NAZWA, MIASTO, ADRES EMAIL, KATEGORIA
Załączniki
bez tytułu.JPG
bez tytułu.JPG (100.02 KiB) Przeglądane 921 razy
mikiel
 
Posty: 6
Dołączył(a): Cz 09.10.2008 08:51

Re: Problem z wgraniem kontaktow to outlook'a

Postprzez pmsocho » Cz 09.10.2008 09:52

Oprócz tego że w pliku Excel'a masz dane które chcesz importować to dodatkowo lista ta musi zostać nazwana. Takie małe "ale" w przypadku importu z Excel'a :)
Jedyne co musisz zrobić aby to zaczeło działać to nazwać ten zakres w którym masz w excelu listę. Aby to zrobić zaznacz całą listę, następnie kliknij myszką w Polu nazwy, wpisz tam Kontakty i naciśnij enter aby to zaakceptować. Zapisz pliczek i spróbuj go ponownie zaimportować do Outlook'a :)
pmsocho
 
Posty: 764
Dołączył(a): Śr 24.01.2007 01:50
Lokalizacja: Sochaczew

Re: Problem z wgraniem kontaktow to outlook'a

Postprzez mikiel » Cz 09.10.2008 11:36

Nie działa albo nie wiem jak to zrobic :) mozna jaśniej :)
mikiel
 
Posty: 6
Dołączył(a): Cz 09.10.2008 08:51

Re: Problem z wgraniem kontaktow to outlook'a

Postprzez pmsocho » Cz 09.10.2008 12:00

Zaznaczasz listę w Excel'u, klikasz w polu nazwy (jak na rys poniżej), wpisujesz nazwę kontakty a następnie enterem akceptujesz. Po tej czynności import powinien przebiec bez problemu.
obrazek-01.gif
obrazek-01.gif (27.57 KiB) Przeglądane 902 razy


Pamiętaj też że nazwy kolumn w Excel'u powinny być takie same jak nazwy pól w Outlook'u jeśli tak nie jest to musisz wykonać mapowanie ale o to pyta kreator przy imporcie.
pmsocho
 
Posty: 764
Dołączył(a): Śr 24.01.2007 01:50
Lokalizacja: Sochaczew

Re: Problem z wgraniem kontaktow to outlook'a

Postprzez mikiel » Pt 10.10.2008 09:59

No super wszystko ładnie czyta ale mam problem, Outlook się zacina i wyłącza przy kopiowaniu kontaktów ;/
mikiel
 
Posty: 6
Dołączył(a): Cz 09.10.2008 08:51

Re: Problem z wgraniem kontaktow to outlook'a

Postprzez pmsocho » Pt 10.10.2008 10:10

A masz dobrze przygotowane dane. Nie ma jakiś dziwnych znaków których Outlook nie może odczytać? Spróbuj importu w mniejszych porcjach - na przykład po 20-30 pozycji i zobacz czy to pójdzie. Czy pojawia się jakikolwiek komunikat z błędem? Czy mapowanie pól robisz prowidłowo?
pmsocho
 
Posty: 764
Dołączył(a): Śr 24.01.2007 01:50
Lokalizacja: Sochaczew

Re: Problem z wgraniem kontaktow to outlook'a

Postprzez michu » Pt 10.10.2008 14:53

Z moich doświadczeń też wynika, że Outlook ma bardzo poważne problemy z importem danych, jeśli jest ich trochę więcej. Bezpieczną liczbą wydaje się, tak jak napisał pmsocho, jakieś 30 elementów. Przyznaję, bardzo to upierdliwe, jeśli ktoś ma trochę więcej danych do zaimportowania.
Pozdrawiam
Michu
michu
 
Posty: 4190
Dołączył(a): N 05.02.2006 17:49
Lokalizacja: Jelenia Góra

Re: Problem z wgraniem kontaktow to outlook'a

Postprzez mikiel » Pn 13.10.2008 09:09

No niestety nawet po jak robię po 10 kontaktów to i tak się zacina ( pasek dochodzi do konca i tak czekam z 15 minut i wyskakuje błąd i program się wyłącza). Daje tez ss pierwszych kilku kontaktów które chce zaimportować, i zaznaczyłem na czerwono luki, chodzi mi o to czy te luki jakkolwiek wpływają na transfer?
Załączniki
excel.JPG
excel.JPG (115.53 KiB) Przeglądane 870 razy
błąd.JPG
błąd.JPG (50.88 KiB) Przeglądane 869 razy
mikiel
 
Posty: 6
Dołączył(a): Cz 09.10.2008 08:51

Re: Problem z wgraniem kontaktow to outlook'a

Postprzez pmsocho » Pn 13.10.2008 11:49

Puste komórki mechanizm importu powinien ignorować także zapewne nie to jest problemem.
Podejrzewam, że coś jest nie tak z danymi które chcesz importować. Jeśli możesz to podeślij mi ten plik Excel'a z danymi to sprawdzę go u siebie. Wyślij na: piotr.majcher(małpa)wszim-sochaczew.edu.pl
pmsocho
 
Posty: 764
Dołączył(a): Śr 24.01.2007 01:50
Lokalizacja: Sochaczew

Re: Problem z wgraniem kontaktów do outlook'a

Postprzez pmsocho » Pn 13.10.2008 13:58

OK. Otrzymałem twój pliczek Excela. Źle zdefiniowałeś obszar który zawiera dena do importu. Zaznaczyłeś całe kolumny zaczynając od A do E i Outlook chce importować 65536 kontaktów dlatego się wywala. W twoim przypadku zdefiniownay obszar powinien być od A1 do E121. Zmień to i spróbuj ponownie. Pamiętaj aby przy imporcie zrobić mapowanie pól bo w twoim pliku nazwy kolumn są inne niż nazwy akceptowane w kontaktach przez Outlook'a.

Aby przedefiniować nazwę zakresu kliknij w Excel'u menu Wstaw > Nazwa > Definiuj... następnie zaznacz twój obszar i kliknij przycisk Usuń. Następnie na nowo zdefiniuj obszar ale tylko komórki zawierające dane do importu czyli w Twoim przypadku A1:E121.

Powinno być OK.
pmsocho
 
Posty: 764
Dołączył(a): Śr 24.01.2007 01:50
Lokalizacja: Sochaczew

Re: Problem z wgraniem kontaktów do outlook'a

Postprzez mikiel » Wt 14.10.2008 09:11

O super :) wielkie dzięki pmsocho wszystko ładnie działa :) powysyłałem maile, ale jeszcze mam pytanie, czy jest możliwość przetransferowania tych kontaktów do formatu Vcard (vcf) z poziomu Outlook albo z Excela ?
mikiel
 
Posty: 6
Dołączył(a): Cz 09.10.2008 08:51

Re: Problem z wgraniem kontaktów do outlook'a

Postprzez pmsocho » Wt 14.10.2008 10:06

Witaj,
Cieszę się, że problem w końcu rozwiązany.

Jeśli chcesz wyeksportować kontakty do plików VCF to możesz skorzystać z powyższego makra które przed chwilą znalazłem w sieci:
Kod: Zaznacz cały
Sub Export_PAB_to_vcfs()
Dim myOlApp As Outlook.Application


Dim objContact As ContactItem

Set myOlApp = New Outlook.Application

Set olns = myOlApp.GetNamespace("MAPI")
        ' Set MyFolder to the default contacts folder.
Set myFolder1 = olns.Folders("Foldery osobiste")
Set myFolder = myFolder1.Folders("Kontakty")

     ' Get the number of items in the folder.
NumItems = myFolder.Items.Count

' Loop through all of the items in the folder.
For i = 1 To NumItems
    Set objContact = myFolder.Items(i)
    If Not TypeName(objContact) = "Nothing" Then
        If Not objContact.FullName = "" Then
            strName = "C:\kontakty\" & objContact.FullName & ".vcf"
   
            objContact.SaveAs strName, olVCard
        End If
    End If
Next

MsgBox "Gotowe"

End Sub


Makro zakłada że plik folderów osobistych w Outlook'u nazywa się Foldery osobiste a folder kontaktów nazywa się Kontakty - jeśli u Ciebie jest inaczej to zmień te nazwy w kodzie. Co więcej folder kontakty nie może zawierać grup dystrybucyjnych bo inaczej makro się wykrzaczy - jeśli masz jakieś to na czas eksportu przenieś je do jakiegoś innego folderu.

Makro wyeksportuje kontakty do plików do folderu C:\kontakty
pmsocho
 
Posty: 764
Dołączył(a): Śr 24.01.2007 01:50
Lokalizacja: Sochaczew

Re: Problem z wgraniem kontaktów do outlook'a

Postprzez OShon » Wt 14.10.2008 19:50

Postarałem się poprawić makro

1. Brak deklaracji (dobra praktyka i szybsze działanie kodu)
2. Lepiej wskazywać folder niż go wpisywać (w starczym kodzie nie zadziała jeśli to podkatalog)
3. Należy aby kod utworzył Katalog "kontakty" przed exportem danych
4. Instrukcja obejścia dla "list dystrybucyjnych"
5. instrukcja przerobienia danych w tle (możliwość przełączenia w trakcie wykonywania, oraz w następstwie możliwość dodania bara postępu)
6. Opróżnienie zarezerwowanej pamięci dla zmiennych

Kod: Zaznacz cały
Sub Export_PAB_to_vcfs()
    Dim myOlApp As Outlook.Application
    Dim objContact As ContactItem
    Dim olNs As NameSpace
    Dim NumItems As Long, i As Long, strName As String
    Dim myFolder As MAPIFolder
   
    Set myOlApp = New Outlook.Application
    Set olNs = myOlApp.GetNamespace("MAPI")
   
    Dim bExitFor: bExitFor = False
    Do
        Set myFolder = Application.GetNamespace("MAPI").PickFolder
        If myFolder Is Nothing Then
            Exit Sub
        End If
       
        If myFolder.DefaultMessageClass <> "IPM.Contact" Then
            MsgBox "Wpisanie inf do folderu ''" & myFolder.Name & "'' nie jest możliwe." & vbCr _
                & "Wybierz folder kontaktow!", vbExclamation, " Informacja o błędzie"
            Set myFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
        Else
            bExitFor = True
           
        End If
    Loop While Not bExitFor
 
    Set myFolder = Application.GetNamespace("MAPI").GetFolderFromID(myFolder.EntryID, myFolder.StoreID)
    NumItems = myFolder.Items.Count

On Error Resume Next
    MkDir "c:\kontakty"
   
   
    For i = 1 To NumItems
    DoEvents
        Set objContact = myFolder.Items(i)
        If Not TypeName(objContact) = "Nothing" Then
            If Not objContact.FullName = "" Then
                strName = "C:\kontakty\" & objContact.FullName & ".vcf"
       
                objContact.SaveAs strName, olVCard
            End If
        End If
    Next
   
    Set myOlApp = Nothing
    Set olNs = Nothing
    Set myFolder = Nothing
   
    MsgBox "Gotowe"
    End Sub
Pozdrawiam - Oskar Shon MVP Office System, MCC
Moderator Outlook.pl | ExcelForum.pl | WSS.pl | CodeGuru.pl, MSDN dział VBA
Konstruktor rozwiązań biznesowych VBATools.pl, Business Developer Veracomp SA

Skonfiguruj swój pakiet dodatków do Outlooka, Excela, WD i PP
OShon
 
Posty: 6719
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Veracomp SA, VBATools.pl

Re: Problem z wgraniem kontaktów do outlook'a

Postprzez pmsocho » Wt 14.10.2008 21:25

Dzięki Oshon. Nie ma to jak dobry koder :beer:
pmsocho
 
Posty: 764
Dołączył(a): Śr 24.01.2007 01:50
Lokalizacja: Sochaczew

Re: Problem z wgraniem kontaktów do outlook'a

Postprzez mikiel » Cz 16.10.2008 08:14

super wielkie dzieki :), torche mi to zajelo zanim znalazlem gdzie mam wpisac ten kod i jak go obslugiwac no ale udalo sie ;] dzieki
mikiel
 
Posty: 6
Dołączył(a): Cz 09.10.2008 08:51


Powrót do Microsoft Outlook

Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników i 1 gość