NTT docomoのデータ管理ソフトドコモケータイdatalinkからOutlookにデータをインポートした際に重複したデータを消すマクロを作る為のメモ
連絡先フォルダにある連絡先を表題フィールドでソートして表示する
VBAヘルプのsortにあったコードほぼそのまま
Public Sub test()
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim myItems As Outlook.Items
Dim myItem As Outlook.ContactItem
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
Set myItems = myFolder.Items
myItems.Sort "[FullName]", False
For Each myItem In myItems
Debug.Print myItem.FullName
Next
End Sub
| ドコモケータイdatalink | Outlook | 備考 |
|---|---|---|
| グループ | インポートされない | |
| メモリNo | インポートされない | |
| 画像 | インポートされない | |
| 名前 | 姓 | スペースが含まれている場合には姓と名に分けてインポートされる。 セ氏名フィールドは姓と名をくっつけたもの |
| 名 | ||
| フリガナ | フリガナ (姓) | スペースがあれば姓と名に分けられる |
| フリガナ (名) | ||
| 電話1～4 | 種類によってフィールドが変わる | |
| メール1～3 | どの区分にしても順番に電子メール 電子メール 2 電子メール 3になる | |
| 郵便番号 | 郵便番号 (会社) | |
| 住所 | 住所 (会社) | |
| メモ | インポートされない | |
| 会社名 | 会社 | |
| 役職 | 役職 | |
| ドコモケータイdatalink | Outlook | 備考 |
|---|---|---|
| 携帯 | 携帯電話 | |
| 自宅 | 自宅電話 | |
| 会社 | 会社電話 | |
| 会社FAX | 会社 FAX | |
| 自宅FAX | 自宅 FAX |
これだけが正しくoutlookにインポートされる。
それ以外は通常の電話 自動車電話 ポケットベルの順番でインポートされるらしい。