StorageItem.Save-Methode (Outlook)

  • Artikel

Das StorageItem -Objekt wird gespeichert.

Syntax

Ausdruck. Speichern

Ausdruck Eine Variable, die ein StorageItem-Objekt darstellt.

HinwBemerkungeneise

Wenn das StorageItem-Objekt noch nie gespeichert wurde, speichert das Speichern des Elements als ausgeblendetes Element im Ordner auf dem Folder.GetStorage aufgerufen wurde. Wenn das StorageItem-Objekt zuvor gespeichert wurde, und das Element wurde seit geändert wurde, Speichern speichert die Änderungen auf das Element. Wenn das StorageItem-Objekt zuvor gespeichert wurde, und das Element nicht seitdem geändert wurde, wird die Save -Methode Nothing zurück.

Weitere Informationen zum Speichern von Lösungsdaten in einem StorageItem-Objekt finden Sie unter Erstellen und Speichern von Daten im Lösungsspeicher.

Beispiel

Im folgenden Codebeispiel in Visual Basic für Applikationen zeigt, wie das StorageItem -Objekt zum Speichern privater Lösungsdaten verwendet. Sie speichert die Daten in eine benutzerdefinierte Eigenschaft ein StorageItem -Objekt im Ordner Posteingang. Im folgenden werden die Schritte beschrieben:

  1. Das Codebeispiel ruft Folder.GetStorage, um ein vorhandenes StorageItem -Objekt mit dem Betreff "My Private Storage" im Posteingang zu erhalten. Wenn keine StorageItem diesen Betreff bereits vorhanden ist, erstellt GetStorage ein StorageItem -Objekt mit diesem Thema.

  2. Wenn das StorageItem-Objekt neu erstellt wird, wird das Codebeispiel eine benutzerdefinierte Eigenschaft "Order Number" für das Objekt erstellt. Beachten Sie, dass "Order Number" ein-Eigenschaft des ausgeblendetes Element im Posteingang.

  3. Im Codebeispiel wird dann "Order Number" ein Wert zugewiesen und speichert das StorageItem -Objekt.

Sub AssignStorageData() 
 
 Dim oInbox As Outlook.Folder 
 
 Dim myStorage As Outlook.StorageItem 
 
 
 
 Set oInbox = Application.Session.GetDefaultFolder(olFolderInbox) 
 
 ' Get an existing instance of StorageItem, or create new if it doesn't exist 
 
 Set myStorage = oInbox.GetStorage("My Private Storage", olIdentifyBySubject) 
 
 ' If StorageItem is new, add a custom property for Order Number 
 
 If myStorage.Size = 0 Then 
 
 myStorage.UserProperties.Add "Order Number", olNumber 
 
 End If 
 
 ' Assign a value to the custom property 
 
 myStorage.UserProperties("Order Number").Value = 100 
 
 myStorage.Save 
 
End Sub

Siehe auch

StorageItem-Objekt

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.