OL2002: Làm thế nào để thay đổi các tập tin như lĩnh vực cho tất cả các địa chỉ liên hệ

QUAN TRỌNG: Bài viết này được dịch bằng phần mềm dịch máy của Microsoft chứ không phải do con người dịch. Microsoft cung cấp các bài viết do con người dịch và cả các bài viết do máy dịch để bạn có thể truy cập vào tất cả các bài viết trong Cơ sở Kiến thức của chúng tôi bằng ngôn ngữ của bạn. Tuy nhiên, bài viết do máy dịch không phải lúc nào cũng hoàn hảo. Loại bài viết này có thể chứa các sai sót về từ vựng, cú pháp hoặc ngữ pháp, giống như một người nước ngoài có thể mắc sai sót khi nói ngôn ngữ của bạn. Microsoft không chịu trách nhiệm về bất kỳ sự thiếu chính xác, sai sót hoặc thiệt hại nào do việc dịch sai nội dung hoặc do hoạt động sử dụng của khách hàng gây ra. Microsoft cũng thường xuyên cập nhật phần mềm dịch máy này.

Nhấp chuột vào đây để xem bản tiếng Anh của bài viết này:291144
Bài viết này đã được lưu trữ. Bài viết được cung cấp "nguyên trạng" và sẽ không còn được cập nhật nữa.
TÓM TẮT
Bài viết này mô tả cách sử dụng một hình thức Outlook tùy chỉnh và Visual Basic script Edition (VBScript) lập trình thay đổi các Nộp theo lĩnh vực cho một số lớn các địa chỉ liên hệ hiện có.
THÔNG TIN THÊM
QUAN TRỌNG: Nếu bạn thay đổi định dạng của các Nộp theo lĩnh vực bằng cách sử dụng tiêu chuẩn Outlook mẫu liên hệ, Outlook, đảm bảo rằng các định dạng của lĩnh vực này không ảnh hưởng đến các khu vực khác nơi loại thông tin này được hiển thị (chẳng hạn như ở đầu một số liên lạc khi bạn xem nó trong giao diện địa chỉ thẻ). Tuy nhiên, ví dụ này đơn giản chỉ cần thay đổi các Nộp theo lĩnh vực chính nó và do đó không thực hiện các chức năng tương tự như hình thức liên lạc Outlook. Microsoft khuyến cáo rằng bạn tạo một bản sao của thư mục địa chỉ liên hệ của bạn và sau đó sử dụng mẫu mã dưới đây vào thư mục bạn đã sao chép để đảm bảo rằng các lợi ích của việc sử dụng mẫu này lớn hơn bất kỳ hạn chế tiềm năng của cách tiếp cận này.

LƯU Ý: Khi bạn thay đổi các Nộp theo lĩnh vực, theo thứ tự mà các địa chỉ liên lạc xuất hiện trong sổ địa chỉ Outlook không bị ảnh hưởng.

Microsoft cung cấp lập trình ví dụ để minh hoạ chỉ, không có bảo hành hoặc thể hiện hay ngụ ý, bao gồm nhưng không giới hạn, bảo đảm ngụ ý khả năng bán hàng và/hoặc cho một mục đích cụ thể. Bài viết này giả định rằng bạn đã quen thuộc với ngôn ngữ lập trình được chứng minh và các công cụ được sử dụng để tạo ra và gỡ lỗi thủ tục. Microsoft hỗ trợ các chuyên gia có thể giúp giải thích các chức năng của một thủ tục cụ thể, nhưng họ sẽ không sửa đổi những ví dụ để cung cấp thêm chức năng hoặc xây dựng quy trình để đáp ứng nhu cầu cụ thể của bạn.
Nếu bạn có hạn chế kinh nghiệm lập trình, bạn có thể muốn liên hệ với một Microsoft Certified Partner hoặc dịch vụ tư vấn của Microsoft. Để biết thêm chi tiết, hãy truy cập các trang Web Microsoft:

Microsoft Certified đối tác- https://Partner.Microsoft.com/Global/30000104

Dịch vụ tư vấn của Microsoft- http://support.Microsoft.com/GP/advisoryservice

Để biết thêm thông tin về các tùy chọn hỗ trợ có sẵn và về làm thế nào để liên hệ với Microsoft, truy cập Web site sau của Microsoft:http://support.Microsoft.com/Default.aspx?SCID=FH;EN-US;CNTACTMSKhi bạn tạo một hình thức tùy chỉnh Outlook mới, bạn có thể thay đổi các Nộp theo lĩnh vực cho tất cả các địa chỉ liên lạc với bất kỳ các định dạng sau:
  • Cuối cùng đầu tiên
  • Cuối cùng, người đầu tiên
  • Công ty
  • Cuối cùng, đầu tiên (công ty)
  • Công ty (cuối cùng, người đầu tiên)

