OL2002: 모든 연락처 필드 이름으로 파일 변경 방법

기술 자료 번역 기술 자료 번역
기술 자료: 291144 - 이 문서가 적용되는 제품 보기.
모두 확대 | 모두 축소

이 페이지에서

요약

이 문서에서는 사용자 지정 Outlook 양식 및 Visual Basic 스크립트 버전 (VBScript) 많은 수의 기존 연락처에 대한 표시 필드를 프로그래밍 방식으로 변경하는 방법을 설명합니다.

추가 정보

중요: 이 필드의 서식을 이러한 유형의 정보가 표시되는 위치를 다른 영역에 영향을 표준 Outlook 연락처 양식을 사용하여 표시 필드의 서식을 변경할 경우, Outlook 보장합니다 (같은 맨 위에 있는 연락처 주소 카드 보기에서 볼 때). 그러나 이 예제에서는 간단히 표시 방법 필드의 자체를 변경하고 Outlook 연락처 양식 같은 기능을 수행하지 않습니다. 연락처 폴더의 복사본을 확인한 다음 이 샘플을 사용하여 이점을 이 방법의 모든 잠재적인 단점을 더 큽니다 않도록 복사한 폴더를 아래 예제 코드를 사용하는 것이 좋습니다.

참고: 표시 방법 필드를 변경할 경우 연락처를 Outlook 주소록에 표시되는 순서를 영향을 받지 않습니다.

