Используйте классы интерполяции Outlook.
Предполагая, что вы знаете расположение файла .pst, вы можете использовать Системы.ИО.FileInfo может, см. пример здесь: [Dotnetperls]
Возможно, это поможет найти путь к файлу .pst: winapi - как найти полный путь к файлу Outlook. pst? - переполнение стека[^]
При использовании приведенного выше примера обязательно добавьте Microsoft.Офис.Взаимодействие.Прогноз сначала ссылка, а затем вы должны импортировать пространство имен, см. объяснение здесь: Прогноз не объявлен[^]
Сэр,
Он показывает ошибку
Частная Суб PstFiles()
Dim f как MAPIFolder
Для каждого f в сеансе.Папки
Отлаживать.Печать Ф.Поле storeid
Отлаживать.Print GetPathFromStoreID(f. StoreID)
Рядом е
Конец Подводной Лодки
Публичная функция GetPathFromStoreID(sStoreID As String) As String
При Ошибке Возобновить Следующий
Тусклый я как долго
Дим регулировалось как долго
Dim sRes как строка
Для i = 1 до Len (sStoreID) Шаг 2
сдсв = сдсв &амп; ЧР("&амп;ч" &ампер; средний$(sStoreID, я, 2))
Следующий
sRes = Replace(sRes, Chr(0), vbNullString)
первичное размещение акций = инстр(сдсв, ":\")
Если закон тогда
GetPathFromStoreID = Right$(sRes, (Len(sRes)) - (lPos-2))
Конец, Если
Конечная Функция
??- что это за сообщение об ошибке ?
Тип 'MAPIFolder' не определен
"Сессия" не объявляется.
"Public ReadOnly Property Right As Integer" не имеет параметров, и его возвращаемый тип не может быть индексирован.
Ссылка на элемент, не являющийся общим, требует Ссылки на объект.