Hoe verander ik een batchbestand als formaat voor alle contacten in Outlook?
Over het algemeen worden de contactbestanden weergegeven als Achternaam Voornaam in Outlook, maar hoe kunt u snel de contactbestanden als formaat wijzigen in Bedrijf of een andere volgorde zoals onderstaand screenshot wordt getoond? De optie Standaard "Bestand als" -volgorde kan alleen werken voor de nieuwe contactpersoon, maar niet voor de bestaande. Hier introduceer ik een VBA-code om batchwijzigingsbestanden als indeling voor alle bestaande contacten in Outlook te gebruiken.
Batch-wijzigingsbestand zoals voor alle contacten met VBA
Batch-wijzigingsbestand zoals voor alle contacten met VBA
1. Selecteer de contacten waarmee u het bestand wilt wijzigen en druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications venster.
2. Dubbelklik op ThisOutlookSession in Project-Project1 en kopieer en plak onderstaande code in het lege script.
VBA: wijzig het bestand als
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. druk op F5 toets om de code uit te voeren, waarna alle geselecteerde contacten het bestand als bedrijf hebben gewijzigd.
Opmerking:
1. In de code kunt u wijzigingen aanbrengen CompanyName naar andere velden waarin u het bestand wilt weergeven.
2. Als er geen bedrijfsinformatie is, wordt de volledige naam weergegeven.
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.