Word) (Application.AddAddress 方法
在通訊錄中新增項目。 每個項目都具有一個或多個標記識別碼的值。
語法
運算式。AddAddress (TagID、 Value)
需要 expression。 代表 Application 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| TagID | 必要 | String array | 新地址項目的標記識別碼值。 陣列中的每個元素都可以包含 下表所列的其中一個字串。 不過，只有顯示名稱是必要的，其他項目都是選用的。 |
| 值 | 必要 | String array | 新地址項目的值。 每個元素都會對應至 TagID 陣列中的元素。 如需詳細資訊，請參閱范 例。 |
標記識別項
| 標記識別碼 | 描述 |
|---|---|
| PR_DISPLAY_NAME | Name displayed in the Address Book dialog box |
| 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 | 呼叫器電話號碼 |
| PR_COMMENT | Text included on the Notes tab for the address entry |
| 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 支援與意見反應。