• Articles
• admin

podsumowanie

Ten artykuł pokazuje, jak używać automatyzacji do tworzenia i wysyłania wiadomości Microsoft Outlook w programie Microsoft Access 2000.
Microsoft udostępnia przykłady programowania wyłącznie w celach ilustracyjnych, bez gwarancji wyraźnych lub dorozumianych. Obejmuje to między innymi dorozumiane gwarancje przydatności handlowej lub przydatności do określonego celu. Ten artykuł zakłada, że znasz język programowania, który jest demonstrowany, oraz narzędzia używane do tworzenia i debugowania procedur. Inżynierowie pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu funkcjonalności określonej procedury, ale nie będą modyfikować tych przykładów, aby zapewnić dodatkową funkcjonalność lub skonstruować procedury spełniające określone wymagania.
Uwaga: poniższy kod może nie działać poprawnie, jeśli zainstalowano aktualizację zabezpieczeń poczty e-mail programu Outlook. Aby uzyskać dodatkowe informacje na temat tej aktualizacji, zobacz jeden z poniższych artykułów w Bazie wiedzy Microsoft, w zależności od wersji programu Outlook:

262631 OL2000: informacje o aktualizacji zabezpieczeń poczty e-mail programu Outlook

262617 OL98: informacje o aktualizacji zabezpieczeń poczty e-mail programu Outlook
możesz użyć metody SendObject, aby wysłać wiadomość mailową MAPI programowo w programie Microsoft Access. Jednak metoda SendObject nie daje dostępu do pełnej funkcjonalności Poczty, takiej jak możliwość dołączenia zewnętrznego pliku lub ustawienia ważności wiadomości. Poniższy przykład wykorzystuje automatyzację do tworzenia i wysyłania wiadomości e-mail, za pomocą której można korzystać z wielu funkcji programu Microsoft Outlook, które nie są dostępne w metodzie SendObject.
istnieje sześć głównych kroków do wysłania wiadomości Microsoft Outlook mail za pomocą automatyzacji, w następujący sposób:

1. Zainicjuj sesję programu Outlook.

2. Utwórz nową wiadomość.

3. Dodaj odbiorców (do, CC i BCC) i rozwiąż ich nazwy.

4. Ustaw prawidłowe właściwości, takie jak temat, treść i znaczenie.

5. Dodaj załączniki (jeśli są).

6. wyświetl / Wyślij wiadomość.

programowo wysyłanie wiadomości Microsoft Outlook Mail

1. Utwórz przykładowy plik tekstowy o nazwie Klienci.txt w C:\My folder Dokumenty.

2. uruchom program Microsoft Access i otwórz przykładową bazę danych Northwind.mdb.

3. Utwórz moduł i wpisz następujący wiersz w sekcji deklaracje, jeśli jeszcze go nie ma:

   Option Explicit
   

4. w menu Narzędzia kliknij Referencje.

5. w polu Referencje Kliknij, aby wybrać bibliotekę obiektów programu Microsoft Outlook 9.0, a następnie kliknij przycisk OK.
   UWAGA: Jeśli biblioteka obiektów programu Microsoft Outlook 9.0 nie pojawia się w polu Dostępne Referencje, przeszukaj dysk twardy w poszukiwaniu pliku, Msoutl9.olb. Jeśli nie możesz zlokalizować tego pliku, musisz uruchomić program instalacyjny Microsoft Outlook, aby go zainstalować, zanim przejdziesz do tego przykładu.

6. wpisz następującą procedurę w nowym module:

   Sub SendMessage(Optional AttachmentPath)
   Dim objOutlook As Outlook.Application
   Dim objOutlookMsg As Outlook.MailItem
   Dim objOutlookRecip As Outlook.Recipient
   Dim objOutlookAttach As Outlook.Attachment
   ' Create the Outlook session.
   Set objOutlook = CreateObject("Outlook.Application")
   ' Create the message.
   Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
   With objOutlookMsg
   ' Add the To recipient(s) to the message.
   Set objOutlookRecip = .Recipients.Add("Nancy Davolio")
   objOutlookRecip.Type = olTo
   ' Add the CC recipient(s) to the message.
   Set objOutlookRecip = .Recipients.Add("Andrew Fuller")
   objOutlookRecip.Type = olCC
   ' Set the Subject, Body, and Importance of the message.
   .Subject = "This is an Automation test with Microsoft Outlook"
   .Body = "Last test - I promise." & vbCrLf & vbCrLf
   .Importance = olImportanceHigh 'High importance
   ' Add attachments to the message.
   If Not IsMissing(AttachmentPath) Then
   Set objOutlookAttach = .Attachments.Add(AttachmentPath)
   End If
   ' Resolve each Recipient's name.
   For Each objOutlookRecip In .Recipients
   objOutlookRecip.Resolve
   If Not objOutlookRecip.Resolve Then
   objOutlookMsg.Display
   End If
   Next
   .Send
   End With
   Set objOutlookMsg = Nothing
   Set objOutlook = Nothing
   End Sub
   

7. aby przetestować tę procedurę, wpisz następujący wiersz w oknie natychmiast, a następnie naciśnij klawisz ENTER:

   SendMessage "C:\My Documents\Customers.txt"
   

   aby wysłać wiadomość bez podania załącznika, pomiń argument podczas wywoływania procedury w następujący sposób:

   SendMessage