???? ??

Select the product you need help with

????? 2000 ?? ????? ?? ???? Microsoft Outlook ????? ????? ?? ??? ??????? ?? ????? ???? ????

???? ID: 209948 - ?? ???????? ?? ?????? ??? ?? ?? ???? ???? ???? ??.

???? ?????? ???????? KB ?? ???????? ????? ?? ??? ???? ????? ????

???? ?????? ???????? ???? ?? ??? ????????? ???? ?? ???-??? ????????? ???? ?? ??? ???? ????? ????

??? ?? ??????? ???? | ??? ?? ??????? ????

?? ???? ???? ???? ????? ?? Microsoft Access 2000 ??? ?? Microsoft Outlook ????? ????? ?? ??? ??????? ?? ????? ???? ?? ??? ?????? ???

Microsoft ???????????? ?????? ???? ???????? ?? ??? ??? ???? ??, ???? ??? ??? ?? ?????? ?? ?????????? ??? ??? ?????? ???? ?? ????.. ?????? ???????? ?????? ?? ???? ????? ???????? ?? ??? ???????? ????? ??? ?? ???? ?? ????? ???? ???.. ?? ??? ????? ?? ?? ?? ????? ?? ?? ??? ???????????? ???? ?? ?? ??????? ?? ?????? ??? ????? ????? ???????????? ?? ????? ?? ???? ???? ?? ??? ???? ?? ??? ??.. Microsoft ?????? ???????? ?? ????? ????????? ?? ???????????? ?? ?????? ??? ?????? ?? ???? ???, ??, ?? ?? ???????? ?? ???? ??????? ?????????? ?? ?????? ???? ?? ??? ???????? ??????????????? ?? ?????? ?? ???????????? ????? ?? ??? ??????? ???? ??????..???::??? ?? Outlook ?-??? ??????? ?????? ?? ??????? ???? ??, ?? ????? ??? ??? ?? ??? ???? ?? ???? ??? ?? ?????? ?? ???? ??? ???????? ??????? ?? ??? ????? ????? ????? ?????? ?? Microsoft ???????? ??? ?????, Outlook ?? ??? ?? ??????? ?? ???? ?? ???? ??? ??:

262631

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

OL2000: Outlook ?-??? ??????? ?????? ?? ???? ??? ???????

262617

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

OL98: Outlook ?-??? ??????? ?????? ?? ???? ??? ???????

?? ????? ?? ???? ???SendObjectMicrosoft Access ??? ????????? ???? MAPI ??? ????? ????? ?? ??? ?????? ??? ???????,SendObject???? ?????? ?????? ???? ??? ???????????, ???? ???? ????? ???? ??????? ???? ?? ????? ?? ????? ?? ??? ???? ?? ?????? ?? ???? ???? ?? ??? ?????? ?????? ?? ???????? ????? ?? ?? ???????? ??? Microsoft Outlook ?? ??? ?????? ???? ??? ?? ?? ??? ???? ?? ??? ????? ?? ???? ??? ?? ???? ??? ????? ????? ?? ??? ??????? ?? ????? ???? ??SendObject?????? ???

?? ??? ???, ??????? ?? ????? ???? Microsoft Outlook ??? ????? ?? ????? ?? ??? ?? ????? ??? ???:

Outlook ???? ??????? ?????
??? ??? ????? ??????
???????????? (??? ?????, ?????????, ?? BCC) ?? ???? ??? ?? ?? ?????
????? ???, ???? ????, ????? ??? ?? ????? ??? ?????
???????? ?????? (??? ??? ??)?
????????/????? ??????

????????? ?????? ?? Microsoft Outlook ??? ????? ??? ???

????? ??? ???? ??? C:\My Customers.txt ??? ????? ????????? ????????
Microsoft Access ?? ??????? ????, ?? ???? ????? ??????? Northwind.mdb.
?? ??????? ?????, ?? ????? ?????? ???? Declarations ??? ??? ??? ??? ???? ???? ?? ?? ???? ??:
Option Explicit
????? ????????????? ??,??????.
???????????????? ???, ????? ?? ??? ????? ????Microsoft Outlook 9.0 ???????? ??????????? ????-????? ????, ?? ???? ???OK.

???:: ??? Microsoft Outlook 9.0 ???????? ????????? ??? ???? ????? ???????? ??????????? ???, ?????, Msoutl9.olb ?? ??? ???? ????? ????? ?? ??????? ????? ??? ?? ?? ????? ?? ????? ????? ???? ???? ?? ????, ?? ?????? ?? ??? ??? ???? ?? ???? ??? ??????? ???? ?? ??? Microsoft Outlook ????? ????????? ????? ?????? ???

????? ????????? ?? ?? ??????? ??? ???? ????:

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

?? ????????? ?? ??????? ?? ??? ??????? ????? ??? ????? ?????? ???? ????, ?? ???? ??? ENTER ?????:
SendMessage "C:\My Documents\Customers.txt"
????? ?? ??? ????? ???????? ?? ????????? ???? ?? ????, ???? ?? ?? ??? ??????????? ????????? ?? ??? ???? ???:
SendMessage

????? ?? ???? ???? | ??????????? ???

??????

Microsoft Access, Visual Basic ?????? ???, ??? ??????? ?? ????? ???? ?? ???? ??? ???? ??????? ?? ??? ' ??? ' ???? ?? Microsoft Visual Basic ??? ????? ????, Office ????? ?? ????? ???????? ??? "???????" ???? ????, ?? ???? ??? ???? ????? ?? ??? ????? ????? ?????