Outlook連絡先のデータを別フィールドにコピーする方法

アウトルック連絡先に3000件ほどのデータが入っています。

3000件の連絡先に「会社住所」や「会社電話」、「携帯電話」などがインプットされています。

登録されているデータそのものを変えずに、フィールドを変更する相談です。

例えば、「会社電話」フィールドに登録されている3000件のデータを一括して、「会社電話2」へと変更する方法はあるのでしょうか？

No.2 回答者： deus_ex_machina 回答日時： 2007/10/26 18:19

一般機能では難しいと思われます。

●A案　エクスポート⇒インポートを使う
　連絡先の内容をいったんテキストファイル等にエクスポートして削除。
　インポートでデータを戻す際に、[フィールドの一致]で
　旧データの「会社電話」を新データの「会社電話2」に対応させる。

●B案　マクロを使う

動作の概要
　既定の連絡先フォルダのすべての連絡先について、
　・「会社電話」：データ有り　かつ　「会社電話2」：データ無し　の場合
　　⇒「会社電話」の内容を「会社電話2」に写し、「会社電話」の内容を削除する。
　・「会社電話」：データ無し　又は　「会社電話2」：データ有り　の場合
　　⇒処理をスキップする

Sub Sample0710260()
　Set myNamespace = Application.GetNamespace("MAPI")
　Set myCfolder = myNamespace.GetDefaultFolder(olFolderContacts)
　For Each myItem In myCfolder.Items
　　With myItem
　　　If .BusinessTelephoneNumber <> "" And _
　　　　 .Business2TelephoneNumber = "" Then
　　　　　.Business2TelephoneNumber = .BusinessTelephoneNumber
　　　　　.BusinessTelephoneNumber = ""
　　　　　.Save
　　　End If
　　End With
　Next myItem　
End Sub

（Outlook2003で動作確認済)

※A案・B案いずれにしろ、バックアップを取ってからの作業をお奨めします。

No.1 回答者： maoo2022 回答日時： 2007/10/26 14:43

アウトルックのインポート＆エクスポート

＊ファイルメニューから［インポートとエクスポート（Ｔ）］メニューを開き個人ファイルをエクスポート（出力）出来ます。
この際に出来たファイルはＯＦＦＩＣＥでしか開けませんが。

＊［ファイルへエクスポート］を選択して次へ（Ｎ）

＊［個人用フォルダファイル］を選択して次へ（Ｎ）

＊［エクスポートするフォルダ（Ｅ）］で連絡先を選択して次へ（Ｎ）

＊ここで［ファイル名］を指定できます。
［オプション］の中から、何れかにチェックをして［完了］をクリックして終了です。