Conversation.GetAlwaysMoveToFolder-Methode (Outlook)
Gibt ein Folder -Objekt zurück, das den Ordner im angegebenen Zustellungsspeicher angibt, in den neu in der Unterhaltung eingehende Elemente immer verschoben werden.
Syntax
Ausdruck.
GetAlwaysMoveToFolder( _Store_ )
Ausdruck Eine Variable, die ein Conversation-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Store | Erforderlich | Store | Der Informationsspeicher, in dem der Ordner gespeichert ist, in den Unterhaltungselemente verschoben werden. |
Rückgabewert
Ein Folder -Objekt im angegebenen Informationsspeicher, in den alle neuen Elemente, die in der Unterhaltung immer verschoben werden.
Hinweise
Wenn der Store-Parameter einen Unzustellbarkeitsspeicher wie z. B. einen PST-Archivspeicher darstellt, gibt die GetAlwaysMoveToFolder-Methode ein Folder-Objekt zurück, das für Unterhaltungselemente für den Standardzustellungsspeicher gilt.
Wenn außer dem Ordner "Gelöschte Elemente " kein Ordner angegeben wurde, in den Unterhaltungselemente immer verschoben werden sollen, gibt die GetAlwaysMoveToFolder-MethodeNull (Nothing in Visual Basic) zurück.
Beispiel
Der folgende Microsoft Visual Basic for Applications (VBA) wird gezeigt, wie auf den Ordner zu finden, in dem neue Elemente, die in der Unterhaltung des ersten e-Mail-Elements im Lesebereich angezeigt immer verschoben werden. Das Codebeispiel überprüft, DemoGetAlwaysMoveToFolderob Unterhaltungen im Speicher für das ausgewählte E-Mail-Element aktiviert sind, ruft das Konversationsobjekt für dieses E-Mail-Element ab, wenn eine Unterhaltung vorhanden ist, verwendet GetAlwaysMoveToFolder , um den Ordner abzurufen, und zeigt den Ordnernamen an.
Sub DemoGetAlwaysMoveToFolder()
Dim oMail As Outlook.MailItem
Dim oConv As Outlook.Conversation
Dim oStore As Outlook.Store
' Get Item displayed in Reading Pane.
Set oMail = ActiveExplorer.Selection(1)
Set oStore = oMail.Parent.Store
If oStore.IsConversationEnabled Then
Set oConv = oMail.GetConversation
If Not (oConv Is Nothing) Then
Dim oFolder As Outlook.folder
Set oFolder = _
oConv.GetAlwaysMoveToFolder(oStore)
If Not (oFolder Is Nothing) Then
Debug.Print "MoveToFolder: " & oFolder.name
Else
Debug.Print "MoveToFolder action not set"
End If
End If
End If
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.