全部显示

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 类型。或者是对象的索引号,或者是用于匹配集合中对象的默认属性的值。

示例

本 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