如何使用VBA將電子郵件發送到Entreprise Connect文件夾？

我需要發送電子郵件給企業從outlook連接（內容服務器）。電子郵件進入已在Content Server中創建的特定項目文件夾。用戶點擊電子郵件並單擊鏈接，他們輸入項目編號，然後找到LiveLink ID，創建路徑並將電子郵件發送到那裏。一切都用於與LiveLink完美協作，但是自從最近對Content Server進行更改後，沒有任何效果。如何使用VBA將電子郵件發送到Entreprise Connect文件夾？

dim FP as mapifolder 
dim folder as mapifolder 

Set FP = Application.GetNamespace("MAPI").Folders("LiveLink") 
'Set FP = Application.GetNamespace("MAPI").Folders("Entreprise Connect") //not working 
For Each folder In FP.Folders 
     If fold.name Like "*GGG*" Then //We search for our division's folder within livelink 
      Set FP = folder 
      Exit For 
     End If 
    Next 

For i = 0 To UBound(path) - 1 
     Set FP = FP.Folders(path(i)) //path(0) = "ProjectXXX/", path(1) = "Budget/", etc 
    Next 
End If

因此，此代碼用於與LiveLink一起使用，現在我們使用Entreprise Connect，但它沒有。查看圖片，我不知道它是否被認爲是一個文件夾或其他東西，在調試過程中，每當我查看它時，FP總是「無」。 http://i.imgur.com/SG4dO1t.png

PS：我沒有做第一個代碼，我只是想讓它現在工作。謝謝。

來源

2014-10-02 trixrabbit

問題解決！

我刪除了對GGG的搜索並對其名稱進行了硬編碼。當離線服務器名稱變爲「Livelink GGG-12（離線）」時，搜索引擎用於處理文件夾名稱更改。

看來，我在一個變量中也犯了一個錯字錯誤。

Set FP = Application.Session.Folders（「Enterprise Connect」）。Folders（「Livelink GGG-12」）

來源

2014-10-03 15:29:55 trixrabbit

如何使用VBA將電子郵件發送到Entreprise Connect文件夾？

回答

相關問題