返回或设置联系人的 Microsoft 即时消息地址。String 类型,可读写。
expression.IMAddress
expression 必选。该表达式返回 ContactItem 对象。
与 Recipients 或 To 属性不同,无法验证 IMAddress 属性是否包含有效的地址。
以下示例新建联系人,并提示用户输入联系人的“即时消息”地址。
Sub SetImAddress()
'Sets a new IM Address
Dim olApp As Outlook.Application
Dim objNewContact As ContactItem
Set olApp = Outlook.Application
Set objNewContact = olApp.CreateItem(olContactItem)
objNewContact.IMAddress = _
InputBox("Enter the new contact's Microsoft Instant Messenger address")
objNewContact.Save
End Sub