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?

D?ch tiêu đ? D?ch tiêu đ?
ID c?a bài: 291144 - Xem s?n ph?m mà bài này áp d?ng vào.
Bung t?t c? | Thu g?n t?t c?

? Trang này

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 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. 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

Thu?c tính

ID c?a bài: 291144 - L?n xem xét sau cùng: 06 Tháng Mười 2011 - Xem xét l?i: 4.0
Áp d?ng
  • Microsoft Outlook 2002 Standard Edition
T? khóa: 
kbhowto kbmt KB291144 KbMtvi
Máy d?ch
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

Cung cấp Phản hồi

 

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