• Articles
• admin

요약

이 문서에서는 자동화를 사용 하 여 만들고 마이크로소프트 아웃룩 메시지를 보내는 방법을 보여 줍니다.
마이크로소프트는 명시적 또는 묵시적 보증 없이 예시만을 위한 프로그래밍 예제를 제공한다. 여기에는 상품성 또는 특정 목적에의 적합성에 대한 묵시적 보증이 포함되지만 이에 국한되지 않습니다. 이 문서에서는 설명 중인 프로그래밍 언어와 프로시저를 만들고 디버깅하는 데 사용되는 도구에 대해 잘 알고 있다고 가정합니다. 그러나 이러한 예제를 수정하여 추가 기능을 제공하거나 특정 요구 사항에 맞게 프로시저를 구성하지는 않습니다.
참고:전자 메일 보안 업데이트를 설치한 경우 다음 코드가 제대로 작동하지 않을 수 있습니다. 이 업데이트에 대 한 자세한 내용은 다음 문서 중 하나를 참조 하십시오.:

262631 보안 업데이트에 대한 정보

262617 이 방법을 사용하여 프로그래밍 방식으로 메일 메시지를 보낼 수 있습니다. 그러나 개체 보내기 메서드는 외부 파일을 첨부하거나 메시지 중요도를 설정하는 기능과 같은 전체 메일 기능에 대한 액세스 권한을 부여하지 않습니다. 다음 예제에서는 자동화를 사용 하 여 만들고 사용할 수 있는 메일 메시지를 보낼 수 있습니다.
다음과 같이 자동화를 사용하여 마이크로 소프트 아웃룩 메일 메시지를 보내는 여섯 가지 주요 단계가 있습니다:

1. 아웃룩 세션을 초기화합니다.

2. 새 메시지를 만듭니다.

3. 받는 사람(받는 사람,참조 및 숨은 참조)을 추가하고 이름을 확인합니다.

4. 제목,본문 및 중요도와 같은 유효한 속성을 설정합니다.

5. 첨부 파일 추가(있는 경우).

6. 메시지를 표시/보냅니다.

프로그래밍 방식으로 마이크로 소프트 아웃룩 메일 메시지 보내기

1. 고객이라는 샘플 텍스트 파일을 만듭니다.에 C:\My 문서 폴더.

2. 시작 마이크로 소프트 액세스,샘플 데이터베이스를 엽니 다 노스 윈드.미디어

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

   Option Explicit
   

4. 도구 메뉴에서 참조를 클릭합니다.

5. 참조 상자에서 개체 라이브러리를 클릭한 다음 확인 을 누릅니다.
   참고:사용 가능한 참조 상자에 개체 라이브러리가 나타나지 않으면 하드 디스크에서 파일을 찾습니다.올브 이 파일을 찾을 수 없는 경우이 예제를 진행 하기 전에 설치 하려면 마이크로 소프트 아웃룩 설치 프로그램을 실행 해야 합니다.

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

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

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

   SendMessage