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.

HinwBemerkungeneise

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

CONVERSATION-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.