Question

本方法在通讯簿中新增一项。每项都有一个或多个标签 ID 值。

expression.AddAddress(TagID,Value)

expression 必需。该表达式返回一个 Application 对象。

TagID String 数组类型，必需。该参数指定新地址条目的标签 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_NUMBERBP 机号码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汽车电话号码

标签 ID	说明

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()