Hvordan batch ændres fil som format for alle kontakter i Outlook?
Generelt vises kontaktfilerne som Efternavn Fornavn i Outlook, men hvordan kan du hurtigt batch ændre kontaktfilerne som format til firma eller anden rækkefølge som vist nedenstående skærmbillede? Valgmuligheden Standard "File as" -rækkefølgen kan kun fungere for den nye kontakt, men ikke de eksisterende. Her introducerer jeg en VBA-kode til batchændringsfil som format for alle eksisterende kontakter i Outlook.
Batchændringsfil som for alle kontakter med VBA
Batchændringsfil som for alle kontakter med VBA
1. Vælg de kontakter, du vil ændre filen som, tryk på Alt + F11 for at aktivere Microsoft Visual Basic for Applications vindue.
2. Dobbeltklik på ThisOutlookSession in Project-Project1 ruden, og kopier og indsæt nedenstående kode til det tomme script.
VBA: Skift fil som
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. Trykke F5 tasten for at køre koden, så er alle valgte kontakter blevet ændret filen som firma.
Bemærk:
1. I koden kan du ændre CompanyName til andre felter, du vil vise filen som.
2. Hvis der ikke er nogen virksomhedsoplysninger, vil det vise det fulde navn.
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.