Microsoft을 배제하며 제한되지 않은 묵시적된 보증 (상품성 및 특정 목적에의 적합성에 대한 묵시적인, 목적으로만 프로그래밍 예제를 제공합니다. 이 문서에서는 프로시저를 작성하고 디버깅하는 데 사용되는 도구 및 여기서 설명하는 프로그래밍 언어에 익숙한 사용자를 대상으로 합니다. Microsoft 기술 지원 담당자는 특정 절차에 대한 기능을 설명할 수 있지만 추가 기능을 제공하거나 특정 요구 사항에 맞도록 프로시저를 구성하지는 이 예제를 수정하지 않습니다.
프로그래밍 경험이 제한되어 있으면 Microsoft 인증 파트너 문의하거나 Microsoft 자문 서비스 할 수 있습니다. 자세한 내용은 다음 Microsoft 웹 사이트를 방문하십시오.

Microsoft 파트너 - https://partner.microsoft.com/global/30000104 인증

Microsoft 권고 서비스 - http://support.microsoft.com/gp/advisoryservice

사용할 수 있는 지원 옵션 및 Microsoft 연락하는 방법에 대한 자세한 내용은 다음 Microsoft 웹 사이트를 방문하십시오: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS새 사용자 지정 Outlook 양식을 만들 때 모든 연락처의 표시 필드를 다음 형식 중 하나로 변경할 수 있습니다.
  • 마지막으로, 먼저
  • 회사
  • 성 먼저 (회사)
  • 회사 (성, 이름)

사용자 지정 양식 디자인 방법

  1. 파일 메뉴에서 새로 만들기를 가리킨 다음 새 전자 메일 메시지를 열고 메시지 클릭하십시오.
  2. 새 전자 메일 메시지의 도구 메뉴에서 양식 가리킨 다음 이 양식 디자인을 클릭하십시오.
  3. 새 폼에 다섯 개의 명령 단추를 삽입하십시오. 이렇게 하려면 다음을 수행합니다.
    1. 양식에 빈 페이지로 이동 (P.2) 탭을 클릭하십시오.
    2. 양식 메뉴에서 컨트롤 도구 상자명령 단추 를 클릭한 다음 빈 양식 페이지 단추를 끕니다.
    3. 새 단추를 마우스 오른쪽 단추로 클릭하고 속성 을 클릭한 다음 이름 상자에 cmdLastFirst 입력하십시오.
    4. 캡션 상자에 성, 이름, 입력한 다음 확인 을 누릅니다.
    5. 도구 대화 상자에서 명령 단추 를 클릭한 다음 빈 양식 페이지를 두 번째 단추를 끕니다.
    6. 새 단추를 마우스 오른쪽 단추로 클릭하고 속성 을 클릭한 다음 이름 상자에 cmdFirstLast 입력하십시오.
    7. 캡션 상자에 을 입력한 다음 확인 을 누릅니다.
    8. 도구 상자 대화 상자에서 명령 단추 를 클릭한 다음 빈 양식 페이지로 끌어서 세 번째 단추를 클릭하십시오.
    9. 새 단추를 마우스 오른쪽 단추로 클릭하고 속성 을 클릭한 다음 이름 상자에 cmdCompany 입력하십시오.
    10. 캡션 상자에 회사 를 입력한 다음 확인 을 누릅니다.
    11. 도구 상자 대화 상자에서 명령 단추 를 클릭한 다음 빈 양식 페이지로 끌어서 네 번째 단추를 클릭하십시오.
    12. 새 단추를 마우스 오른쪽 단추로 클릭하고 속성 을 클릭한 다음 이름 상자에 cmdLastFirstCompany 입력하십시오.
    13. 캡션 상자에 성, 이름 (회사), 입력한 다음 확인 을 누릅니다.
    14. 도구 상자 대화 상자에서 명령 단추 를 클릭한 다음 빈 양식 페이지로 끌어서 다섯 번째 단추를 클릭하십시오.
    15. 새 단추를 마우스 오른쪽 단추로 클릭하고 속성 을 클릭한 다음 이름 상자에 cmdCompanyLastFirst 입력하십시오.
    16. 캡션 상자에 회사 (성, 이름)을 입력한 다음 확인 을 누릅니다.
  4. 다음 Visual Basic 버전 (VBScript) 스크립팅 코드를 입력하십시오. 이렇게 하려면 다음을 수행합니다.
    1. 양식 메뉴에서 코드 보기 스크립트 편집기를 열려면 클릭하십시오.
    2. 스크립트 편집기에서 입력하거나 다음 코드를 복사하고:
      Option Explicit
      Dim strSortBy
      
      Sub cmdLastFirst_Click()
         strSortBy = "LastFirst"
         UpdateContacts
      End Sub
      
      Sub cmdFirstLast_Click()
         strSortBy = "FirstLast"
         UpdateContacts
      End Sub
      
      Sub cmdCompany_Click()
         strSortBy = "Company"
         UpdateContacts
      End Sub
      
      Sub cmdLastFirstCompany_Click()
         strSortBy = "Last, First (Company)"
         UpdateContacts
      End Sub
      
      Sub cmdCompanyLastFirst_Click()
         strSortBy = "Company (Last, First)"
         UpdateContacts
      End Sub
      
      Sub UpdateContacts()
      
         Dim CurFolder
         Dim MyItems
         Dim MyItem
         Dim NumItems, i
      
         ' Use whichever folder is currently selected
         Set CurFolder = Application.ActiveExplorer.CurrentFolder
      
         ' Make sure it's a contact folder
         If CurFolder.DefaultItemType = 2 Then
            MsgBox "This process may take some time. You will be " & _
            "notified when complete.", , "Contact Tools Message"
            Set MyItems = CurFolder.Items
            NumItems = MyItems.Count
            For i = 1 to NumItems
               Set MyItem = MyItems.Item(i)
               ' Make sure it's not a distribution list in the folder
               ' (really only applies to OL98 and OL2000)
               If TypeName(MyItem) = "ContactItem" Then
                  Select Case strSortBy
                     Case "LastFirst"
                        If MyItem.LastNameandFirstName <> "" Then
                           MyItem.FileAs = MyItem.LastNameandFirstName
                        Else
                           MyItem.FileAs = MyItem.CompanyName
                        End IF
                     Case "FirstLast"
                        If MyItem.Subject <> "" Then
                           MyItem.FileAs = MyItem.Subject
                        Else
                           MyItem.FileAs = MyItem.CompanyName
                        End IF
                     Case "Company"
                        If MyItem.CompanyName <> "" Then
                           MyItem.FileAs = MyItem.CompanyName
                        Else
                           MyItem.FileAs = MyItem.LastNameandFirstName
                        End IF
                     Case "Last, First (Company)"
                        MyItem.FileAs = MyItem.LastNameAndFirstName
                        If MyItem.CompanyName <> "" Then
                           If MyItem.FileAs <> "" Then
                              MyItem.FileAs = MyItem.FileAs & " (" & _
                                              MyItem.CompanyName & ")"
                           Else
                              MyItem.FileAs = MyItem.FileAs & _
                                        MyItem.CompanyName
                           End If
                        End If
                     Case "Company (Last, First)"
                        MyItem.FileAs = MyItem.CompanyName
                        If MyItem.LastNameandFirstName <> "" Then
                           If MyItem.FileAs <> "" Then
                              MyItem.FileAs = MyItem.FileAs & " (" & _
                                     MyItem.LastNameAndFirstName & ")"
                           Else
                              MyItem.FileAs = MyItem.FileAs & _
                                     MyItem.LastNameAndFirstName
                           End If
                        End If
                  End Select
                  MyItem.Save
               End If           ' check TypeName
            Next
            MsgBox "Finished updating contacts."
         Else
            MsgBox "The current folder must be a contacts folder."
         End If                 ' check contacts folder
      
         Set MyItem = Nothing
         Set MyItems = Nothing
         Set CurFolder = Nothing
      
      End Sub
      						
    3. [파일] 메뉴에서 [스크립트 편집기에서, 양식으로 돌아가려면 닫기 를 클릭하십시오.
    4. 양식의 메시지 페이지를 클릭하십시오.
    5. [양식] 메뉴에서 [페이지 표시를 클릭하십시오. 양식을 사용할 때 작업창이 나타나지 않도록 양식 페이지를 숨깁니다.
  5. 양식을 게시하십시오. 이렇게 하려면 다음을 수행합니다.
    1. 도구 메뉴에서 양식 가리킨 다음 다른 이름으로 양식 게시 를 누릅니다.
    2. 찾는 위치 옆에 있는 단추를 개인 양식 라이브러리 를 볼 있는지 확인하십시오.
    3. 표시 이름 상자에 새 폼 (예, 변경 표시 필드)를 discriptive 이름을 입력한 다음 게시 를 클릭하십시오.
    4. 양식 정의를 항목과 함께 저장할 것인지 묻는 메시지가 나타나면 아니오 를 클릭하십시오.
    5. 저장하지 않고 메시지를 닫습니다.

사용자 지정 양식을 사용하는 방법

새 양식을 사용하려면 다음과 같이 하십시오.
  1. 원하는 re-sequence 수 있는 연락처 폴더를 찾습니다.
  2. 파일 메뉴에서 새로 만들기를 가리킨 다음 양식 선택을 클릭하십시오.
  3. 찾는 위치 상자에서 개인 양식 라이브러리 변경, 새 폼을 클릭한 다음 확인 을 누릅니다.
  4. 표시 방법 필드를 업데이트하려면 해당 단추를 클릭하십시오.

참조

사용 가능한 리소스 및 Microsoft Outlook 솔루션에 대한 질문을 자주 answersto에 대한 자세한 내용은 아래 문서 번호를 눌러 Microsoft 기술 자료에 있는 문서를 클릭하십시오.
287530사용자 지정 양식과 Outlook 솔루션 정보 OL2002: 질문

속성

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