如何使用VBA将电子邮件发送到Entreprise Connect文件夹？

Question

我需要发送电子邮件给企业从outlook连接（内容服务器）。电子邮件进入已在Content Server中创建的特定项目文件夹。用户点击电子邮件并单击链接，他们输入项目编号，然后找到LiveLink ID，创建路径并将电子邮件发送到那里。一切都用于与LiveLink完美协作，但是自从最近对Content Server进行更改后，没有任何效果。

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：我没有做第一个代码，我只是想让它现在工作。谢谢。

Answer 1

问题解决！

我删除了对GGG的搜索并对其名称进行了硬编码。当离线服务器名称变为“Livelink GGG-12（离线）”时，搜索引擎用于处理文件夹名称更改。

看来，我在一个变量中也犯了一个错字错误。

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