全部显示

Move 方法

将 Outlook 项目移至新文件夹中。

expression  必选。该表达式返回“应用于”列表中的一个对象。

DestFldr  必选。返回 MAPIFolder 对象的表达式。目标文件夹。

示例

本 Visual Basic for Applications 示例使用 GetDefaultFolder 返回代表默认文件夹的 MAPIFolder 对象。然后使用 Find 和 FindNext 方法查找由“Mike Nash”发送的所有邮件，并使用 Move 方法将“Mike Nash”发送的所有邮件从默认的“收件箱”文件夹移到“Personal Mail”文件夹中。

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("Personal Mail")
Set myItem = myItems.Find("[SenderName] = 'Mike Nash'")
While TypeName(myItem) <> "Nothing"
    myItem.Move myDestFolder
    Set myItem = myItems.FindNext
Wend

如果使用 VBScript，则不创建 Application 对象，而且也不能使用命名常量。本示例说明如何使用 VBScript 执行相同任务。

Set myNameSpace = Application.GetNameSpace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(6)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("Personal Mail")
Set myItem = myItems.Find("[SenderName] = 'Mike Nash'")
While TypeName(myItem) <> "Nothing"
    myItem.Move myDestFolder
    Set myItem = myItems.FindNext
Wend