0

お気に入りフォルダーに関連付けられているパブリック フォルダーにアクセスする方法を探しています。目標は、メールを自動的にパブリック フォルダーに移動することです。このフォルダがお気に入りとして定義されている場合、パフォーマンス上の問題からメールをこのお気に入りフォルダに移動したいと考えています。

関連するパブリック フォルダー パスは、Outlook のお気に入りのフォルダー プロパティで簡単に表示されます (フォルダーを右クリックし、プロパティ/概要: パブリック フォルダーのパスがそこに表示されます) が、プログラムで情報にアクセスする方法が見つかりません.. .

助けていただければ幸いです。

どうもありがとう、

ギヨーム

4

2 に答える 2

0

ExtendedPropertyDefinition を使用して、EWS を使用して PR_FAV_PUBLIC_SOURCE_KEY にアクセスしました。

new ExtendedPropertyDefinition(0x7C02, MapiPropertyType.Binary);

これをエントリ ID に変換すると、正しいパブリック フォルダが表示されます。詳細: http://social.technet.microsoft.com/Forums/de-DE/exchangesvrdevelopmentlegacy/thread/e75940c6-b53b-4260-b12c-6541e4ff8a69

さらに、次のようなお気に入りの特定のプロパティがあります。

    private ExtendedPropertyDefinition eProp_LevelMask = new ExtendedPropertyDefinition(0x7D03, MapiPropertyType.Integer);
    private ExtendedPropertyDefinition eProp_ShortcutType = new ExtendedPropertyDefinition(0x7D09, MapiPropertyType.String);
    private ExtendedPropertyDefinition eProp_FavParent = new ExtendedPropertyDefinition(0x7D02, MapiPropertyType.Binary);

と

    private ExtendedPropertyDefinition eProp_ShortcutName = new ExtendedPropertyDefinition(0x7C00, MapiPropertyType.String);
    private ExtendedPropertyDefinition eProp_ShortcutAlias = new ExtendedPropertyDefinition(0x7C01, MapiPropertyType.String);
于 2013-05-06T14:05:07.167 に答える
-1

Sub example1() Dim strFinal As String Dim strline As String

Open "D:\textfile.txt" For Input As #1 While EOF(1) = False Line Input #1, strline If Len(strline) > 24 Then strFinal = strFinal + ModifyColumn(strline) Else strFinal = strFinal + strline + vbCrLf End If Wend strFinal = strFinal Close #1

"D:\textfile.txt" を開き、出力として #1 印刷 #1、strFinal #1 を閉じる End Sub

Function ModifyColumn(ByVal strInput As String) As String Dim arrString() As String Dim strOutput As String '列を分割 arrString = Split(strInput, vbTab) '最初の 2 列をそのまま連結 strOutput = arrString(0) + vbTab + arrString(1) + vbTab + arrString(2) ' 100$ を column3 に追加 requirevalue = Left(arrString(3), InStr(1, arrString(3), "|") - 1) last3Digit = Right(requirevalue, 3) If Left(requirevalue, 3) = "max" Then Newvalue = vbTab + "OTPxxxxxx" & last3Digit & "|" & Right(arrString(3), Len(arrString(3)) - InStr(1, arrString(3), "|")) + vbCrLf Else Newvalue = vbTab + arrString(3) + vbCrLf End If strOutput = strOutput & Newvalue 'strOutput = strOutput + 文字列.

于 2014-11-10T21:13:08.943 に答える