자동화를 사용하면 Microsoft Outlook 메시지 보내기

기술 자료 번역 기술 자료 번역
기술 자료: 161088 - 이 문서가 적용되는 제품 보기.
고급: 전문적인 코드 작성, 상호 운용성 및 다중 사용자 기술이 필요합니다.

모두 확대 | 모두 축소

요약

이 문서에서는 자동화를 사용하여 만든 Microsoft Access 97 Microsoft Outlook에서 메시지를 보내는 방법을 보여 줍니다.

이 문서에서는 VBA 및 Microsoft Access에서 제공하는 프로그래밍 도구를 사용하여 Microsoft Access 응용 프로그램을 만드는 알고 있다고 가정합니다. 응용 프로그램에 대한 VBA에 대한 자세한 내용은 "응용 프로그램 Microsoft Access 97" 설명서를 참조하십시오.

자동화를 사용하여 Microsoft Exchange 메시지를 보내는 방법에 대한 자세한 내용은 Microsoft 기술 자료의 다음 문서를 참조하십시오.
153311자동화를 사용하면 Microsoft Exchange 메시지 보내기

추가 정보

참고: Outlook 전자 메일 보안 업데이트를 설치한 경우 다음 코드를 제대로 작동하지 않을 수 있습니다. 이 업데이트에 대한 자세한 내용은 해당 있는 경우 Microsoft 기술 자료의 다음 문서가 있는 Outlook 버전에 따라, 중 하나를 참조하십시오.
262631OL2000: Outlook 전자 메일 보안 업데이트에 대한 정보
262617Outlook 전자 메일 보안 업데이트에 대한 OL98: 정보
SendObject 메서드는 MAPI 메일 메시지를 프로그래밍 방식으로 Microsoft Access에서 보낼 수 있는 방법을 제공합니다. 그러나 SendObject 메서드는 사용자가 제공하는 메일 기능 (예: 외부 파일을 첨부하거나 메시지 중요도를 설정할 수 있는 기능 완료하려면 액세스합니다. 다음 예제를 자동화 사용하여 만들고 SendObject 메서드와 함께 사용할 수 없는 Microsoft Outlook의 많은 기능을 활용할 수 메일 메시지를 보냅니다.

자동화를 사용하여 Microsoft Outlook 메일 메시지를 보낼 때 여섯 가지 주요 단계가 있습니다.

  • Outlook 세션 초기화
  • 새 메시지 만들기
  • 받는 사람 (받는 사람, 참조 및 숨은 참조) 추가하고 해당 이름을 확인하기
  • 유효한 속성 (예: 제목, 본문 및 중요도 설정
  • (있는 경우 첨부 파일 추가
  • 디스플레이/메시지 보내기
프로그래밍 방식으로 Microsoft Outlook 메일 메시지를 보내려면 다음과 같이 하십시오.

  1. C:\My Documents Customers.txt 라는 예제 텍스트 파일을 만들 폴더.
  2. Microsoft Access를 시작하고 Northwind.mdb 예제 데이터베이스를 엽니다.
  3. 모듈 및 형식을 있이 있지 않은 경우 다음 줄에서 해당 선언 섹션에서 만들기:
    명시적 옵션
  4. 도구 메뉴에서 참조를 누릅니다.
  5. 참조 상자에서 Microsoft Outlook 8.0 개체 모델의 누른 다음 확인을 누릅니다.

    참고: Microsoft Outlook 8.0 개체 모델 사용 가능한 참조 상자가 표시되지 않으면 하드 드라이브의 파일에 대한 찾아보기 Msoutl8.olb. 이 파일을 찾을 수 없으면 이 예제를 계속 진행하기 전에 설치하려면 Microsoft Outlook 설치 프로그램을 실행해야 합니다.
  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 키를 누릅니다.
    SendMessage True, "C:\My Documents\Customers.txt"
    첨부 파일이 있는 Microsoft Outlook에서 새 메시지가 표시된 유의하십시오.

    Microsoft Outlook에서 표시하지 않고 메시지를 보내려면 첫 번째 인수에 대해 False 값 사용하는 프로시저 호출:
    SendMessage False, "C:\My Documents\Customers.txt"
    첨부 파일을 지정하지 않고 메시지를 보내려면 프로시저를 호출할 때 두 번째 인수를 생략하십시오.
    SendMessage True

참조

Microsoft Access에서는 자동화 사용에 대한 자세한 내용은 도움말 색인에서 자동화 를 위해 검색하거나 Microsoft Access 97 Office 길잡이 표시.

자동화 Microsoft Outlook 컨트롤을 사용하는 방법에 대한 자세한 내용은 Microsoft 기술 자료의 다음 문서를 참조하십시오.
160502ACC: 자동화를 사용하여 Microsoft Outlook 약속 추가

161012VBA: 자동화 사용하여 Outlook에서 새 연락처 항목을 만드는 방법

속성

기술 자료: 161088 - 마지막 검토: 2007년 1월 19일 금요일 - 수정: 3.3
본 문서의 정보는 다음의 제품에 적용됩니다.
  • Microsoft Access 97 Standard Edition
키워드:?
kbmt kbhowto kbinterop KB161088 KbMtko
기계 번역된 문서
중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.
더 이상 지원되지 않는 제품의 KB 내용에 대한 고지 사항
이 문서에서는 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