�� Microsoft Outlook � ��

�� : 161088 - �� , � �� .

��: ��

��

�� , ��

��: �� , �� .

�� | ��

��

� �� Microsoft �� Outlook � Microsoft Access 97.

� �� , �� Visual Basic �� Microsoft Access � �� , �� Microsoft Access. �� Visual Basic �� "�� Microsoft Access 97 "��.

�� Microsoft Exchange �� , �� Microsoft Knowledge Base:

153311

(http://support.microsoft.com/kb/153311/EN-US/ )

�� Microsoft Exchange � ��

�� | ��

��

��. �� , �� Outlook. �� . �� Base, � �� Outlook ��:

262631

(http://support.microsoft.com/kb/262631/EN-US/ )

OL2000: �� Outlook

262617

(http://support.microsoft.com/kb/262617/EN-US/ )

OL98: �� Outlook

�� MAPI �� Microsoft Access. �� , ��, �� . � �� , �� Microsoft Outlook, �� .

�� Outlook:

�� Outlook
��
�� (�, �� ) � ��
�� , �� , ��
�� (�� )
��

�� Microsoft Outlook �� , �� :

�� Customers.txt � �� C:\My ��.
�� Microsoft Access � �� Northwind.mdb.
�� , �� :
Option Explicit
� �� .
� �� Microsoft Outlook 8.0 � �� .

��: �� Microsoft Outlook 8.0 �� Msoutl8.olb. �� , �� Microsoft Outlook, �� .

� �� :

      Sub SendMessage(DisplayMsg As Boolean, 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("Michael Suyama")
              objOutlookRecip.Type = olCC

             ' Add the BCC recipient(s) to the message.
              Set objOutlookRecip = .Recipients.Add("Andrew Fuller")
              objOutlookRecip.Type = olBCC

             ' Set the Subject, Body, and Importance of the message.
             .Subject = "This is an Automation test with Microsoft Outlook"
             .Body = "This is the body of the message." &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
             Next

             ' Should we display the message before sending?
             If DisplayMsg Then
                 .Display
             Else
                 .Save
                 .Send
             End If
          End With
          Set objOutlook = Nothing
      End Sub

�� , �� .
True SendMessage, �C:\My Documents\Customers.txt�
�� , �� Microsoft Outlook � ��.

�� Microsoft Outlook, �� False �� :
False SendMessage, �C:\My Documents\Customers.txt�
�� , �� .
SendMessage True