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を見ると、FPは常に「何もありません」です。 http://i.imgur.com/SG4dO1t.png

PS: 私は最初のコードを実行していません。ありがとうございました。

4

1 に答える 1

0

問題が解決しました！

GGG の検索を削除し、名前をハードコーディングしました。検索機能を使ってフォルダ名の変更に対応していたため、オフライン時のサーバー名は「Livelink GGG-12 (offline)」となります。

変数の 1 つでもタイプミスを犯したようです。

FP = Application.Session.Folders("Enterprise Connect").Folders("Livelink GGG-12") を設定します。

于 2014-10-03T15:29:55.990 に答える