MailItem.Move 方法 (Outlook)

将 Microsoft Outlook 项移到新文件夹中。

语法

expression。 Move( _DestFldr_ )

expression：一个表示 MailItem 对象的变量。

参数

返回值

一个 Object 值，代表已移至指定文件夹中的项目。

示例

此Visual Basic for Applications (VBA) 示例使用 GetDefaultFolder 返回代表默认文件夹的 Folder 对象。 然后，它使用 Find 和 FindNext 方法查找由何石发送的所有消息，并使用 Move 方法将何石发送的所有电子邮件从默认的收件箱文件夹移动到“个人邮件”文件夹。 要运行此示例且不出任何错误，请将“何石”替换为有效的发件人姓名，并确保收件箱下存在名为“个人邮件”的文件夹。 请注意，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

另请参阅

MailItem 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。