Application.AddAddress 方法 (Word)
本方法在通讯簿中新增一项。 每项都有一个或多个标签 ID 值。
语法
表达式。AddAddress (TagID、 Value)
expression 是必需的。 一个代表 Application 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| TagID | 必需 | String array | 新地址项的标签 ID 值。 数组中的每个元素都可以包含 下表中列出的字符串之一。 只有显示名称是必需的，其余项都是可选的。 |
| 值 | 必需 | String array | 新地址项的值。 每个元素对应于 TagID 数组中的一个元素。 有关详细信息，请参阅 示例。 |
标记 ID
| 标签 ID | Description |
|---|---|
| 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 | 汽车电话号码 |
示例
本示例在通讯簿中添加一项。
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()
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。