OL2002: Bagaimana untuk mengubah File sebagai lapangan untuk semua kontak

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 291144 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Artikel ini menjelaskan cara menggunakan Outlook bentuk kustom dan Visual Basic Scripting Edition (VBScript) untuk pemrograman mengubah Diberkas sebagai lapangan untuk sejumlah besar ada kontak.

INFORMASI LEBIH LANJUT

PENTING: Jika Anda mengubah format Diberkas sebagai lapangan dengan menggunakan formulir kontak Outlook standar, Outlook memastikan bahwa format bidang ini tidak mempengaruhi daerah-daerah lain di mana informasi jenis ini ditampilkan (seperti di atas kontak ketika Anda melihat pada tampilan alamat kartu). Namun, contoh ini hanya perubahan Diberkas sebagai lapangan itu sendiri dan oleh karena itu tidak melakukan fungsi yang sama seperti formulir kontak Outlook. Microsoft menganjurkan bahwa Anda membuat salinan dari folder kontak Anda dan kemudian menggunakan kode contoh di bawah ini pada folder yang Anda disalin untuk memastikan bahwa manfaat menggunakan sampel ini lebih besar daripada segala kekurangan yang potensial dari pendekatan ini.

CATATAN: Ketika Anda mengubah Diberkas sebagai lapangan, urutan di mana kontak muncul di buku alamat Outlook tidak terpengaruh.

Microsoft menyediakan pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat, termasuk, namun tidak terbatas pada, jaminan tersirat mengenai keadaan yang dapat diperjualbelikan dan/atau kesesuaian untuk tujuan tertentu. Artikel ini mengasumsikan bahwa Anda sudah familiar dengan bahasa pemrograman yang ditunjukkan dan alat-alat yang digunakan untuk membuat dan memperbaiki prosedur. Profesional dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, tetapi mereka tidak akan mengubah contoh tersebut untuk menyediakan fungsionalitas tambahan atau membuat prosedur untuk memenuhi kebutuhan spesifik Anda.
Jika Anda memiliki terbatas pengalaman pemrograman, Anda mungkin ingin menghubungi Microsoft Certified Partner atau Microsoft Advisory Services. Untuk informasi lebih lanjut, kunjungi situs Web Microsoft ini:

Microsoft Certified Partner- https://Partner.Microsoft.com/global/30000104

Microsoft Advisory Services- http://support.Microsoft.com/GP/advisoryservice

Untuk informasi lebih lanjut tentang opsi dukungan yang tersedia dan tentang cara menghubungi Microsoft, kunjungi Website Microsoft berikut:http://support.Microsoft.com/default.aspx?scid=Fh;EN-US;CNTACTMSKetika Anda membuat bentuk Outlook kustom baru, Anda dapat mengubah Diberkas sebagai lapangan untuk semua kontak ke salah satu format berikut:
  • Terakhir pertama
  • Terakhir, pertama
  • Perusahaan
  • Belakang, depan (perusahaan)
  • Perusahaan (belakang, depan)

Bagaimana desain bentuk Custom

  1. Pada Berkas menu, titik Baru, lalu klik Pesan untuk membuka pesan e-mail baru.
  2. Pada Alat menu pesan e-mail baru, menunjuk ke Bentuk, lalu klik Desain formulir ini.
  3. Sisipkan tombol lima bentuk baru. Untuk melakukannya:
    1. Klik (P.2) tab untuk pergi ke sebuah halaman kosong pada formulir.
    2. Pada Bentuk menu, klik Toolbox Kontrol, klik CommandButton, seret, dan lepaskan tombol untuk halaman formulir kosong.
    3. Klik kanan tombol baru, klik Properti, kemudian ketik cmdLastFirst dalam Nama kotak.
    4. Dalam Keterangan kotak, jenis Terakhir, pertama, lalu klik Oke.
    5. Dalam Toolbox kotak dialog, klik CommandButton, dan kemudian tarik kedua tombol ke halaman kosong bentuk.
    6. Klik kanan tombol baru, klik Properti, kemudian ketik cmdFirstLast dalam Nama kotak.
    7. Dalam Keterangan kotak, jenis Terakhir pertama, lalu klik Oke.
    8. Dalam Toolbox kotak dialog, klik CommandButton, dan kemudian tarik ketiga tombol ke halaman kosong bentuk.
    9. Klik kanan tombol baru, klik Properti, kemudian ketik cmdCompany dalam Nama kotak.
    10. Dalam Keterangan kotak, jenis Perusahaan, lalu klik Oke.
    11. Dalam Toolbox kotak dialog, klik CommandButton, dan kemudian tarik keempat tombol ke halaman kosong bentuk.
    12. Klik kanan tombol baru, klik Properti, kemudian ketik cmdLastFirstCompany dalam Nama kotak.
    13. Dalam Keterangan kotak, jenis Belakang, depan (perusahaan), lalu klik Oke.
    14. Dalam Toolbox kotak dialog, klik CommandButton, dan kemudian tarik kelima tombol ke halaman kosong bentuk.
    15. Klik kanan tombol baru, klik Properti, kemudian ketik cmdCompanyLastFirst dalam Nama kotak.
    16. Dalam Keterangan kotak, jenis Perusahaan (belakang, depan), lalu klik Oke.
  4. Ketik kode Visual Basic Script Edition (VBScript) berikut. Untuk melakukannya:
    1. Pada Bentuk menu, klik Lihat kode untuk membuka Script Editor.
    2. Dalam Script Editor, ketik atau menyalin kode berikut:
      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. Pada Berkas menu di Script Editor, klik Tutup untuk kembali ke form.
    4. Klik Pesan Halaman formulir.
    5. Pada Bentuk menu, klik Menampilkan halaman ini. Ini menyembunyikan bentuk halaman sehingga tidak muncul ketika bentuk digunakan.
  5. Mempublikasikan bentuk. Untuk melakukannya:
    1. Pada Alat menu, titik Bentuk, lalu klik Mempublikasikan bentuk sebagai.
    2. Memverifikasi bahwa samping Lihat di tombol yang Anda lihat Pribadi bentuk perpustakaan.
    3. Dalam Nama tampilan Ketik jenis nama discriptive untuk bentuk baru Anda (seperti, Mengubah File sebagai bidang), lalu klik Terbitkan.
    4. Saat Anda diminta untuk menyimpan definisi bentuk dengan item, klik Tidak.
    5. Menutup pesan tanpa menyimpannya.

Cara menggunakan formulir Custom

Untuk menggunakan bentuk baru Anda:
  1. Cari folder kontak yang ingin Anda re-sequence.
  2. Pada Berkas menu, titik Baru, lalu klik Memilih bentuk.
  3. Perubahan Lihat di kotak Pribadi bentuk perpustakaan, klik bentuk baru Anda, dan kemudian klik Oke.
  4. Klik tombol yang sesuai untuk memperbarui Diberkas sebagai lapangan.

REFERENSI

Untuk informasi tambahan tentang sumber daya yang tersedia dan answersto yang sering diajukan tentang solusi Microsoft Outlook, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
287530 OL2002: Pertanyaan tentang bentuk-bentuk Custom dan Outlook solusi
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Properti

ID Artikel: 291144 - Kajian Terakhir: 23 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Outlook 2002 Standard Edition
Kata kunci: 
kbhowto kbmt KB291144 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:291144

Berikan Masukan

 

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