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 を ドラックして放り投げて(ドロップ)戻せばいいんだけど、コードで書くと大変??