VBAでOutlook2013のアドレス帳（既定の連絡先）を一括削除したい

Question

お世話になります。

VBAでOutlook2013のアドレス帳（既定の連絡先）を一括削除する方法をご教授頂けないでしょうか。
そもそもVBAだけではObject操作することが難しい場合は、何か良い手段は無いでしょうか。

アドレス帳（既定の連絡先）のエクスポート、インポートはVBAで出来ることは確認できましたが、
実施したいこととして、エクスポートしたアドレス帳のファイル（PSTファイル）をインポートすると
重複して登録されてしまうので、一旦アドレス帳（既定の連絡先）を削除してからインポートしたいと考えています。
尚、連絡先は階層構造にはなっていません。既定である連絡先にアドレスを登録している状態です。

下記のインポートするVBA内にアドレス帳（既定の連絡先）を一括削除（クリア）するコードを組み込みたいと考えています。

Const PST_FILE = "test.pst"
Const olFolderContacts = 10
On Error Resume Next
Dim olkApp 'As Outlook.Application
Dim objPST 'As Store
Dim fldRoot 'As Folder
Dim fldSrc 'As Folder
Dim fldDst 'As Folder
Dim conSrc 'As ContactItem
Dim conDst 'As ContactItem
'
Set olkApp = CreateObject("Outlook.Application")
With olkApp.Session
Set fldDst = .GetDefaultFolder(olFolderContacts)
.AddStore PST_FILE
For Each objPST In .Stores
If objPST.FilePath = PST_FILE Then
Exit For
End If
Next
Set fldRoot = objPST.GetRootFolder()
Set fldSrc = fldRoot.Folders.Item("連絡先")
For Each conSrc In fldSrc.Items
Set conDst = conSrc.Copy()
conDst.Move fldDst
Next
.RemoveStore fldRoot
End With

Answer 1

以下のような感じでしょうか。

With olkApp.Session
    Set fldDst = .GetDefaultFolder(olFolderContacts)
    
    Dim i As Long
    For i = 1 To fldDst.Items.Count
        fldDst.Items.Remove 1
    Next i
    

ポイントとして、For Each を使わず中の要素の数の回数分1個目を消す、としているところです。

---

Index	Value
1	A
2	B
3	C
4	D
5	E

上記の表のように要素が入っているとき、For Each で回して中の要素を消していくと、

1ループ目

Index	Value	削除対象
1	A	←
2	B
3	C
4	D
5	E

2ループ目

Index	Value	削除対象
1	B
2	C	←
3	D
4	E

3ループ目

Index	Value	削除対象
1	B
2	D
3	E	←

と、どんどんずれてしまい、1回のループでは消しきることができません。

(このような問題はまま起こりえるため、言語によっては For Each ループ中の要素の追加・削除を禁止しているものもあります)

Comments

[ts_taro_yamada]

ご回答ありがとうございました。解決できました。
最終的にVBSで動かしたかったため、下記のように修正し解決いたしました。

Set olkApp = CreateObject("Outlook.Application")
With olkApp.Session
Set fldDst = .GetDefaultFolder(olFolderContacts)

For i = 1 To fldDst.Items.Count Step 1
fldDst.Items.Remove 1
Next

[DavidGodfin]

特別なユーティリティを使用して、未使用の連絡先を検索し、マークを付けて削除する方が簡単かもしれません。Outlookの連絡先を操作するためのこれらのツールやその他のツールは、https://www.outlookfreeware.com/en/products/productivity の無料デモ版でご利用いただけます。