本方法在通讯簿中新增一项。每项都有一个或多个标签 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()