現在、PST ファイルからアイテムを抽出して指定の場所に保存できるアプリケーションを開発中です。現在、提供されている Microsoft.Office.Outlook.Interop を使用してこれを行っています。
連絡先アイテムを保存するために使用するコードを次に示します。コードは、私が使用しているすべてのアイテムで似ています。
Dim objitem As Object
If TypeOf objItem Is Outlook.ContactItem Then
'Get out contacts
ContactItem = CType(objItem, Outlook.ContactItem)
strSaveName = (ContactItem.FullName.ToString) & ".vcf"
ContactItem.SaveAs(strFolderPath & "\" & (strSaveName), Outlook.OlSaveAsType.olVCard)
End If
ただし、SaveAs() メソッドを使用してアイテムを保存しようとすると、アプリケーションが一定期間 Outlook を使用することを許可するように求めるセキュリティ プロンプトが表示されます。(1,5,10 分) 私が間違っていなければ。Outlook の引き換えがこれを回避できることを理解しています。どうすればいいですか?
よろしく、
アディーブ