Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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

doc wijzig bestand als 3

3. druk op F5 toets om de code uit te voeren, waarna alle geselecteerde contacten het bestand hebben gewijzigd als bedrijf.

Opmerking:

1. In de code kunt u wijzigen CompanyName naar andere velden waarvan u het bestand wilt weergeven.

2. Als er geen bedrijfsinformatie is, wordt de volledige naam weergegeven.


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Glauco · 1 years ago
    I run the script above in 5 min and saved hours!! GREAT!