page450.vbs

来自「Apress - Managing Enterprise Systems Wit」· VBS 代码 · 共 9 行

'add a new recipient to the message
Set objRecipient = objMessage.Recipients.Add

'set the display name to resolve from the Address book
objRecipient.Name = "Fred Smith"
objRecipient.Resolve ' resolve the name
'show the AddressEntry type of the resolved address.
WScript.Echo objRecipient.AddressEntry.Type & vbCrLf & objRecipient.Address