2013-05-01 5 views
0

즐겨 찾는 폴더의 관련 공용 폴더에 액세스하는 방법을 찾으려고합니다. 목표는 자동으로 공용 폴더로 메일을 이동하는 것입니다. 이 폴더가 즐겨 찾기로 정의 된 경우 성능 문제로 인해이 즐겨 찾기 폴더로 메일을 이동하고 싶습니다.Oulook 스크립트 - 즐겨 찾기 폴더의 루트 폴더를 찾는 방법

관련 공용 폴더 경로는 Outlook의 즐겨 찾기 폴더 속성 (폴더를 마우스 오른쪽 단추로 클릭 한 다음 속성/요약 : 공용 폴더의 경로가 표시됨)에 표시되지만 해당 폴더에 액세스 할 수있는 방법을 찾을 수 없습니다. 정보를 프로그래밍 방식으로 ...

나는 정말로 도움을 주실 것입니다!

많은 감사,

기욤

답변

0

나는 올바른 공용 폴더에 당신을 데려해야하는 항목의 ID로 변환 ExtendedPropertyDefinition

new ExtendedPropertyDefinition(0x7C02, MapiPropertyType.Binary); 

를 사용하여 PR_FAV_PUBLIC_SOURCE_KEY에 액세스하기 위해 EWS를 사용했다. 세부 : 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); 
+0

는 당신에게 당신을위한 대단히 감사합니다 도움. 초보자이며 VBA에서 스크립팅을하고 있습니다. 이 코드는 C입니다. Visual Basic에서이를 스크립팅하는 방법을 알고 있습니까? 감사합니다 – user2341018

+0

죄송합니다, EWS 및 VBA에 대해 많이 알지 못합니다. 하지만 PropertyAccessor를 통해 확장 속성에 계속 액세스 할 수 있습니다. 자세한 내용은 ... http://msdn.microsoft.com/de-de/library/office/ff869865.aspx –

-1

하위 예 1()

문자열로 문자열 어둡게 strline으로 희미한 strFinal가

"D : \ textfile.txt"입력으로 입력 # 1 W 하일 EOF (1) 거짓 라인 입력 1, strline 을 = 만약 렌 (strline)> 24 다음 strFinal = strFinal + ModifyColumn (strline) 그렇지 strFinal = strFinal + strline + vbCrLf 최종면 나아가 다 strFinal = strFinal 닫기 # 1

열기 : # 1 인쇄 # 1, strFinal 닫기 # 1 종료 하위

기능 ModifyColumn (ByVal의 strInput으로 문자열) 문자열로 출력은 "D \는 TextFile.txt",363,210 어둡게 arrString() 문자열로 어둡게 strOutput 문자열 바와은 그대로 제 2 열을 연결하여 '열 arrString = 스플릿 (strInput, vbTab) 분할' strOutput = arrString (0) + vbTab + arrString (1) 에 값을 100을 더한다.last3Digit = 오른쪽 (requirevalue, 3) (2)' If left (requirevalue, 3) = "max"Then Newvalue = vbTab + "OTPxxxxxx"& last3Digit & "|" & 우 (arrString (3), 렌 (arrString (3)) - InStr이 (1, arrString (3), "|")) + vbCrLf 그렇지 이 NEWVALUE = vbTab + arrString (3) + vbCrLf 최종면 strOutput = strOutput & Newvalue 'strOutput = strOutput + 문자열입니다.트림 (STR (CDbl에는 (왼쪽 (arrString (3), 렌 (arrString (2)) - 1)) + 100)) + "$"+ vbCrLf ModifyColumn = strOutput 최종 기능