Jak zautomatyzowa� program Outlook, korzystaj�c z j�zyka Visual Basic

Numer ID artyku�u: 220595 - Zobacz jakich produkt�w dotycz� zawarte w tym artykule porady.

W tym artykule zademonstrowano, jak programowo sterowa� programem Microsoft Outlook, korzystaj�c z automatyzacji w j�zyku Visual Basic. Przyk�ad demonstruje tworzenie kontakt�w, termin�w oraz wysy�anie wiadomo�ci z wykorzystaniem modelu obiektowego programu Microsoft Outlook.

Powr�t na g�r� | Przeka� opini�

Wi�cej informacji

Wykonaj nast�puj�ce kroki, aby utworzy� i uruchomi� przyk�ad. Do uruchomienia przyk�adu konieczne jest wcze�nie powi�zane odwo�anie do biblioteki typ�w Microsoft Outlook. W nast�puj�cej tabeli przedstawiono list� nazw plik�w bibliotek typ�w dla r�nych wersji programu Microsoft Outlook:

Zwi� t� tabel�Rozwi� t� tabel�

Wersja programu Outlook	Jak biblioteka typ�w pojawia si� na li�cie odwo�a�	Nazwa pliku
Outlook 97	�Microsoft Outlook 8.0 Object Library�	msoutl8.olb
msoutl8.olb	�Microsoft Outlook 98 Object Library�	msoutl85.olb
Outlook 2000	�Microsoft Outlook 9.0 Object Library�	msoutl9.olb
Outlook 2002	�Microsoft Outlook 10.0 Object Library�	msoutl.olb
Office Outlook 2003	�Microsoft Outlook 11.0 Object Library�	msoutl.olb

Budowanie przyk�adu automatyzacji

Uruchom program Visual Basic i utw�rz nowy projekt Standard EXE.
W menu Project wybierz polecenie References a nast�pnie wybierz pozycj� Microsoft Outlook.
Dodaj przycisk do formularza.

Kliknij dwukrotnie przycisk, a nast�pnie dodaj nast�puj�cy kod:

 * Uruchom program Outlook.
 * Je�li ju� dzia�a, u�yj tego samego wyst�pienia...
   Dim olApp As Outlook.Application
   Set olApp = CreateObject("Outlook.Application")
    
 ' Logowanie. Nie zaszkodzi, je�li ju� dzia�asz po zalogowaniu...
   Dim olNs As Outlook.NameSpace
   Set olNs = olApp.GetNamespace("MAPI")
   olNs.Logon

 ' Utw�rz i otw�rz nowy kontakt.
   Dim olItem As Outlook.ContactItem
   Set olItem = olApp.CreateItem(olContactItem)

 ' Ustaw informacje Kontaktu...
   With olItem
      .FullName = "James Smith"
      .Birthday = "9/15/1975"
      .CompanyName = "Microsoft"
      .HomeTelephoneNumber = "704-555-8888"
      .Email1Address = "ktos@microsoft.com"
      .JobTitle = "Deweloper"
      .HomeAddress = "111 Main St." & vbCr & "Charlotte, NC 28226"
   End With
   
 ' Zapisz Kontakt...
   olItem.Save
    
 ' Utw�rz nowy termin.
   Dim olAppt As Outlook.AppointmentItem
   Set olAppt = olApp.CreateItem(olAppointmentItem)
    
 ' Ustaw czas rozpocz�cia za 2 minuty od teraz...
   olAppt.Start = Now() + (2# / 24# / 60#)
    
 ' Ustaw inne informacje o terminie...
   With olAppt
      .Duration = 60
      .Subject = "Spotkanie na temat plan�w..."
      .Body = "Spotkanie z " & olItem.FullName & " w sprawie plan�w."
      .Location = "Biuro macierzyste"
      .ReminderMinutesBeforeStart = 1
      .ReminderSet = True
   End With
    
 ' Zapisz termin...
   olAppt.Save
    
 ' Wy�lij wiadomo�� do nowego kontaktu.
   Dim olMail As Outlook.MailItem
   Set olMail = olApp.CreateItem(olMailItem)
 ' Wype�nij i wy�lij wiadomo��...
   olMail.To = olItem.Email1Address
   olMail.Subject = "Informacje o spotkaniu..."
   olMail.Body = _
        "W.P. " & olItem.FirstName & ", " & vbCr & vbCr & vbTab & _
        "Do zobaczenia za 2 minuty na spotkaniu!" & vbCr & vbCr & _
        "PS: Jeste� ju� na mojej li�cie kontakt�w."
   olMail.Send
    
 ' Czyszczenie...
   MsgBox "Wszystko zrobione...", vbMsgBoxSetForeground
   olNS.Logoff
   Set olNs = Nothing
   Set olMail = Nothing
   Set olAppt = Nothing
   Set olItem = Nothing
   Set olApp = Nothing

Uruchom projekt i kliknij przycisk, aby uruchomi� kod.

Po uruchomieniu kodu powinien zosta� utworzony nowy kontakt �James Smith�, nowy termin zaplanowany za dwie minuty, z przypomnieniem za minut�, oraz powinny by� wys�ane dwie wiadomo�ci pod adresem ktos@microsoft.com. Poniewa� zosta�a dodana data urodzenia kontaktu (15/9), do kalendarza programu Outlook zosta�o dodane zdarzenie cykliczne, aby o tym przypomnie�.

W programie Outlook 2002 pojawi�y si� dwa nowe okna dialogowe: jedno ostrzega, �e jaki� program pr�buje uzyska� dost�p do adresu e-mail przechowywanego w programie Outlook i pyta, czy na to pozwalasz, a drugie informuje, �e jaki� program pr�buje wys�a� wiadomo�� e-mail. Funkcja ta chroni przed u�yciem programu bez wiedzy u�ytkownika przez wirus, kt�ry wysy�a wiadomo�ci e-mail z systemu.

Aby uzyska� wi�cej informacji, kliknij nast�puj�cy numer artyku�u w celu wy�wietlenia tego artyku�u z bazy wiedzy Microsoft Knowledge Base:

290500

(http://support.microsoft.com/kb/290500/ )

OL2002: Informacje dla deweloper�w na temat funkcji zabezpiecze� poczty e-mail

Powr�t na g�r� | Przeka� opini�

Materia�y referencyjne

Aby uzyska� wi�cej informacji dotycz�cych zasob�w programowania w programie Outlook, kliknij nast�puj�ce numery artyku��w w celu wy�wietlenia tych artyku��w z bazy wiedzy Microsoft Knowledge Base:

166368

(http://support.microsoft.com/kb/166368/ )

Resources for custom forms and programming in Outlook 97

180826

(http://support.microsoft.com/kb/180826/ )

Resources for custom forms and programming in Outlook 98

271225

(http://support.microsoft.com/kb/271225/ )

Resources for custom forms and programming in Outlook 2000

287531

(http://support.microsoft.com/kb/287531/ )

List of resources for custom forms and programming with Outlook 2002