Outlook VBA教程:FullName属性

返回或设置联系人的完整的未解析的全名。String 类型,可读写。

expression.FullName

expression   必选。该表达式返回ContactItem对象。

说明

此属性解析成FirstNameLastNameMiddleNameSuffix属性。如果解析不正确,则需要单独更改或输入。请注意,对 FirstName、LastName 或 MiddleName 或 Suffix属性的任何更改或输入,都可能被 FullName 的后续更改或输入覆盖。

VBA示例

本 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

上页:Outlook VBA教程:FTPSite属性 下页:Outlook VBA教程:FullNameAndCompany属性

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属性
Outlook VBA教程:HomeAddressStreet属性 Outlook VBA教程:HomeFaxNumber属性
Outlook VBA教程:HomeTelephoneNumber属性 Outlook VBA教程:HTMLBody属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号