Outlook VBA教程:Move方法

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

expression.Move(DestFldr)

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

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

VBA示例

本 Visual Basic for Applications 示例使用GetDefaultFolder 返回代表默认文件夹的MAPIFolder对象。然后使用FindFindNext方法查找由“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

上页:Outlook VBA教程:MarkComplete方法 下页:Outlook VBA教程:MoveTo方法

Outlook VBA教程:Move方法:相关链接

Outlook VBA教程:MoveTo方法 Outlook VBA教程:OnStatusChange方法
Outlook VBA教程:PickFolder方法 Outlook VBA教程:Post方法
Outlook VBA教程:PrintOut方法 Outlook VBA教程:PublishForm方法
Outlook VBA教程:Quit方法 Outlook VBA教程:Remove方法
Outlook VBA教程:RemoveMember方法 Outlook VBA教程:RemoveMembers方法
Outlook VBA教程:RemoveStore方法 Outlook VBA教程:Reply方法
Outlook VBA教程:ReplyAll方法 Outlook VBA教程:Reset方法
Outlook VBA教程:ResetColumns方法 Outlook VBA教程:Resolve方法
Outlook VBA教程:ResolveAll方法 Outlook VBA教程:Respond方法
Outlook VBA教程:Restrict方法 Outlook VBA教程:Save方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号