Outlook VBA教程:Folders属性

返回Folders集合,代表指定文件夹或命名域中所包含的全部文件夹。NameSpace对象是给定命名域的所有文件夹的根。

expression.Folders

expression  必选。该表达式返回MAPIFolder对象或 NameSpace对象。

VBA示例

本 Visual Basic for Applications 示例使用Add方法将名为“My Contacts”的文件夹添至当前(默认的)“联系人”文件夹中。


Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts)
Set myNewFolder = myFolder.Folders.Add("My Contacts")

如果使用 VBScript,则不创建Application对象,而且也不能使用命名常量。本示例说明如何使用 VBScript 执行相同任务。


Set myNameSpace = Application.GetNameSpace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(10)
Set myNewFolder = myFolder.Folders.Add("My Contacts")

本 Visual Basic for Applications 示例使用Add方法在“任务”文件夹中添加两个新文件夹。第一个文件夹“Notes Folder”中包含便笺项目,第二个文件夹“Contacts Folder”中包含联系人项目。如果这两个文件夹已经存在,将出现一信息框通知用户。


Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderTasks)
On Error GoTo ErrorHandler
Set myNotesFolder = myFolder.Folders.Add ("Notes Folder", olFolderNotes)
On Error GoTo ErrorHandler
Set myContactFolder = myFolder.Folders.Add ("Contacts Folder", olFolderContacts)
Exit Sub
ErrorHandler:
    MsgBox "This folder already exists!"

上页:Outlook VBA教程:FolderPath属性 下页:Outlook VBA教程:FormDescription属性

Outlook VBA教程:Folders属性:相关链接

Outlook VBA教程:FormDescription属性 Outlook VBA教程:Formula属性
Outlook VBA教程:FTPSite属性 Outlook VBA教程:FullName属性
Outlook VBA教程:FullNameAndCompany属性 Outlook VBA教程:Gender属性
Outlook VBA教程:GetInspector属性 Outlook VBA教程:GovernmentIDNumber属性
Outlook VBA教程:Groups属性 Outlook VBA教程:HasAttachment属性
Outlook VBA教程:Height属性 Outlook VBA教程:Hidden属性
Outlook VBA教程:Hobby属性 Outlook VBA教程:Home2TelephoneNumber属性
Outlook VBA教程:HomeAddress属性 Outlook VBA教程:HomeAddressCity属性
Outlook VBA教程:HomeAddressCountry属性 Outlook VBA教程:HomeAddressPostalCode属性
Outlook VBA教程:HomeAddressPostOfficeBox属性 Outlook VBA教程:HomeAddressState属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号