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

Awdur: Haul Wedi'i Addasu Diwethaf: 2020-11-19

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