Jak programowo importować elementy programu Outlook z programu Access

Numer ID artykułu: 290658 - Zobacz jakich produktów dotyczą zawarte w tym artykule porady.
Rozwiń wszystko | Zwiń wszystko

Na tej stronie

Wersja dla programu Microsoft Outlook 97 niniejszego artykułu, 170320.

Wersja dla programu Microsoft Outlook 98 niniejszego artykułu, 180981.

Wersja dla programu Microsoft Outlook 2000 niniejszego artykułu, 208232.

Streszczenie

Ten artykuł zawiera omówienie oraz przykładowy kod do tworzenia Microsoft Kontakty programu Outlook z informacji przechowywanych w bazie danych programu Microsoft Access. Przykładowy kod w sekcji więcej informacji w tym artykule należy uruchamiać z modułu globalny program Microsoft Access i zapewnia początkowy punkt rozwoju kompletne rozwiązanie.

Więcej informacji

Funkcja importowania i eksportowania w programie Outlook nie zezwala na przywóz lub Eksportowanie informacji w polach zdefiniowanych przez użytkownika (lub właściwości). Aby zaimportować informacje w tych polach może zajść potrzeba utworzenia programowania Roztwór używającego automatyzacji do konwersji danych.

Następujący przykładowy kod w szczególności konwertuje informacje z programu Access na nowo utworzone kontakty programu Outlook przy użyciu obiektów DAO (Data Access). Ze zmianami można użyć jako podstawy dla tego kodu inne typy elementów programu Outlook, takich jak terminy, notatki, zadania, tworzenie i takie.

Istnieje również przegląd oraz przykładowy kod oddzielnych dostępne na Witryna sieci Web firmy Microsoft w następującej lokalizacji. Jest w pierwszym przykładzie dokumentacja.
http://msdn2.microsoft.com/en-us/Office/aa905351.aspx

Uwagi dotyczące programowania

  • Poniższy kod przykładowy używa bazy danych Northwind, dołączone do programu Access 2002. Po zainstalowaniu pakietu Microsoft Office do lokalizacji innej niż domyślna, należy zmienić ścieżkę do bazy danych w kodzie przykładowych.
  • Należy ustawić odwołanie do biblioteki obiektów Microsoft Outlook 10.0. Domyślnie należy ustawić odwołanie do biblioteki obiektów Microsoft DAO 3.6 i Microsoft Office 10.0 Object Library.
  • Typy pól, w tym przykładzie są tekstu, Access i Outlook. Aby przekonwertować pozostałe typy pól, należy zmodyfikować kod odpowiednio.
  • Kontakty są automatycznie umieszczane w domyślnym folderze kontaktu, który znajduje się na tym samym poziomie jak Skrzynka odbiorcza.
  • Metoda CreateItem, w tym przykładzie tworzy nowy kontakt programu Outlook przy użyciu domyślnego formularza domyślnego folderu kontaktów. Jeżeli utworzono niestandardowy formularz kontaktu programu Outlook należy ustawić pole Klasa_wiadomości dla każdego elementu, nazwę formularza niestandardowego.
Firma Microsoft podaje przykłady programowania wyłącznie, bez żadnej rękojmi, wyrażonej wprost ani dorozumianej, w tym także, aby dorozumianych gwarancji przydatności handlowej i/lub przydatności do określonego celu. W tym artykule założono, że użytkownik zna język programowania oraz narzędzia używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu jak działa określona procedura, ale nie będą modyfikować tych przykładów ani dodawać żadnej funkcji i konstruować nowych procedur w celu zaspokojenia określonych potrzeb.
Jeśli ma niewielkie doświadczenie w programowaniu, należy skontaktować się z certyfikowanym partnerem firmy Microsoft lub usługi doradcze firmy Microsoft. Aby uzyskać więcej informacji odwiedź następujące witryny firmy Microsoft w sieci Web:

Certyfikowani partnerzy - firmy Microsoft https://partner.microsoft.com/Global/30000104

Usługi doradcze firmy Microsoft — http://support.microsoft.com/gp/advisoryservice

Aby uzyskać więcej informacji na temat dostępnych opcji pomocy technicznej oraz sposobu kontakt z firmą Microsoft odwiedź następującą witrynę firmy Microsoft w sieci Web:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Przykładowy kod

