返回或设置联系人的完整的未解析的全名。String 类型,可读写。
expression.FullName
expression 必选。该表达式返回 ContactItem 对象。
此属性解析成 FirstName、LastName、MiddleName 和 Suffix 属性。如果解析不正确,则需要单独更改或输入。请注意,对 FirstName、LastName 或 MiddleName 或 Suffix 属性的任何更改或输入,都可能被 FullName 的后续更改或输入覆盖。
本 Visual Basic for Applications 示例使用 Restrict 方法获取所有设计“Project X”的“收件箱”项目并将它们移到“Project X”文件夹中。
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myFolder = _
myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myFolder.Items
Set myRestrictItems = myItems.Restrict _ ("[Categories] = 'Project X'")
For Each myItem In myRestrictItems
myItem.Move myFolder.Folders("Project X")
Next
如果使用 VBScript,则不创建 Application 对象,而且也不能使用命名常量。本示例说明如何使用 VBScript 执行相同任务。
Set myNameSpace = Application.GetNameSpace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(6)
Set myItems = myFolder.Items
Set myRestrictItems = myItems.Restrict _ ("[Categories] = 'Project X'")
For Each myItem In myRestrictItems
myItem.Move myFolder.Folders("Project X")
Next
本 Visual Basic for Applications 示例使用 Restrict 方法,将基于项目的 LastModificationTime 属性的筛选条件应用于联系人项目。
Public Sub ContactDateCheck()
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myContacts = myNameSpace.GetDefaultFolder(olFolderContacts).Items
Set myItems = myContacts.Restrict("[LastModificationTime] > '05/15/97'")
For Each myItem In myItems
MsgBox myItem.FullName & ": " & MyItem.LastModificationTime
Next
End Sub
以下 Visual Basic for Applications 示例除演示在筛选条件中使用变量外与上例相同。
Public Sub ContactDateCheck()
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myContacts = myNameSpace.GetDefaultFolder(olFolderContacts).Items
DateStart = #6/11/97#
DateToCheck$ = "[LastModificationTime] >= """ & DateStart & """"
Set myRestrictItems = myContacts.Restrict(DateToCheck$)
For Each myItem In myRestrictItems
MsgBox myItem.FullName & ": " & MyItem.LastModificationTime
Next
End Sub