StorageItem.Save-Methode (Outlook)
Das StorageItem -Objekt wird gespeichert.
Syntax
Ausdruck. Retten
Ausdruck Eine Variable, die ein StorageItem-Objekt darstellt.
Hinweise
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:
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.
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.
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
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.