0

我正在尝试找到一种方法来访问收藏夹的关联公用文件夹。目标是将邮件自动移动到公共文件夹。在此文件夹已被定义为收藏夹的情况下，我想将邮件移动到此收藏夹以解决性能问题。

相关的公用文件夹路径在收藏夹文件夹属性中的 Outlook 上简单可见（右键单击文件夹，然后属性/摘要：公用文件夹的路径显示在那里）但我找不到以编程方式访问信息的方法.. .

我将衷心感谢您的帮助！

非常感谢，

纪尧姆

4

2 回答 2

0

我已使用 EWS 通过 ExtendedPropertyDefinition 访问 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

打开 "D:\textfile.txt" 输入为 #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 Print #1, strFinal Close #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$ 添加到第 3 列 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 回答