Sub ExportAccessContactsToOutlook()

   ' Set up DAO Objects.
   Dim oDataBase As DAO.Database
   Dim rst As DAO.Recordset
   Set oDataBase = OpenDatabase _
      ("c:\Program Files\Microsoft Office\Office10\Samples\Northwind.mdb")
   Set rst = oDataBase.OpenRecordset("Customers")

   ' Set up Outlook Objects.
   Dim ol As New Outlook.Application
   Dim olns As Outlook.Namespace
   Dim cf As Outlook.MAPIFolder
   Dim c As Outlook.ContactItem
   Dim Prop As Outlook.UserProperty

   Set olns = ol.GetNamespace("MAPI")
   Set cf = olns.GetDefaultFolder(olFolderContacts)

   With rst
      .MoveFirst

      ' Loop through the Microsoft Access records.
      Do While Not .EOF

         ' Create a new Contact item.
         Set c = ol.CreateItem(olContactItem)

         ' Specify which Outlook form to use.
         ' Change "IPM.Contact" to "IPM.Contact.<formname>" if you've
         ' created a custom Contact form in Outlook.
         c.MessageClass = "IPM.Contact"

         ' Create all built-in Outlook fields.
         If ![CompanyName] <> "" Then c.CompanyName = ![CompanyName]
         If ![ContactName] <> "" Then c.FullName = ![ContactName]

         ' Create the first user property (UserField1).
         Set Prop = c.UserProperties.Add("UserField1", olText)

         ' Set its value.
         If ![CustomerID] <> "" Then Prop = ![CustomerID]

         ' Create the second user property (UserField2).
         Set Prop = c.UserProperties.Add("UserField2", olText)

         ' Set its value and so on....
         If ![Region] <> "" Then Prop = ![Region]

         ' Save and close the contact.
         c.Save
         c.Close

         .MoveNext
      Loop
   End With

End Sub
				

Materiały referencyjne

Aby uzyskać dodatkowe informacje na temat eksportowania danych z programu Outlook do programu Access kliknij następujący numer artykułu w celu wyświetlenia tego artykułu z bazy wiedzy Microsoft Knowledge Base:
290792Jak programowo eksportować elementów programu Outlook do programu Access
Aby uzyskać dodatkowe informacje dotyczące dostępnych zasobów i answersto, często zadawane pytania dotyczące rozwiązań programu Microsoft Outlook kliknij numer artykułu poniżej w celu wyświetlenia tego artykułu z bazy wiedzy Microsoft Knowledge Base:
287530 OL2002: Pytania dotyczące formularze niestandardowe i rozwiązania programu Outlook

Właściwości

Numer ID artykułu: 290658 - Ostatnia weryfikacja: 6 października 2011 - Weryfikacja: 3.0
Informacje zawarte w tym artykule dotyczą:
  • Microsoft Outlook 2002 Standard Edition
  • Microsoft Access 2002 Standard Edition
Słowa kluczowe: 
kbdatabase kbimport kbprogramming kbvba kbhowto kbmt KB290658 KbMtpl
Przetłumaczone maszynowo
WAŻNE: Ten artykuł nie został przetłumaczony przez człowieka, tylko przez oprogramowanie do tłumaczenia maszynowego firmy Microsoft. Firma Microsoft oferuje zarówno artykuły tłumaczone przez ludzi, jak i artykuły tłumaczone maszynowo, dzięki czemu każdy użytkownik może uzyskać dostęp do całej zawartości bazy wiedzy Knowledge Base we własnym języku. Prosimy jednak pamiętać, że artykuły przetłumaczone maszynowo nie zawsze są doskonałe. Mogą zawierać błędy słownictwa, składni i gramatyki, przypominające błędy robione przez osoby, dla których język użytkownika nie jest językiem ojczystym. Firma Microsoft nie odpowiada za wszelkie nieścisłości, błędy lub szkody spowodowane nieprawidłowym tłumaczeniem zawartości oraz za wykorzystanie tej zawartości przez klientów. Oprogramowanie do tłumaczenia maszynowego jest często aktualizowane przez firmę Microsoft.
Anglojęzyczna wersja tego artykułu to:290658

Przekaż opinię