Outlook VBA教程:Item方法

从集合中返回一个对象。下表给出了支持的集合以及返回的对象类型。

集合 返回的对象
Actions Action
AddressEntries AddressEntry
AddressLists AddressList
Attachments Attachment
Exceptions Exception
Explorers Explorer
Folders MAPIFolder
Inspectors Inspector
Items Outlook项目
Links Link
OutlookBarGroups OutlookBarGroup
OutlookBarShortcuts OutlookBarShortcut
Pages Page
Panes Pane
PropertyPages PropertyPage
Selection Outlook 项目
SyncObjects SyncObject
Recipients Recipient
UserProperties UserProperty
其他 Microsoft Outlook集合 代表指定集合中单个对象的类属 Object。

expression.Item(Index)

expression  必选。该表达式返回有效的集合对象。

Index  必选,Variant 类型。或者是对象的索引号,或者是用于匹配集合中对象的默认属性的值。

VBA示例

本 Visual Basic for Applications 示例返回默认“收件箱”文件夹中的第二个MailItem对象(假设“收件箱”中至少已存在两个 MailItem对象)。


Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myFolder = _
    myNameSpace.GetDefaultFolder(olFolderInbox)
Set mySecondItem = myFolder.Items.Item(2)

本 Visual Basic for Applications 示例从Actions集合中返回“转发”动作。


Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector.CurrentItem
Set myAction = myItem.Actions.Item("Forward")

本示例从Folders集合中返回MAPIFolder对象。


Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myFolders = myNameSpace.Folders
Set myFolder = myFolders.Item("Public Folder")

本 Visual Basic for Applications 示例也从 Folders集合中返回 MAPIFolder对象。


Set myOlApp = CreateObject("Outlook.Application")
Set myFolders = _
    myOlApp.ActiveExplorer.CurrentFolder.Folders
Set myFolder = myFolders.Item("Project X")

本 Visual Basic for Applications 示例创建联系人,返回它的空Pages集合,添加三个自定义页面,然后从集合中返回第一个自定义页面。


Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olContactItem)
Set myPages = myItem.GetInspector.ModifiedFormPages
myPages.Add "One"
myPages.Add "Two"
myPages.Add "Three"
Set myPage = myPages.Item("One")

本 Visual Basic for Applications 示例创建一封邮件,添加四个Recipient对象,然后从新创建的Recipients集合中返回第三个收件人。


Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set myRecipients = myItem.Recipients
myRecipients.Add("Rich Andrews")
myRecipients.Add("Robin Hjellin")
myRecipients.Add("Meng Phua")
myRecipients.Add("Kim Yoshida")
msgbox myRecipients.Item(3).name

上页:Outlook VBA教程:IsWordMail方法 下页:Outlook VBA教程:Logoff方法

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

Outlook VBA教程:Logoff方法 Outlook VBA教程:Logon方法
Outlook VBA教程:MarkComplete方法 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方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号