Outlook VBA 配布リスト DistListItem 調査 やりかけ

Outlookで配布リストの復元をテストする。
※やりかけ。。。

.Saveで単純に保存はできないみたいなので、
createitemしてから、コピーするのかなぁ？
まぁ、やりかけのコードです。

Sub tset()
    'インポート
    Dim oNamespace As NameSpace
    
    'Outlook 配布リスト
    Dim oItem As Object
    
    Dim oFolder As Folder
    
    'On Error GoTo ErrRoutine
    
    ' NameSpace オブジェクトへの参照を取得します。
    Set oNamespace = Application.GetNamespace("MAPI")
    
    ' .msg ファイルを開きます。配布リストの取り込み
    Set oItem = oNamespace.OpenSharedItem("D:\vba\test.msg")
    
    ' 既定の連絡先フォルダへの参照を取得し、フォルダを表示します。
    Set oFolder = oNamespace.GetDefaultFolder( _
        olFolderContacts)
    oFolder.Display
    
    ' アイテムを既定の連絡先フォルダに保存します。
    oItem.Save
    
    
   On Error GoTo 0
    Set oItem = Nothing
    Set oFolder = Nothing
    Set oNamespace = Nothing

End Sub

デバックイメージ

? typename(oitem)
DistListItem

だったので、DistListItem が 連絡先、配布リストだと思い、ここから探る？

今後の方針？

復元だから
連絡先で作成するときに、
1.既存の名前を削除、
2.配布先を作成する
3.読み込んだ配布先をコピー(2で作ったアイテムに代入する？)
そんな感じかなぁ。

テスト時の.saveでエラーが出ないのが気になったりするけど。。。
なんか、先が長い予感。
※もっと簡単に、インポートがあるような予感。

※※手作業だと、.msgに保存された 配布先.msg を ドラックして放り投げて(ドロップ)戻せばいいんだけど、コードで書くと大変？？