Word VBA教程:AddAddress方法

本方法在通讯簿中新增一项。每项都有一个或多个标签 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 数组的相应元素。详细内容,请参阅示例。

VBA示例

本示例在地址簿中添加一项。


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号