로그인

Select the product you need help with

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

기술 자료: 291144 - 이 문서가 적용되는 제품 보기.

기계 번역 고지 사항 보기

기계 번역된 문서와 영문 원본 문서 나란히 보기

모두 확대 | 모두 축소

요약

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

위로 가기 | 피드백 보내기

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

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

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

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

(https://partner.microsoft.com/global/30000104)

인증

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

(http://support.microsoft.com/gp/advisoryservice)

사용할 수 있는 지원 옵션 및 Microsoft 연락하는 방법에 대한 자세한 내용은 다음 Microsoft 웹 사이트를 방문하십시오: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

(http://support.microsoft.com/default.aspx?scid=fh;en-us;cntactms)

새 사용자 지정 Outlook 양식을 만들 때 모든 연락처의 표시 필드를 다음 형식 중 하나로 변경할 수 있습니다.

성
마지막으로, 먼저
회사
성 먼저 (회사)
회사 (성, 이름)

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

파일 메뉴에서 새로 만들기를 가리킨 다음 새 전자 메일 메시지를 열고 메시지 클릭하십시오.
새 전자 메일 메시지의 도구 메뉴에서 양식 가리킨 다음 이 양식 디자인을 클릭하십시오.
새 폼에 다섯 개의 명령 단추를 삽입하십시오. 이렇게 하려면 다음을 수행합니다.
1. 양식에 빈 페이지로 이동 (P.2) 탭을 클릭하십시오.
2. 양식 메뉴에서 컨트롤 도구 상자명령 단추 를 클릭한 다음 빈 양식 페이지 단추를 끕니다.
3. 새 단추를 마우스 오른쪽 단추로 클릭하고 속성 을 클릭한 다음 이름 상자에 cmdLastFirst 입력하십시오.
4. 캡션 상자에 성, 이름, 입력한 다음 확인 을 누릅니다.
5. 도구 대화 상자에서 명령 단추 를 클릭한 다음 빈 양식 페이지를 두 번째 단추를 끕니다.
6. 새 단추를 마우스 오른쪽 단추로 클릭하고 속성 을 클릭한 다음 이름 상자에 cmdFirstLast 입력하십시오.
7. 캡션 상자에 성 을 입력한 다음 확인 을 누릅니다.
8. 도구 상자 대화 상자에서 명령 단추 를 클릭한 다음 빈 양식 페이지로 끌어서 세 번째 단추를 클릭하십시오.
9. 새 단추를 마우스 오른쪽 단추로 클릭하고 속성 을 클릭한 다음 이름 상자에 cmdCompany 입력하십시오.
10. 캡션 상자에 회사 를 입력한 다음 확인 을 누릅니다.
11. 도구 상자 대화 상자에서 명령 단추 를 클릭한 다음 빈 양식 페이지로 끌어서 네 번째 단추를 클릭하십시오.
12. 새 단추를 마우스 오른쪽 단추로 클릭하고 속성 을 클릭한 다음 이름 상자에 cmdLastFirstCompany 입력하십시오.
13. 캡션 상자에 성, 이름 (회사), 입력한 다음 확인 을 누릅니다.
14. 도구 상자 대화 상자에서 명령 단추 를 클릭한 다음 빈 양식 페이지로 끌어서 다섯 번째 단추를 클릭하십시오.
15. 새 단추를 마우스 오른쪽 단추로 클릭하고 속성 을 클릭한 다음 이름 상자에 cmdCompanyLastFirst 입력하십시오.
16. 캡션 상자에 회사 (성, 이름)을 입력한 다음 확인 을 누릅니다.

다음 Visual Basic 버전 (VBScript) 스크립팅 코드를 입력하십시오. 이렇게 하려면 다음을 수행합니다.

양식 메뉴에서 코드 보기 스크립트 편집기를 열려면 클릭하십시오.

스크립트 편집기에서 입력하거나 다음 코드를 복사하고:

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

[파일] 메뉴에서 [스크립트 편집기에서, 양식으로 돌아가려면 닫기 를 클릭하십시오.
양식의 메시지 페이지를 클릭하십시오.
[양식] 메뉴에서 [페이지 표시를 클릭하십시오. 양식을 사용할 때 작업창이 나타나지 않도록 양식 페이지를 숨깁니다.

양식을 게시하십시오. 이렇게 하려면 다음을 수행합니다.
1. 도구 메뉴에서 양식 가리킨 다음 다른 이름으로 양식 게시 를 누릅니다.
2. 찾는 위치 옆에 있는 단추를 개인 양식 라이브러리 를 볼 있는지 확인하십시오.
3. 표시 이름 상자에 새 폼 (예, 변경 표시 필드)를 discriptive 이름을 입력한 다음 게시 를 클릭하십시오.
4. 양식 정의를 항목과 함께 저장할 것인지 묻는 메시지가 나타나면 아니오 를 클릭하십시오.
5. 저장하지 않고 메시지를 닫습니다.

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

새 양식을 사용하려면 다음과 같이 하십시오.

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

위로 가기 | 피드백 보내기

참조

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

287530

(http://support.microsoft.com/kb/287530/EN-US/ )

사용자 지정 양식과 Outlook 솔루션 정보 OL2002: 질문

위로 가기 | 피드백 보내기

속성

기술 자료: 291144 - 마지막 검토: 2006년 11월 23일 목요일 - 수정: 2.4

본 문서의 정보는 다음의 제품에 적용됩니다.

Microsoft Outlook 2002 Standard Edition

kbmt kbhowto KB291144 KbMtko

기계 번역된 문서

중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.

이 문서의 영문 버전 보기.

위로 가기 | 피드백 보내기