Visual Basic을 사용하여 Outlook을 자동화하는 방법

기술 자료 번역 기술 자료 번역
기술 자료: 220595 - 이 문서가 적용되는 제품 보기.
이 문서는 이전에 다음 ID로 출판되었음: KR220595
모두 확대 | 모두 축소

이 페이지에서

요약

이 문서에서는 Visual Basic의 자동화 기능을 사용하여 Microsoft Outlook을 프로그램 방식으로 제어하는 방법을 설명합니다. 예제에서는 Microsoft Outlook의 개체 모델을 사용하여 연락처를 만들고 약속을 만들고 메시지를 보내는 방법을 보여줍니다.

추가 정보

다음 단계를 사용하여 예제를 만들고 실행하십시오. 예제를 실행하려면 Microsoft Outlook 형식 라이브러리에 대한 초기 바인딩 참조가 필요합니다. 다음 표에서는 다양한 버전의 Microsoft Outlook에 대한 형식 라이브러리 파일 이름을 보여줍니다.
표 축소표 확대
Outlook 버전참조 목록에 표시되는 형식 라이브러리파일 이름
Outlook 97"Microsoft Outlook 8.0 Object Library"msoutl8.olb
msoutl8.olb"Microsoft Outlook 98 Object Library"msoutl85.olb
Outlook 2000"Microsoft Outlook 9.0 Object Library"msoutl9.olb
Outlook 2002"Microsoft Outlook 10.0 Object Library"msoutl.olb
Office Outlook 2003"Microsoft Outlook 11.0 Object Library"msoutl.olb

자동화 예제 빌드

  1. Visual Basic을 시작하고 표준 EXE 프로젝트를 새로 만듭니다.
  2. 프로젝트 메뉴에서 참조를 선택하고 Microsoft Outlook을 선택합니다.
  3. 폼에 단추를 추가합니다.
  4. 단추를 두 번 누르고 다음 코드를 추가합니다.
     ' Start Outlook.
     ' If it is already running, you'll use the same instance...
       Dim olApp As Outlook.Application
       Set olApp = CreateObject("Outlook.Application")
        
     ' Logon. Doesn't hurt if you are already running and logged on...
       Dim olNs As Outlook.NameSpace
       Set olNs = olApp.GetNamespace("MAPI")
       olNs.Logon
    
     ' Create and Open a new contact.
       Dim olItem As Outlook.ContactItem
       Set olItem = olApp.CreateItem(olContactItem)
    
     ' Setup Contact information...
       With olItem
          .FullName = "James Smith"
          .Birthday = "9/15/1975"
          .CompanyName = "Microsoft"
          .HomeTelephoneNumber = "704-555-8888"
          .Email1Address = "someone@microsoft.com"
          .JobTitle = "Developer"
          .HomeAddress = "111 Main St." & vbCr & "Charlotte, NC 28226"
       End With
       
     ' Save Contact...
       olItem.Save
        
     ' Create a new appointment.
       Dim olAppt As Outlook.AppointmentItem
       Set olAppt = olApp.CreateItem(olAppointmentItem)
        
     ' Set start time for 2-minutes from now...
       olAppt.Start = Now() + (2# / 24# / 60#)
        
     ' Setup other appointment information...
       With olAppt
          .Duration = 60
          .Subject = "Meeting to discuss plans..."
          .Body = "Meeting with " & olItem.FullName & " to discuss plans."
          .Location = "Home Office"
          .ReminderMinutesBeforeStart = 1
          .ReminderSet = True
       End With
        
     ' Save Appointment...
       olAppt.Save
        
     ' Send a message to your new contact.
       Dim olMail As Outlook.MailItem
       Set olMail = olApp.CreateItem(olMailItem)
     ' Fill out & send message...
       olMail.To = olItem.Email1Address
       olMail.Subject = "About our meeting..."
       olMail.Body = _
            "Dear " & olItem.FirstName & ", " & vbCr & vbCr & vbTab & _
            "I'll see you in 2 minutes for our meeting!" & vbCr & vbCr & _
            "Btw: I've added you to my contact list."
       olMail.Send
        
     ' Clean up...
       MsgBox "All done...", vbMsgBoxSetForeground
       olNS.Logoff
       Set olNs = Nothing
       Set olMail = Nothing
       Set olAppt = Nothing
       Set olItem = Nothing
       Set olApp = Nothing
    						
  5. 프로젝트를 실행하고 단추를 눌러 코드를 실행합니다.
코드를 실행하면 "James Smith"라는 이름의 새 연락처가 생기고, 2분 후로 예약된 약속이 생기는데 1분 후에 미리 알림이 나타나도록 지정되어 있으며, someone@microsoft.com으로 메시지를 보내게 됩니다. 또한 연락처에 생일(9/15)을 추가했기 때문에 해당 일을 알려주는 미리 알림 이벤트가 Outlook 일정에 추가되었습니다.

Outlook 2002에는 대화 상자 두 개가 새로 추가되었습니다. 하나는 프로그램이 Outlook에 저장된 전자 메일 주소에 액세스를 시도하고 있으며 이것을 허용할 것인지 묻는 경고 메시지이고, 다른 하나는 프로그램이 전자 메일을 보내려고 하는 효과에 대한 메시지입니다. 이 기능은 바이러스가 사용자 모르게 시스템에서 전자 메일을 보내는 것을 방지합니다.

자세한 내용은 Microsoft 기술 자료의 다음 문서를 참조하십시오.
290500 OL2002: 전자 메일 보안 기능에 대한 개발자 정보

참조

Outlook 프로그래밍 리소스에 대한 자세한 내용은 Microsoft 기술 자료의 다음 문서를 참조하십시오.
166368 Outlook 97에서 사용자 지정 폼과 프로그래밍을 위한 리소스
180826 Outlook 98에서 사용자 지정 폼과 프로그래밍을 위한 리소스
271225 Outlook 2000에서 사용자 지정 폼과 프로그래밍을 위한 리소스
287531 Outlook 2002를 사용한 프로그래밍과 사용자 지정 폼을 위한 리소스 목록
313802 Visual Basic .NET에서 Outlook 개체 모델을 사용하여 연락처를 검색하는 방법
313788 Microsoft Visual Basic .NET에서 Outlook 개체 모델을 사용하여 약속을 만드는 방법




Microsoft 제품 관련 기술 전문가들과 온라인으로 정보를 교환하시려면 Microsoft 뉴스 그룹에 참여하시기 바랍니다.

속성

기술 자료: 220595 - 마지막 검토: 2006년 1월 20일 금요일 - 수정: 9.0
본 문서의 정보는 다음의 제품에 적용됩니다.
  • Microsoft Visual Basic 6.0 Enterprise Edition
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 6.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Office Outlook 2003
  • Microsoft Outlook 2002 Standard Edition
  • Microsoft Outlook 2000 Standard Edition
  • Microsoft Outlook 97 Standard Edition
  • Microsoft Outlook 98 Standard Edition
키워드:?
kbhowto kboutlookobj kbautomation KB220595

피드백 보내기

 

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