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的搜索并硬编码了名称。 search fucntion用于处理文件夹名称更改，当脱机时，服务器名称变为“Livelink GGG-12（离线）”。

似乎我在其中一个变量中也犯了一个拼写错误。

设置FP = Application.Session.Folders（“Enterprise Connect”）。文件夹（“Livelink GGG-12”）

如何使用VBA向Enterprise Connect文件夹发送电子邮件？

1 个答案: