Outlook) (MailItem.Move 方法
將 Microsoft Outlook 專案移至新資料夾。
語法
expression。 Move( _DestFldr_ )
表達 代表 MailItem 物件的 變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| DestFldr | 必要 | Folder | 會傳回 Folder 物件的運算式。 目的資料夾。 |
傳回值
Object值，表示已移至指定資料夾的專案。
範例
這個 Visual Basic for Applications (VBA) 範例會使用 GetDefaultFolder 傳回代表預設資料夾的 Folder 物件。 然後，它會使用 Find 和 FindNext 方法來尋找 Dan Wilson 所傳送的所有郵件，並使用 Move 方法將 Dan Wilson 傳送的所有電子郵件訊息從預設的 [收件匣 ] 資料夾移至 [個人郵件] 資料夾。 如要準確無誤地執行這個範例，請以有效的寄件人名稱取代 'Dan Wilson'，然後確定 [收件匣] 下有一個稱為「個人郵件」的資料夾。 請注意， myItem 宣告為 Object 類型，使其可以代表所有類型的 Outlook 專案，包括會議邀請和工作要求專案。
Sub MoveItems()
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.Folder
Dim myDestFolder As Outlook.Folder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = Application.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("Personal Mail")
Set myItem = myItems.Find("[SenderName] = 'Dan Wilson'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
End Sub
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。