Sut i swpio'r ffeil newid fel fformat ar gyfer pob cyswllt yn Outlook?

Yn gyffredinol, mae'r ffeiliau cyswllt yn cael eu harddangos fel Enw olaf Enw cyntaf yn Outlook, ond sut allwch chi swp-newid y ffeiliau cyswllt yn gyflym fel fformat i Gwmni neu drefn arall fel y dangosir isod y screenshot? Gall y gorchymyn “Ffeil fel” Rhagosodiad Opsiwn yn unig weithio i'r cyswllt newydd ond nid y rhai sy'n bodoli. Yma, rwy'n cyflwyno cod VBA i swpio'r ffeil newid fel fformat ar gyfer yr holl gysylltiadau sy'n bodoli yn Outlook.

Ffeil newid swp fel ar gyfer pob cyswllt â VBA

Ffeil newid swp fel ar gyfer pob cyswllt â VBA

1. Dewiswch y cysylltiadau rydych chi am newid y ffeil fel, pwyswch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic for Applications ffenestr.

2. Cliciwch ddwywaith ar ThisOutlookSession in Project-Project1 cwarel, a chopïo a gludo islaw'r cod i'r sgript wag.

VBA: Newid ffeil fel

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

newid ffeil doc fel 3