Hur satsar jag på att ändra fil som format för alla kontakter i Outlook?
Generellt visas kontaktfilerna som Efternamn Förnamn i Outlook, men hur kan du snabbt byta kontaktfiler som format till företag eller annan ordning enligt nedanstående skärmdump? Alternativets standardfil "Fil som" kan endast fungera för den nya kontakten men inte de som fanns. Här introducerar jag en VBA-kod för att byta fil till batch som format för alla befintliga kontakter i Outlook.
Batchändringsfil som för alla kontakter med VBA
Batchändringsfil som för alla kontakter med VBA
1. Välj de kontakter du vill ändra filen som, tryck på Alt + F11 för att aktivera Microsoft Visual Basic for Applications fönster.
2. Dubbelklicka på ThisOutlookSession in Project-Project1 och kopiera och klistra in under koden i det tomma skriptet.
VBA: Ändra 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. Tryck F5 för att köra koden, sedan har alla valda kontakter ändrats filen som företag.
Notera:
1. I koden kan du ändra CompanyName till andra fält du vill visa filen som.
2. Om det inte finns någon företagsinformation kommer det att visa hela namnet.
Bästa kontorsproduktivitetsverktyg
Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook
🤖 AI Mail Assistant: Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...
📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP) / Schemalägg Skicka e-post / Auto CC/BCC enligt regler när du skickar e-post / Automatisk vidarebefordran (avancerade regler) / Lägg automatiskt till hälsning / Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...
📨 Email Management: Hämta enkelt e-postmeddelanden / Blockera bluff-e-postmeddelanden av ämnen och andra / Ta bort duplicerade e-postmeddelanden / Avancerad Sökning / Konsolidera mappar ...
📁 Bilagor Pro: Batch Spara / Batch lossa / Batchkomprimera / Automatisk sparning / Auto Lossa / Automatisk komprimering ...
🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis / Öka din Outlook-produktivitet med flikar / Minimera Outlook istället för att stänga ...
👍 Underverk med ett klick: Svara alla med inkommande bilagor / E-postmeddelanden mot nätfiske / 🕘Visa avsändarens tidszon ...
👩🏼🤝👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden / Dela upp en kontaktgrupp till individuella grupper / Ta bort påminnelser om födelsedag ...
Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.