Come modificare in blocco il formato «Salva come» per tutti i contatti in Outlook?

In genere, i contatti in Outlook vengono visualizzati nel formato «Cognome Nome». Tuttavia, come si può modificare rapidamente e in blocco il formato «Salva con nome» impostandolo su «Azienda» o su un altro ordine, come illustrato nello screenshot seguente? L’opzione predefinita «Ordine Salva con nome» si applica solo ai nuovi contatti, non a quelli già esistenti. Di seguito trovi un codice VBA per aggiornare in blocco il formato «Salva con nome» di tutti i contatti esistenti in Outlook.

Modifica in blocco del formato «Salva come» per tutti i contatti con VBA

---

Modifica in blocco del formato «Salva come» per tutti i contatti con VBA

1. Seleziona i contatti per i quali desideri modificare il formato «Salva come», quindi premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Fare doppio clic su ThisOutlookSession nel riquadro Project-Project1 e copiare e incollare il codice seguente nello script vuoto.

VBA: Modifica del formato «Salva come»

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. Premere il tasto F5per eseguire il codice: tutti i contatti selezionati avranno il formato «Salva come» impostato su azienda.

Nota:

1. Nel codice è possibile sostituire CompanyNamecon altri campi da utilizzare nel formato «Salva come».

2. Se non sono disponibili informazioni sull’azienda, verrà visualizzato il nome completo.