Freigeben über

Speichern von Daten in einem StorageItem für eine Projektmappe

  • Artikel

In diesem Thema wird beschrieben, wie private Anwendungsdaten im durch das Outlook-Objektmodell bereitgestellten Lösungsspeicher gespeichert werden.

  1. Bestimmen Sie den Ordner, in dem Sie die Anwendungsdaten speichern möchten.

Hinweis Da der Lösungsspeicher als ausgeblendete Elemente in einem Ordner erstellt wird, können Sie Lösungsdaten nur speichern, wenn der Speicheranbieter ausgeblendete Elemente unterstützt und der Client über Die Berechtigung zum Schreiben in diesen Ordner verfügt. 2. Verwenden Sie Folder.GetStorage , um entweder ein vorhandenes StorageItem-Objekt oder ein neues StorageItem-Objekt abzurufen, falls noch keins vorhanden ist.

  1. Verwenden Sie StorageItem.Size, um zu ermitteln, ob das StorageItem-Objekt neu ist. Wenn dies der Fall ist, verwenden Sie die Add -Methode von StorageItem.UserProperties, um eine benutzerdefinierte Eigenschaft namens Order Number zu erstellen.

  2. Legen Sie die Order Number -Eigenschaft fest. Dabei wird angenommen, dass für ein vorhandenes StorageItem-Objekt bereits die benutzerdefinierte Eigenschaft Order Number definiert ist.

  3. Verwenden Sie StorageItem.Save, um das StorageItem-Objekt als ausgeblendetes Element im Ordner zu speichern.

Sub StoreData() 
 Dim oInbox As Folder 
 Dim myStorage As StorageItem 
 Dim myPrivateProperty As UserProperty 
 
 Set oInbox = Application.Session.GetDefaultFolder(olFolderInbox) 
 ' Get an existing instance of StorageItem by subject, or create new if it doesn't exist 
 Set myStorage = oInbox.GetStorage("My Private Storage", olIdentifyBySubject) 
 
 If myStorage.Size = 0 Then 
 'There was no existing StorageItem by this subject, so created a new one 
 'Create a custom property for Order Number 
 Set myPrivateProperty = myStorage.UserProperties.Add("Order Number", olNumber) 
 Else 
 'Assume that existing storage has the Order Number property already 
 Set myPrivateProperty = myStorage.UserProperties("Order Number") 
 End If 
 myPrivateProperty.Value = lngOrderNumber 
 myStorage.Save 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.