Automation을 사용하여 Access 2000을 사용하여 Microsoft Outlook 메시지를 보내는 방법

이 문서는 Microsoft Access 데이터베이스(.mdb) 및 Microsoft Access 프로젝트(.adp)에 적용됩니다.

요약

이 문서에서는 Automation을 사용하여 Microsoft Access 2000에서 Microsoft Outlook 메시지를 만들고 보내는 방법을 보여줍니다.

Microsoft에서 제공하는 프로그래밍 예제는 예시를 위한 것일 뿐이며 이와 관련하여 명시적이거나 묵시적인 어떠한 보증도 하지 않습니다. 이는 상품성이나 특정 목적에 대한 적합성의 묵시적인 보증을 포함하며 이에 제한되지 않습니다. 이 문서에서는 예제에 사용되고 있는 프로그래밍 언어와 프로시저를 만들고 디버깅하는 데 사용되는 도구를 사용자가 잘 알고 있는 것으로 가정합니다. Microsoft 지원 엔지니어는 사용자에게 도움이 되도록 특정 프로시저에 대한 기능을 설명할 수 있지만 사용자의 특정 요구 사항에 맞도록 예제를 수정하여 추가 기능을 제공하거나 프로시저를 구성하지는 않습니다.

메서드를 SendObject 사용하여 Microsoft Access에서 프로그래밍 방식으로 MAPI 메일 메시지를 보낼 수 있습니다. 그러나 메서드는 SendObject 외부 파일을 첨부하거나 메시지 중요도를 설정하는 기능과 같은 완전한 메일 기능에 대한 액세스 권한을 부여하지 않습니다. 다음 예제에서는 Automation을 사용하여 메서드에서 사용할 수 없는 Microsoft Outlook의 많은 기능을 활용하는 데 사용할 수 SendObject 있는 메일 메시지를 만들고 보냅니다.

다음과 같이 Automation을 사용하여 Microsoft Outlook 메일 메시지를 보내는 6개의 기본 단계가 있습니다.

1. Outlook 세션을 초기화합니다.
2. 새 메시지를 만듭니다.
3. 받는 사람(받는 사람, CC 및 BCC)을 추가하고 이름을 resolve.
4. 제목, 본문 및 중요도와 같은 유효한 속성을 설정합니다.
5. 첨부 파일을 추가합니다(있는 경우).
6. 메시지를 표시/보냅니다.

프로그래밍 방식으로 Microsoft Outlook 메일 메시지 보내기

1. C:\My Documents 폴더에 Customers.txt 라는 샘플 텍스트 파일을 만듭니다.

2. Microsoft Access를 시작하고 샘플 데이터베이스 Northwind.mdb 엽니다.

3. 모듈을 만들고 선언 섹션에 아직 없는 경우 다음 줄을 입력합니다.

   Option Explicit

4. 도구 메뉴에서 참조를 선택합니다.

5. 참조 상자에서 Microsoft Outlook 9.0 개체 라이브러리를 선택한 다음 확인을 선택합니다.

   참고

   Microsoft Outlook 9.0 개체 라이브러리가 사용 가능한 참조 상자에 표시되지 않으면 하드 디스크에서 Msoutl9.olb 파일을 찾아봅니다. 이 파일을 찾을 수 없는 경우 이 예제를 진행하기 전에 Microsoft Outlook 설치 프로그램을 실행하여 설치해야 합니다.

6. 새 모듈에서 다음 절차를 입력합니다.

   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. 이 절차를 테스트하려면 직접 실행 창에 다음 줄을 입력한 다음 Enter 키를 누릅니다.

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

   첨부 파일을 지정하지 않고 메시지를 보내려면 다음과 같이 프로시저를 호출할 때 인수를 생략합니다.

   SendMessage