Làm thế nào để thiết kế các hình thức tùy chỉnh

  1. Trên các Tệp trình đơn, điểm đến Mới, sau đó bấm Thư để mở một thư điện tử mới.
  2. Trên các Công cụ trình đơn của thư điện tử mới, điểm đến Các hình thức, sau đó bấm Thiết kế mẫu này.
  3. Chèn năm nút lệnh ngày biểu mẫu mới. Để thực hiện việc này:
    1. Bấm vào các (P.2) Tab để đi đến một trang trống về hình thức.
    2. Trên các Hình thức trình đơn, nhấp vào Hộp công cụ kiểm soát, bấm CommandButton, và sau đó kéo nút để trang blank mẫu.
    3. Nhấp chuột phải vào nút mới, bấm vào Thuộc tính, rồi gõ cmdLastFirst trong các Tên hộp.
    4. Trong các Chú thích hộp, loại Cuối cùng, người đầu tiên, sau đó bấm Ok.
    5. Trong các Hộp công cụ hộp thoại hộp, bấm vào CommandButton, và sau đó kéo nút thứ hai để trang blank mẫu.
    6. Nhấp chuột phải vào nút mới, bấm vào Thuộc tính, rồi gõ cmdFirstLast trong các Tên hộp.
    7. Trong các Chú thích hộp, loại Cuối cùng đầu tiên, sau đó bấm Ok.
    8. Trong các Hộp công cụ hộp thoại hộp, bấm vào CommandButton, và sau đó kéo một phần ba nút để trang blank mẫu.
    9. Nhấp chuột phải vào nút mới, bấm vào Thuộc tính, rồi gõ cmdCompany trong các Tên hộp.
    10. Trong các Chú thích hộp, loại Công ty, sau đó bấm Ok.
    11. Trong các Hộp công cụ hộp thoại hộp, bấm vào CommandButton, và sau đó kéo, 4 nút để trang blank mẫu.
    12. Nhấp chuột phải vào nút mới, bấm vào Thuộc tính, rồi gõ cmdLastFirstCompany trong các Tên hộp.
    13. Trong các Chú thích hộp, loại Cuối cùng, đầu tiên (công ty), sau đó bấm Ok.
    14. Trong các Hộp công cụ hộp thoại hộp, bấm vào CommandButton, và sau đó kéo một phần năm nút để trang blank mẫu.
    15. Nhấp chuột phải vào nút mới, bấm vào Thuộc tính, rồi gõ cmdCompanyLastFirst trong các Tên hộp.
    16. Trong các Chú thích hộp, loại Công ty (cuối cùng, người đầu tiên), sau đó bấm Ok.
  4. Gõ mã Visual Basic script Edition (VBScript) sau đây. Để thực hiện việc này:
    1. Trên các Hình thức trình đơn, nhấp vào Xem mã để mở biên tập kịch bản.
    2. Trong trình biên tập kịch bản, gõ hoặc copy đoạn mã sau:
      Option ExplicitDim strSortBySub cmdLastFirst_Click()   strSortBy = "LastFirst"   UpdateContactsEnd SubSub cmdFirstLast_Click()   strSortBy = "FirstLast"   UpdateContactsEnd SubSub cmdCompany_Click()   strSortBy = "Company"   UpdateContactsEnd SubSub cmdLastFirstCompany_Click()   strSortBy = "Last, First (Company)"   UpdateContactsEnd SubSub cmdCompanyLastFirst_Click()   strSortBy = "Company (Last, First)"   UpdateContactsEnd SubSub 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 = NothingEnd Sub						
    3. Trên các Tệp trình đơn trong Script Editor, nhấn vào đây Đóng để trở về mẫu.
    4. Bấm vào các Tin nhắn Trang mẫu.
    5. Trên các Hình thức trình đơn, nhấp vào Hiển thị trang này. Điều này ẩn trang mẫu do đó nó không xuất hiện khi biểu mẫu được sử dụng.
  5. Xuất bản dưới hình thức. Để thực hiện việc này:
    1. Trên các Công cụ trình đơn, điểm đến Các hình thức, sau đó bấm Xuất bản dưới hình thức như.
    2. Xác minh rằng bên cạnh các Tìm trong nút bạn thấy Cá nhân các hình thức thư viện.
    3. Trong các Tên hiển thị hộp, gõ tên discriptive cho mẫu mới của bạn (ví dụ như, Thay đổi tập tin như các lĩnh vực), sau đó bấm Xuất bản.
    4. Khi bạn được nhắc để tiết kiệm định nghĩa hình thức với mục, nhấp vào Không.
    5. Đóng thư mà không lưu nó.

Làm thế nào để sử dụng mẫu tùy chỉnh

Sử dụng hình thức mới của bạn:
  1. Xác định vị trí thư mục số liên lạc mà bạn muốn re-sequence.
  2. Trên các Tệp trình đơn, điểm đến Mới, sau đó bấm Chọn mẫu.
  3. Thay đổi các Tìm trong hộp Cá nhân các hình thức thư viện, bấm vào hình thức mới của bạn, và sau đó nhấp vào Ok.
  4. Nhấp vào nút thích hợp để cập nhật các Nộp theo lĩnh vực.
THAM KHẢO
Để thêm thông tin về nguồn lực sẵn có và answersto thường gặp câu hỏi về các giải pháp của Microsoft Outlook, Click vào số bài viết dưới đây để xem bài viết trong cơ sở kiến thức Microsoft:
287530 OL2002: Câu hỏi về các hình thức tùy chỉnh và các giải pháp Outlook
OfficeKBHowTo OutSol OutSol2002

Cảnh báo: Bài viết này được dịch tự động

Thuộc tính

ID Bài viết: 291144 - Xem lại Lần cuối: 12/06/2015 01:04:22 - Bản sửa đổi: 4.0

Microsoft Outlook 2002 Standard Edition

  • kbnosurvey kbarchive kbhowto kbmt KB291144 KbMtvi
Phản hồi