Wie kann ich die Datei als Format für alle Kontakte in Outlook stapelweise ändern?
Im Allgemeinen werden die Kontaktdateien in Outlook als Nachname Vorname angezeigt. Wie können Sie die Kontaktdateien jedoch schnell als Format in Unternehmen oder in eine andere Reihenfolge ändern, wie im folgenden Screenshot gezeigt? Die Optionsreihenfolge "Datei als" kann nur für den neuen Kontakt verwendet werden, nicht jedoch für die vorhandenen. Hier füge ich einen VBA-Code für die Stapeländerungsdatei als Format für alle in Outlook vorhandenen Kontakte ein.
Stapeländerungsdatei wie für alle Kontakte mit VBA
Stapeländerungsdatei wie für alle Kontakte mit VBA
1. Wählen Sie die Kontakte aus, unter denen Sie die Datei ändern möchten, und drücken Sie Alt + F11 Tasten zum Aktivieren der Microsoft Visual Basic for Applications Fenster.
2. Doppelklicken Sie auf ThisOutlookSession in Project-Project1 Bereich, und kopieren Sie den folgenden Code und fügen Sie ihn in das leere Skript ein.
VBA: Datei ändern 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. Drücken Sie F5 Drücken Sie die Taste, um den Code auszuführen. Anschließend wurden alle ausgewählten Kontakte in die Datei „Firma“ geändert.
Hinweis:
1. Im Code können Sie Änderungen vornehmen CompanyName zu anderen Feldern, als die Sie die Datei anzeigen möchten.
2. Wenn keine Firmeninformationen vorhanden sind, wird der vollständige Name angezeigt.
Beste Office-Produktivitätstools
Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks
🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...
📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP) / Planen Sie das Senden von E-Mails / Automatisches CC/BCC nach Regeln beim E-Mail-Versand / Automatische Weiterleitung (erweiterte Regeln) / Begrüßung automatisch hinzufügen / Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...
📨 E-Mail-Management: E-Mails einfach abrufen / Blockieren Sie betrügerische E-Mails nach Betreff und anderen / Doppelte E-Mails löschen / Erweiterte Suche / Ordner konsolidieren ...
📁 Anhänge Pro: Batch speichern / Stapeltrennung / Stapelkomprimierung / Automatisches Speichern / Automatische Trennung / Automatische Komprimierung ...
???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis / Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten / Ausblick minimieren statt schließen ...
👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu / Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf / Geburtstagserinnerungen entfernen ...
Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.
