Bagaimana cara batch mengubah file sebagai format untuk semua kontak di Outlook?
Secara umum, file kontak ditampilkan sebagai Nama belakang Nama depan di Outlook, tetapi bagaimana Anda bisa dengan cepat mengubah file kontak sebagai format ke Perusahaan atau urutan lain seperti gambar di bawah ini yang ditampilkan? Opsi Default “File as” order hanya dapat bekerja untuk kontak baru tetapi tidak untuk yang sudah ada. Di sini, saya memperkenalkan kode VBA untuk file perubahan batch sebagai format untuk semua kontak yang ada di Outlook.
File perubahan batch seperti untuk semua kontak dengan VBA
File perubahan batch seperti untuk semua kontak dengan VBA
1. Pilih kontak yang filenya ingin Anda ubah, tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic for Applications jendela.
2. Klik dua kali pada ThisOutlookSession in Project-Project1 panel, dan salin dan tempel kode di bawah ini ke skrip kosong.
VBA: Ubah file sebagai
Sub ChangeFileAsforContracts()
'UpdatebyExtendoffice20180404
Dim xSelItems As Object
Dim xItem As Object
Dim xContact As ContactItem
Dim xFileAs As String
On Error Resume Next
If Outlook.Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
MsgBox "Please select the contact folder first", vbInformation + vbOKOnly, "Kutools for Outlook"
Exit Sub
End If
Set xSelItem = Outlook.ActiveExplorer.Selection
For Each xItem In xSelItem
If xItem.Class = olContact Then
Set xContact = xItem
With xContact
If .CompanyName = "" Then
xFileAs = .FullName
Else
xFileAs = .CompanyName
End If
.FileAs = xFileAs
.Save
End With
End If
Next
End Sub
3. tekan F5 kunci untuk menjalankan kode, maka semua kontak yang dipilih telah diubah file sebagai perusahaan.
Catatan:
1. Pada kodenya, Anda dapat mengubahnya CompanyName ke bidang lain tempat Anda ingin menampilkan file.
2. Jika tidak ada informasi perusahaan, maka akan muncul nama lengkap.
Alat Produktivitas Kantor Terbaik
Kutools untuk Outlook - Lebih dari 100 Fitur Canggih untuk Meningkatkan Outlook Anda
🤖 Asisten Surat AI: Email profesional instan dengan keajaiban AI--satu klik untuk mendapatkan balasan jenius, nada sempurna, penguasaan multibahasa. Ubah email dengan mudah! ...
📧 Email Otomatis: Di Luar Kantor (Tersedia untuk POP dan IMAP) / Jadwal Kirim Email / Auto CC/BCC Sesuai Aturan Saat Mengirim Email / Penerusan Otomatis (Aturan Lanjutan) / Tambah Salam Otomatis / Secara Otomatis Membagi Email Multi-Penerima menjadi Pesan Individual ...
📨 email Management: Mengingat Email dengan Mudah / Blokir Email Penipuan berdasarkan Subjek dan Lainnya / Hapus Email Duplikat / Pencarian / Konsolidasi Folder ...
📁 Lampiran Pro: Penyimpanan Batch / Pelepasan Batch / Kompres Batch / Penyimpanan otomatis / Lepaskan Otomatis / Kompres Otomatis ...
🌟 Antarmuka Ajaib: 😊Lebih Banyak Emoji Cantik dan Keren / Tingkatkan Produktivitas Outlook Anda dengan Tampilan Tab / Minimalkan Outlook Daripada Menutup ...
👍 Keajaiban sekali klik: Balas Semua dengan Lampiran Masuk / Email Anti-Phishing / 🕘Tampilkan Zona Waktu Pengirim ...
👩🏼🤝👩🏻 Kontak & Kalender: Batch Tambahkan Kontak Dari Email yang Dipilih / Bagi Grup Kontak menjadi Grup Individual / Hapus Pengingat Ulang Tahun ...
Lebih 100 Fitur Tunggu Eksplorasi Anda! Klik Di Sini untuk Menemukan Lebih Banyak.
