none
請問一個關於Outlook2000中通訊錄的問題? RRS feed

  • 問題

  • 大家好!
    我現在想要利用VB寫一支程式,來對OutLook2000新增一個通訊錄的目錄
    目前我已經可以利用程式來新增了,程式碼如下:
    但是,新增完之後,並無法將其目錄預設為可顯示的電子郵件通訊錄
    (在通訊錄按下右鍵,選擇摘要資料->Outlook通訊錄->有一個勾選方塊(將這個資料夾顯示為電子郵件通訊錄)
    因為我新增後,這個勾選方塊都不會自動打勾,
    所以我想請問各位大大,不知有何方法可以做到嗎?

    我有利用Debug進去看,
    如果用手動的自己進去勾選的話,
    好像若有新增的話在NameSpace.AddressLists的Item中會多出一個你所新增的名字

    請各位幫幫忙吧!
    謝謝!

    Dim myOlApp As New Outlook.Application
    Dim myNameSpace As Outlook.NameSpace
    Dim myContacts,myContactFolder As Outlook.MAPIFolder
    Dim AddressNmae As String
    AddressNmae = "Sonix_TW"
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    Set myContacts = myNameSpace.GetDefaultFolder(olFolderContacts)

    Set myContactFolder = myNameSpace.Folders(2).Folders.Add(AddressNmae, olFolderContacts)

    2006年3月15日 上午 08:12

所有回覆