Outlook VBA教程:Links属性

返回Link对象的Links集合。代表项目链接到的联系人。

expression.Links

expression  必选。该表达式返回“应用于”列表中的一个对象。

VBA示例

本 Microsoft Visual Basic/Visual Basic for Applications 示例遍历“任务”文件夹中的项目,并且在任务没有完成时显示链接到该项目的联系人数量。


Dim myOlApp As New Outlook.Application
Dim myNSpace As Outlook.NameSpace
Dim myItems As Outlook.Items
Dim myItem As Outlook.TaskItem
Dim myLinks As Outlook.Links
Dim myLink As Outlook.Link
Set myNSpace = myOlApp.GetNamespace("MAPI")
Set myItems = myNSpace.GetDefaultFolder(olFolderTasks).Items
For x = 1 To myItems.Count
    If TypeName(myItems.Item(x)) = "TaskItem" Then
        Set myItem = myItems.Item(x)
        Set myLinks = myItem.Links
        Msg = myItem.Subject & " has " & myLinks.Count & " links."
        If myItem.Complete = False Then
            If MsgBox(Msg, vbOKCancel) = vbCancel Then Exit For
        End If
    End If
 Next x

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


Set myNSpace = Application.GetNamespace("MAPI")
Set myItems = myNSpace.GetDefaultFolder(13).Items
For x = 1 To myItems.Count
    If TypeName(myItems.Item(x)) = "TaskItem" Then
        Set myItem = myItems.Item(x)
        Set myLinks = myItem.Links
        Msg = myItem.Subject & " has " & myLinks.Count & " links."
        If myItem.Complete = False Then
            If MsgBox(Msg, 1) = 2 Then Exit For
        End If
    End If
 Next

上页:Outlook VBA教程:Left属性 下页:Outlook VBA教程:Location属性

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

Outlook VBA教程:Location属性 Outlook VBA教程:Locked属性
Outlook VBA教程:LockUserChanges属性 Outlook VBA教程:MailingAddress属性
Outlook VBA教程:MailingAddressCity属性 Outlook VBA教程:MailingAddressCountry属性
Outlook VBA教程:MailingAddressPostalCode属性 Outlook VBA教程:MailingAddressPostOfficeBox属性
Outlook VBA教程:MailingAddressState属性 Outlook VBA教程:MailingAddressStreet属性
Outlook VBA教程:Manager属性 Outlook VBA教程:ManagerName属性
Outlook VBA教程:MarkForDownload属性 Outlook VBA教程:MeetingResponseStatus属性
Outlook VBA教程:MeetingStatus属性 Outlook VBA教程:MemberCount属性
Outlook VBA教程:Members属性 Outlook VBA教程:MessageClass属性
Outlook VBA教程:MiddleName属性 Outlook VBA教程:Mileage属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号