从集合中返回一个对象。下表给出了支持的集合以及返回的对象类型。
集合 | 返回的对象 |
---|---|
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