0

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

4

1 回答 1

0

问题解决了！

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

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

设置 FP = Application.Session.Folders("Enterprise Connect").Folders("Livelink GGG-12")

于 2014-10-03T15:29:55.990 回答