???????? "??????? ????????" ??? ????? ????? Microsoft Outlook

?????? ????????? ?????? ?????????
???? ???????: 161088 - ??? ???????? ???? ????? ????? ??? ???????.
??????: ????? ????? ?????? ??????? ??????? ???????? ? ?????? ?????? ??????????.

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

??????

???? ??? ?????? ????? ??????? "??????? ????????" ????? ?????? ????? Microsoft Outlook ?? Microsoft Access 97.

????? ??? ??????? ???? ?????? ?? Visual Basic for Applications ?????? ????? ??????? Microsoft Access ??????? ????? ??????? ???????? ?? Microsoft Access. ????? ?? ????????? ??? Visual Basic for Applications ?????? ?????? ??? ???? "????? ??????? ?? Microsoft Access 97".

?????? ??? ???? ?? ????????? ??? ??????? "??????? ????????" ?????? ????? Microsoft Exchange ?????? ?????? ??????? ??????? ?? "????? ??????? ?? Microsoft:
153311???????? "??????? ????????" ??? ????? ????? Microsoft Exchange

??????? ????

??????: ?? ?? ???? ???????? ???????? ??????? ???? ???? ??? ??? ?????? ????? ???? ?????? ?????????? ??????? Outlook. ?????? ??? ??????? ?????? ??? ??? ???????? ?????? ?????? ???? ???????? ??????? ?? ????? ??????? ?? Microsoft ? ???????? ??? ?? ????? Outlook ????:
262631OL2000: ??????? ??? ????? ???? ?????? ?????????? ??????? Outlook
262617OL98: ??????? ??? ????? ???? ?????? ?????????? ??????? Outlook
???? ??????? SendObject ????? ?????? ????? ???? "MAPI ???? ????? ?? Microsoft Access. ??? ???? ?????? SendObject ??????? ?? ????? ?????? ????? ?????? ??? ??????? ????? ??? ????? ?? ????? ????? ???????. ?????? ?????? ?????? ??????? ?????? ????? ???? ???? ???? ????????? ????????? ?? ?????? ?? ??????? ?? Microsoft Outlook ??? ?????? ?? ????? SendObject ????????.

???? ??? ??????? ???????? ??? ??????? "??????? ????????" ?????? ????? ???? Microsoft Outlook:

  • ????? ???? ????? Outlook
  • ????? ????? ?????
  • ????? ????????? (??? ? ???? ? ?????) ??? ?????
  • ????? ????? ???? ??? ??????? ??????? ? ???????
  • ????? ?????? (?? ???)
  • ???/????? ???????
?????? ????? ???? Microsoft Outlook ??????? ???? ??????? ???????:

  1. ????? ????? ??? ?? ???? Customers.txt ?? C:\My Documents ??????.
  2. ???? ????? Microsoft Access ????? ????? ????? ???????? Northwind.mdb.
  3. ????? ???? ????? ?? ??? ?????? ????? ?????? ?? Declarations ??? ?? ??? ????:
    ?????? Explicit
  4. ?? ??????? ????? ? ???? "?????".
  5. ?? ?????? ????? ? ???? ??? ???? ???? Microsoft 8.0 Outlook ?? ???? ??? ?????.

    ??????: ??? ?? ???? ???? ???? Microsoft 8.0 Outlook ?? ?????? "??????? ???????" ?????? ???? ??????? ?????? ???? Msoutl8.olb. ??? ?? ????? ?? ????? ???? ??? ????? ??? ????? ?????? ????? Outlook Microsoft ??????? ??? ???????? ?? ??? ??????.
  6. ???? ??????? ?????? ?? ?????? ??????? ????:
          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
    						
  7. ??????? ??? ??????? ???? ????? ?????? ?? ???? ??????? ?? ?? ???? ENTER.
    True SendMessage, "C:\My Documents\Customers.txt"
    ???? ??? ??? ??? ????? ????? ?? Microsoft Outlook ?? ????.

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

?????

?????? ??? ???? ?? ????????? ??? ??????? "??????? ????????" ?? Microsoft Access ????? "???? ?????????" ?? ??????? ?? ???? ????? Office ????? ?? Microsoft Access 97.

?????? ??? ???? ?? ????????? ??? ??????? "??????? ????????" ??? ???? ???? Microsoft Outlook ?????? ?????? ???????? ??????? ?? "????? ????? Microsoft:
160502ACC: ??????? ??????? ??? ????? ?????? ??? Microsoft Outlook

161012VBA: ????? ????? ???? ??? ????? ???? ?? Outlook ?? ???????

???????

???? ???????: 161088 - ????? ??? ??????: 29/?? ?????/1427 - ??????: 3.3
????? ???
  • Microsoft Access 97 Standard Edition
????? ??????: 
kbmt kbhowto kbinterop KB161088 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????161088
????? ??????? ?? ????? ???? ?? ????? ???????
?? ????? ????? ?????? ???? ???? ???? ??? ??????? ??? ?? ? ?? ??? ??????? Microsoft ??? ????? ??? ??????? ????? ?????? ?????

????? ???????

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com