Problem z wgraniem kontaktów do outlook'a

[mikiel]

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

[pmsocho]

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

[mikiel]

Nie działa albo nie wiem jak to zrobic mozna jaśniej

[pmsocho]

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 (27.57 KiB) Przeglądane 792 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.

[mikiel]

No super wszystko ładnie czyta ale mam problem, Outlook się zacina i wyłącza przy kopiowaniu kontaktów ;/

[pmsocho]

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?

[michu]

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.

[mikiel]

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?

[pmsocho]

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]

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.

[mikiel]

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 ?

[pmsocho]

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

[OShon]

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

[pmsocho]

Dzięki Oshon. Nie ma to jak dobry koder

[mikiel]

super wielkie dzieki , torche mi to zajelo zanim znalazlem gdzie mam wpisac ten kod i jak go obslugiwac no ale udalo sie ;] dzieki