メインコンテンツへスキップ

Outlookのすべての連絡先の形式としてファイルをバッチ変更するにはどうすればよいですか?

通常、連絡先ファイルはOutlookでは姓名として表示されますが、以下のスクリーンショットに示すように、連絡先ファイルを会社またはその他の順序の形式としてすばやくバッチ変更するにはどうすればよいですか? オプションのデフォルトの「ファイルとして」の順序は、新しい連絡先に対してのみ機能し、既存の連絡先に対しては機能しません。 ここでは、Outlookに存在するすべての連絡先の形式として、VBAコードをバッチ変更ファイルに導入します。

VBAとのすべての連絡先に関するバッチ変更ファイル


VBAとのすべての連絡先に関するバッチ変更ファイル

1.ファイルを変更する連絡先を選択し、を押します Alt + F11 を有効にするためのキー Microsoft Visual Basic for Applications 窓。

2.でダブルクリックします ThisOutlookSession in Project-Project1 ペインで、以下のコードをコピーして空白のスクリプトに貼り付けます。

VBA:ファイルを次のように変更します

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 に変更します

3。 押す F5 キーを押してコードを実行すると、選択したすべての連絡先のファイルが会社として変更されます。

注:

1. コード内で次のように変更できます。 CompanyName ファイルを表示する他のフィールドに移動します。

2. 会社情報がない場合は氏名が表示されます。


最高のオフィス生産性向上ツール

Outlook用Kutools - Outlook を強化する 100 以上の強力な機能

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロバッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I run the script above in 5 min and saved hours!! GREAT!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations