Как отправить электронное письмо в папку Entreprise Connect с VBA?

Question

Мне нужно отправить электронные письма для подключения (сервера контента) из Outlook. E-mail отправляется в определенные папки проекта, уже созданные в 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 (offline)».

Похоже, что я сделал опечатку и в одной из переменных.

Set FP = Application.Session.Folders ("Enterprise Connect"). Папки ("Livelink GGG-12")