OpenSharedItem を使用して保存されたアイテムをインポートするImport Saved Items using OpenSharedItem

Microsoft Outlook は、名前空間 オブジェクトの**OpenSharedItem** メソッドを提供して、iCalendar 予約 (ics) ファイル、vCard (.vcf) ファイル、および outlook メッセージ (.msg) ファイルを開き、ファイルに適した outlook アイテムを返します。Microsoft Outlook provides the OpenSharedItem method, for the NameSpace object, to open iCalendar appointment (.ics) files, vCard (.vcf) files, and Outlook message (.msg) files and return the Outlook item appropriate for the file. 次の表に示すとおり、このメソッドによって取得されるオブジェクトの種類は、開く共有アイテムの種類によって異なります。The type of object returned by this method depends on the type of shared item opened, as described in the following table.

共有アイテムの種類Shared item type Outlook アイテムOutlook item
iCalendar 予定 (.ics) ファイルiCalendar appointment (.ics) file AppointmentItemAppointmentItem
vCard (.vcf) ファイルvCard (.vcf) file ContactItemContactItem
Outlook メッセージ (.msg) ファイルOutlook message (.msg) file .msg ファイルとして保存されたアイテムの種類に該当する種類。Type corresponds to the type of the item that was saved as the .msg file

共有アイテムを開いたら、返されたオブジェクトのsaveメソッドを使用して、そのアイテムをインポートして、その Outlook アイテムに対応する既定のフォルダーに保存できます。Once the shared item is opened, you can then import the item by using the Save method of the returned object to save it to the default folder appropriate to that Outlook item.

この例では、vCard ファイルを開き、現在のユーザーの既定の連絡先フォルダーにインポートします。This sample opens and imports a vCard file into the Contacts default folder for the current user.

  1. このサンプルは、 namespaceオブジェクトへの参照を取得し、次にnamespaceオブジェクトのGetSharedItemメソッドを呼び出して、vCard ファイルを読み込み、 ContactItem参照を返します。The sample obtains a reference to a NameSpace object, then calls the GetSharedItem method of the NameSpace object to load the vCard file and return a ContactItem reference.

  2. 次に、 ContactItemsaveメソッドを呼び出して、連絡先の既定のフォルダーに保存します。It then calls the Save method of the ContactItem to save it to the Contacts default folder.

  3. 最後に、 NameSpaceオブジェクトの**GetDefaultFolder** メソッドを使用して、現在のユーザーの既定の連絡先フォルダーへの**folder** オブジェクト参照を取得し、フォルダーを表示します。Finally, it obtains a Folder object reference to the Contacts default folder for the current user by using the GetDefaultFolder method of the NameSpace object, and then displays the folder.

Public Sub OpenSharedContact() 
 
 Dim oNamespace As NameSpace 
 Dim oSharedItem As ContactItem 
 Dim oFolder As Folder 
 
 On Error GoTo ErrRoutine 
 
 ' Get a reference to a NameSpace object. 
 Set oNamespace = Application.GetNamespace("MAPI") 
 
 ' Open the vCard (.vcf) file containing the shared item. 
 Set oSharedItem = oNamespace.OpenSharedItem( _ 
 "C:/SampleContact.vcf") 
 
 ' Save the item to the Contacts default folder. 
 oSharedItem.Save 
 
 ' Get a reference to and display the Contacts default folder. 
 Set oFolder = oNamespace.GetDefaultFolder( _ 
 olFolderContacts) 
 oFolder.Display 
 
EndRoutine: 
 On Error GoTo 0 
 Set oSharedItem = Nothing 
 Set oFolder = Nothing 
 Set oNamespace = Nothing 
Exit Sub 
 
ErrRoutine: 
 Select Case Err.Number 
 Case 287 ' &H0000011F 
 ' This error occurs if the code is run by an 
 ' untrusted application, and the user chose not to 
 ' allow access. 
 MsgBox "Access to Outlook was denied by the user.", _ 
 vbOKOnly, _ 
 Err.Number & " - " & Err.Source 
 Case -2147024894 ' &H80070002 
 ' Occurs if the specified file or URL could not 
 ' be found, or the file or URL cannot be 
 ' processed by the OpenSharedItem method. 
 MsgBox Err.Description, _ 
 vbOKOnly, _ 
 Err.Number & " - " & Err.Source 
 Case -2147352567 ' &H80020009 
 ' Occurs if the specified file or URL is not valid, 
 ' or you attempt to use the Move method on 
 ' an Outlook item that represents a shared item. 
 MsgBox Err.Description, _ 
 vbOKOnly, _ 
 Err.Number & " - " & Err.Source 
 Case Else 
 ' Any other error that may occur. 
 MsgBox Err.Description, _ 
 vbOKOnly, _ 
 Err.Number & " - " & Err.Source 
 End Select 
 
 GoTo EndRoutine 
End Sub

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.