2013-07-25 97 views
1

我寫這段代碼的其他郵箱和PST的顯示名稱:在Outlook 2003中,得到的

Set oOutlook = CreateObject("Outlook.Application") 
Set oMAPI = oOutlook.GetNameSpace("MAPI") 
WScript.Sleep 3000 

For Each oStore In oMAPI.Stores 
    If oStore.ExchangeStoreType = 1 Then 
     MsgBox oStore.DisplayName 
    End If 
Next 

它給了我所有其他郵箱的名稱在Outlook 2010如果我設置Exchange存儲鍵入3,然後它將返回所有當前使用的PST名稱。

我想實現相同的Outlook 2003(只有顯示名稱以及)。

不幸的是,在2003年,存儲對象不存在。

我搜索了互聯網,發現了相當複雜的「解決方案」。我試圖重現其中的一些,但從來沒有真正成功。 所有我想要的是附加的郵箱和PST文件顯示的名字......就是這樣,在Outlook 2003中

現在我的問題:
- 這是可能的下XP/Outlook 2003中本地實現的呢?
- 如果PST文件太複雜,我還可以使用額外的郵箱

我提前感謝您!這對我來說是一件非常重要的事情:) 所以我很感激任何幫助。

我並不需要一個完整的解決方案,但也許有人與知識,可以幫助我與關鍵事實(對象,方法...)

我讀過有關包裝等,但它的東西,我不能承擔使用(只有免費),我從來沒有用過。我過我的手指,它與Oultook的本地功能:)

回答

0

我覺得這個作品是你想要什麼:

Sub GetMailBoxNames() 

    Dim olApp As Outlook.Application 
    Dim olNS As Outlook.NameSpace 
    Dim i As Long 

    Set olApp = Outlook.Application 
    Set olNS = olApp.GetNamespace("MAPI") 

    For i = 1 To olNS.Folders.Count 
    Debug.Print olNS.Folders(i).name 
    Next i 

End Sub 
相關問題