Большой Воронежский Форум Mobile

Ситуация такая - надо сконвертировать из аутлука в эксель.
при конвертации в "соответствии полей" исходного и конечного файлов нет созданных мною полей.
поля, которые созданы пользователем (мной), в конечном экселевском файле отсутствуют. Все стандартные присутствуют.
короче, надо чтобы было.
плиииииииз, хэлп. куда жмакнуть? [Ответ]

А что сконвертировать то? [Ответ]

Есть громадный список задач. Есть стандартные поля: категория,тема, срок, дата начала, важность, готовность, состояние, объем работ, реально затрачено, расходы и др. И есть в этих задачах созданные мною поля (текстовые).
И всё это дело надо иметь в excel.
вот. [Ответ]

delaya, к Железному форуму какое это отношение имеет-то? :-)
Не знаю, как стандартными средствами, с помощью VBA это примерно так

Sub export()
Dim excApp As Object, exSheet As Object
Dim olApp As Outlook.Application, objNameSpace As Outlook.NameSpace
Dim objTasks As Object, curItem As Outlook.Items, curTask As Outlook.TaskItem, curProp As Object
Dim cur_row As Long, cur_col As Long, count As Long, count1 As Long
Set olApp = CreateObject("Outlook.Application")
Set objNameSpace = olApp.GetNamespace("MAPI")
Set objTasks = objNameSpace.GetDefaultFolder(olFolderTasks)
Set excApp = GetObject(, "excel.Application")
excApp.Workbooks.Add
Set exSheet = excApp.ActiveWorkbook.Worksheets.Add
With exSheet
.cells(1, 1) = "Name"
cur_col = 2
Set curTask = objTasks.Items(1)
For count1 = 1 To curTask.UserProperties.count
Set curProp = curTask.UserProperties.Item(count1)
.cells(1, cur_col) = curProp.Name
cur_col = cur_col + 1
Next count1
cur_row = 2
For count = 1 To objTasks.Items.count
Set curTask = objTasks.Items(count)
.cells(cur_row, 1) = curTask.Subject
cur_col = 2
For count1 = 1 To curTask.UserProperties.count
Set curProp = curTask.UserProperties.Item(count1)
.cells(cur_row, cur_col) = Cstr(curProp)
cur_col = cur_col + 1
Next count1
cur_row = cur_row + 1
Next count
End With
End Sub

Последовательность:
1. Открыть Excel
2. Открыть Outlook, начать alt+f11
3. Отрыть Microsoft Outlook Object -ThisOutlookSession и в правом окне вставить всю лабуду, написанную мелким шрифтом и нажать F5
4. В Excel сделается лист с названиями задач и всеми доп. полями
Кака потом совместить этот лист и уже экспортированный не надо объяснять? :-)
П.Ц. Если не заработает сразу - нормально. Я попробовал на Outlook 2000 и 2-х задачах (с 2-мя доп.полями) [Ответ]

2AleksandrD, спасибо
по поводу вашего вопроса - отношение самое прямое. "Здесь обсуждаем всё, что связано с компьютерами : программы, железо и всё остальное." [Ответ]

По поводу вопроса - сорри, был невнимателен :-) , судил по названию раздела.
П.Ц. Получилось хоть? [Ответ]

Сообщение от AleksandrD:
П.Ц. Получилось хоть?

не.. выдает только инфу из одного (первого в порядке отображения) поля ну это.. все равно спасибо [Ответ]

Сообщение от delaya:
не.. выдает только инфу из одного (первого в порядке отображения) поля ну это.. все равно спасибо

За шож тогда? Задачу надо добить :-)
Вообще-то странно, у меня только не по порядку эти поля выдает, но добавил еще 2 штуки - работает
Outlook какой версии? [Ответ]