本方法在通讯簿中新增一项。每项都有一个或多个标签 ID 值。
expression.AddAddress(TagID, Value)
expression 必需。该表达式返回一个 Application 对象。
TagID String 数组类型，必需。该参数指定新地址条目的标签 ID 值。数组中的每个元素可包含下表中的字符串之一。只有显示名称为必需的，其余项均为可选。
| 标签 ID | 说明 |
|---|---|
| PR_DISPLAY_NAME | “通讯簿”对话框中显示的姓名 |
| PR_DISPLAY_NAME_PREFIX | 称谓（例如，“Ms.”或“Dr.”） |
| PR_GIVEN_NAME | 名 |
| PR_SURNAME | 姓 |
| PR_STREET_ADDRESS | 街道地址 |
| PR_LOCALITY | 市/县或地方 |
| PR_STATE_OR_PROVINCE | 省/市/自治区 |
| PR_POSTAL_CODE | 邮政编码 |
| PR_COUNTRY | 国家/地区 |
| PR_TITLE | 职务 |
| PR_COMPANY_NAME | 公司名称 |
| PR_DEPARTMENT_NAME | 公司内部门名称 |
| PR_OFFICE_LOCATION | 办公室位置 |
| PR_PRIMARY_TELEPHONE_NUMBER | 主要电话号码 |
| PR_PRIMARY_FAX_NUMBER | 主要传真号码 |
| PR_OFFICE_TELEPHONE_NUMBER | 办公室电话号码 |
| PR_OFFICE2_TELEPHONE_NUMBER | 第二个办公室电话号码 |
| PR_HOME_TELEPHONE_NUMBER | 住宅电话号码 |
| PR_CELLULAR_TELEPHONE_NUMBER | 移动电话号码 |
| PR_BEEPER_TELEPHONE_NUMBER | BP 机号码 |
| PR_COMMENT | 地址条目的“注释”表包含的文字 |
| PR_EMAIL_ADDRESS | 电子邮件地址 |
| PR_ADDRTYPE | 电子邮件地址类型 |
| PR_OTHER_TELEPHONE_NUMBER | 其他电话号码（区别于住宅或办公室电话号码） |
| PR_BUSINESS_FAX_NUMBER | 商务传真号码 |
| PR_HOME_FAX_NUMBER | 住宅传真号码 |
| PR_RADIO_TELEPHONE_NUMBER | 无线电话号码 |
| PR_INITIALS | 缩写 |
| PR_LOCATION | 地点，格式为楼号/房间号（例如，7/3007 表示 7 号楼 3007 房间） |
| PR_CAR_TELEPHONE_NUMBER | 汽车电话号码 |
Value String 数组类型，必需。该参数指出新地址条目的值。每个元素对应于 TagID 数组的相应元素。详细内容，请参阅示例。
本示例在地址簿中添加一项。
Dim tagIDArray(0 To 3) As String
Dim valueArray(0 To 3) As String
tagIDArray(0) = "PR_DISPLAY_NAME"
tagIDArray(1) = "PR_GIVEN_NAME"
tagIDArray(2) = "PR_SURNAME"
tagIDArray(3) = "PR_COMMENT"
valueArray(0) = "Kim Buhler"
valueArray(1) = "Kim"
valueArray(2) = "Buhler"
valueArray(3) = "This is a comment"
Application.AddAddress TagID:=tagIDArray(), Value:=valueArray()