将 Outlook 项目移至新文件夹中。
expression.Move(DestFldr)
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