[архив] Microsoft Outlook 2003 и более ранние версии

[Blast]

У юзера слишком большой размен файла *.pstнасколько большой?
Скажите еще какие плагины/дополнения установлены, возможно программы интегрирующиеся в Outlook, например спамфильтры, антивирусы, программы для отправки факсов и т.п.

[yuri4]

Приветствую. Подскажите, плз, как в "Microsoft Office Outlook 2003" создать правило для сообщений, которое позволяло бы не загружать с сервера письма от определённого адресата? Правил в Outlook 2003 море, но того, что надо не вижу.

[Blast]

В Outlook все правила действую только для полученных с сервера сообщений, насколько я помню. Для обработки сообщений на сервере вроде не предусмотрена возможность.

Впредь пожалуйста не используйте существующую тему для вопроса если он к ней не относится.

[mzc]

Помогите разобраться: у меня начальник любит раздавать поручения (задачи, посланные другим) всем подряд (поэтому все нужные люди сидят на оутлуке, exch нет- разные конторы и прочее..). Иногда не проставляется выполнение/завершение задачи, хотя текстовый отчет приходит.
И бывает абсолютно противоположная ситуация- пользователь еще не выполнил поручение(и не проставил выполнение), а начальнику уже приходит только текстовое подтверждение выполнения этой задачи - вследствие чего начинаются притензии о неумении пользоваться оутлуком. Галочки "держать обновленную копию" и "отправлять отчет" при создании устанавливаются

[voler]

Объем 2 гигабайта.
Плагинов нет и дополнений тоже, установлен только Lingvo.

Я думаю на вирусы прогнать все.

[Blast]

volerОбъем 2 гигабайта.это по сути критическая масса для файла базы - необходимо уменьшить, наверняка проблема исчезнет.

[Djedai]

как обеспечить синхронизацию задач outlook(ms office)

например Павел - дал задание Игорю у себя на компе, а задание появилось в outlooke у Игоря на компе
как это реализовать? Какие спрособы?

[voler]

Я сделал по старинке создал еще один файл данных *.pst и перенес туда письма с 2003 по 2005. Отключил этот файл данных и записал на диск, но файл данных как весил так и весит 2-га. Что то я не совсем понимаю, почему?

[voler]

Привет всем.

Скажите есть надстройка для outlook 2003, которая позволит восстановить данные из файла данных Бата?

Сам спросил сам и ответил. Вот программа для конвертации Aid4Mail

Aid4Mail 1.2 - Easily Convert, Export, Migrate, and Archive your Email

Aid4Mail is a user-friendly Windows tool that helps you migrate your email messages to a different mail client, export them for viewing through Internet Explorer, MS Excel, or a database, convert them to extract or re-insert attachments, and archive them to save space or for compliance with legal requirements. It supports most popular mail client programs and processes all messages without losing any information, including those with file attachments and embedded contents like pictures and background images. Unlike other migration methods, Aid4Mail can also export message status information such as "unread", "read", "replied", and "forwarded". Aid4Mail produces results quickly and with great accuracy.

* System Requirements
* Windows 95/98/2000/2003/NT4/ME/XP
* 32 MB of RAM, 3 MB disk space
* Pentium or AMD processor

Supported Mail Formats:
* Extended MAPI systems:
o Office Outlook (all versions except MS Outlook 97)
o Windows Messaging / Exchange Client, etc.,
* Outlook Personal Storage files (*.pst),
* Outlook MSG files (*.msg),
* Outlook Express (versions 4, 5, and 6),
* EML message files (*.eml),
* MHT Web Archive files (*.mht),
* Mozilla mailbox files (including Netscape and Thunderbird),
* Generic mailbox files (mbox, Berkeley mail format, BSD mail format, Unix mail format),
* Eudora mailbox files (*.toc and *.mbx),
* PocoMail mailbox files (*.idx and *.mbx),
* Opera mailbox files (*.mbs)
* Forte Agent mailbox files (*.idx),
* The Bat! mailbox files (*.msb and *.tbb),
* Pegasus mailbox files (*.pmi, *.pmm, and *.cnm),
* Calypso and Courier archive files,
* PMMail message files (*.msg),
* FoxMail mailbox files (*.box),
* maildir folders (local copies),
* Mailbag Assistant mailbox files (*.mbg),
* E-mail Examiner mailbox files (*.pmx),
* and Aid4Mail ZIP archives (*.zip).

Aid4Mail can convert/export mail to:
* Outlook Personal Storage files (*.pst),
* Outlook MSG files (*.msg) - only if source is Extended MAPI mail,
* EML message files (*.eml),* MHT Web Archive files (*.mht) - linked from an HTML index page or an MS Excel Workbook file,
* MHT files with tab-delimited data file for import into a database,
* Mozilla mailbox files (including Netscape and Thunderbird),
* Generic mailbox files (mbox, Berkeley mail format, BSD mail format, Unix mail format,
* PocoMail mailbox files (*.mbx),
* and Aid4Mail ZIP archives (*.zip).
скачать (http://ru.shareware-download.org/download/38463/Aid4Mail_Setup.exe)

Прога хороша, но проблема в Триальной версии. Ограничений много. Если кто знает аналоги пишите.

Вот нарыл скрипт, но он не работает. Если кто может отладить его сделайте, это у меня не получилось

'==================================================================>
' TBExport v.0.01 beta 3
'------------------------------------------------------------------>
' Скрипт для экспорта писем из The Bat! в MS Outlook
'------------------------------------------------------------------>
' Автор:
' Исаев Роман (isaevra@mail.ru)
' http://www.mhalf.newmail.ru/ (Правильный сайт для мужчин!)
' Версия:
' 0.01 beta 3 [16.03.2003]
' Последнюю версию скрипта можно взять здесь:
' Или написав мне письмо по адресу: isaevra@mail.ru.
' Примечание:
' Для использования скрипта необходимо присвоить значения восьми
' переменным расположенным ниже по тексту, между этими маркерами:
' [Параметры|START] и [Параметры|FINISH]
'
' Скрипт предназначен для экспорта почтовых сообщений из программы
' The Bat! в программу MS Outlook. Поддерживается перенос прикрепленных
' файлов (Attachments). Полная синхронизация, тоже, возможна, но требует
' времени на написание и отладку программы.
'
' Вы можете изменять и распространять текст скрипта как пожелаете, при
' условии сохранения ссылки на автора. [FREEWARE]
'
' Пожелания и сообщения об ошибках приветствуются.
'
' Если Вы хотите экспортировать письма, одновременно из множества папок The Bat!,
' сделайте несколько копий скрипта и в каждую копию пропишите параметры
' экспорта каждой из Вам необходимых папок.
'
' Как водиться в среде программистов, в случае взрыва Вашего компьютера,
' автор никакой ответственности не несет. Хмм... Попробовал бы сказал это,
' например, мостостроитель или конструктор самолетов! :)
' 0.01 beta 2 [03.12.2002]:
' - Добавлена возможность выбора папки MS Outlook, в которую будут
' помещаться письма импортированные из The Bat!.
' - Теперь перед экспортом письма, проверяется его наличие в MS Outlook.
' Если такое письмо уже существует, экспорт не производится.
' - Добавлены таймауты показа для всех сообщений. Удобно при использовании
' автоматического запуска скрипта: на экране не остается лишних окон.
' 0.01 beta 3 [16.03.2003]:
' - Добавлена возможность удаления сообщений из The Bat! после их успешного экспорта.
' - Добавлена возможность экспорта только тех сообщений, которые имеют (или не имеют)
' установленный статус: ПРОЧТЕНИЯ, ОТВЕТА или ПАРКОВКИ.
' - Добавлена возможность экспортировать присоединенные файлы (Attachments).
' - Добавлен возможность поиска удаленных сообщений в MS Outlook и при их обнаружении,
' удаление этих сообщений и из The Bat!.
'
'[Параметры|START]==================================================>

'1. Полный путь к файлу: thebat.exe
Const strTheBatFilePath = "C:\Program Files\The Bat!\thebat.exe"

'2. Название ящика The Bat! из которого будет произведен экспорт.
Const strTheBatMailBoxName = "admin@z-tec.ru"

'3. Пароль ящика The Bat! (если ящик не защищен паролем оставляем пустую строку: "").
Const strTheBatFolderPassword = ""

'4. Путь к папке в ящике The Bat!, из которой нужно экспортировать сообщения. Например: "Inbox\Подписка\Мобильные устройства" (По умолчанию: "")
Const strTheBatFolderName = "C:\Documents and Settings\vsinyaev\Application Data\The Bat!\admin@z-tec.ru\Почта Катюшки\Z-tec"

'5. Имя папки в MS Outlook, в которую будут помещены сообщения (данная папка должна входить в папку 'Входящие'). Например: "Inbox\Подписка\Безопасность". (По умолчанию: "")
Const strOutlookFolderName = "Inbox"

'6. Экспорт сообщений в зависимости от их статуса ПРОЧТЕНИЯ. (0-Экспорт всех/1-Экспорт прочитанных/2-Экспорт непрочитанных)
Const lngTheBatReadStatus = 0

'7. Экспорт сообщений в зависимости от их статуса ОТВЕТА. (0-Экспорт всех/1-Экспорт отвеченных/2-Экспорт неотвеченных)
Const lngTheBatReplayStatus = 0

'8. Экспорт сообщений в зависимости от их статуса ПАРКОВКИ. (0-Экспорт всех/1-Экспорт паркованных/2-Экспорт непаркованных)
Const lngTheBatParkStatus = 0

'9. Выполнять экспорт присоединенных файлов (Attachments). (0-Нет/1-Да)
Const fExportAttachments = 1

'10. Удаление из The Bat! всех успешно экспортированных писем (0-Нет/1-Да)
Const fDeleteMessagesAfterExport = 0

'11. Удаление из The Bat! писем обнаруженных в корзине MS Outlook (0-Нет/1-Да)
Const fDeleteMessagesOLDeleted = 1

'12. Количество секунд показа подтверждения на экспорт. (Бесконечно: -1)
Const lngPopupTimeout = 10

'13. Количество секунд показа сообщения о результатах работы. (Бесконечно: -1)
Const lngFinishTimeout = 10

'[Параметры|FINISH]==================================================>

Set wsShell = CreateObject("WScript.Shell")
lngReturn = wsShell.Popup("Вы хотите выполнить экспорт сообщений из The Bat! в MS Outlook?" & vbcrlf & vbcrlf & "Для изменения параметров скрипта необходимо щелкнуть" & vbcrlf & "по нему правой кнопкой мыши и выбрать пункт: 'Изменить'." & vbcrlf & "Далее требуется прописать необходимые значения." & vbcrlf & vbcrlf & "Автоматическое продолжение через: " & lngPopupTimeout & " сек.", lngPopupTimeout, "Подтверждение", 1 + 32)
If lngReturn = 2 Then Wscript.Quit

If strTheBatMailBoxName = "" Then
lngReturn = wsShell.Popup("Не указано название ящика в программе The Bat!, из которого необходимо произвести экспорт писем." & vbcrlf & "Необходимо задать значение переменной: strTheBatMailBoxName" & vbcrlf & vbcrlf & "Для изменения параметров скрипта необходимо щелкнуть" & vbcrlf & "по нему правой кнопкой мыши и выбрать пункт: 'Изменить'.", -1, "Неверное название почтового ящика", 0 + 48)
Wscript.Quit
End If

Set FSO = CreateObject("Scripting.FileSystemObject")

If Not FSO.FileExists(strTheBatFilePath) Then
lngReturn = wsShell.Popup("Файл " & strTheBatFilePath & " не обнаружен." & vbcrlf & vbcrlf & "Для изменения параметров скрипта необходимо щелкнуть" & vbcrlf & "по нему правой кнопкой мыши и выбрать пункт: 'Изменить'.", -1, "Неверный путь к The Bat!", 0 + 48)
Wscript.Quit
End If

Set fdrTempFolder = FSO.GetSpecialFolder(2)

strMessageFolder = fdrTempFolder.Path & "\" & FSO.GetTempName()
strMessageFolder = Left(strMessageFolder, Len(strMessageFolder)-4)
Set fldMessageFolder = FSO.CreateFolder(strMessageFolder)

strParameters = "/NOLOGO /MINIMIZE /EXIT /EXPORTU=" & Chr(34) & strTheBatMailBoxName & Chr(34) & ";F=" & Chr(34) & strTheBatFolderName & Chr(34) & ";DIR=" & strMessageFolder
If Not strTheBatFolderPassword = "" Then strParameters = strParameters & ";P=" & Chr(34) & strTheBatFolderPassword & Chr(34)

If lngTheBatReadStatus = 1 Then strParameters = strParameters & ";READ"
If lngTheBatReadStatus = 2 Then strParameters = strParameters & ";UNREAD"
If lngTheBatReplayStatus = 1 Then strParameters = strParameters & ";REPLIED"
If lngTheBatReplayStatus = 2 Then strParameters = strParameters & ";UNREPLIED"
If lngTheBatParkStatus = 1 Then strParameters = strParameters & ";PARKED"
If lngTheBatParkStatus = 2 Then strParameters = strParameters & ";UNPARKED"
If fDeleteMessagesAfterExport = 1 Then strParameters = strParameters & ";DELETE"

strCommand = Chr(34) & strTheBatFilePath & Chr(34) & strParameters

lngReturn = wsShell.Run (strCommand, 1, True)

lngFilesCount = fldMessageFolder.Files.Count

If lngFilesCount <> 0 Then

Set appOutlook = CreateObject("Outlook.Application")
Set nsOutlookNameSpace = appOutlook.GetNameSpace("MAPI")

Set olInboxFolder = nsOutlookNameSpace.GetDefaultFolder(6)
Set olFolderDeletedItems = nsOutlookNameSpace.GetDefaultFolder(3)

lngMailCount = 0
If fDeleteMessagesAfterExport = 1 Then lngCountDeletedMessages = lngFilesCount Else lngCountDeletedMessages = 0

strArray = Split(strOutlookFolderName,"\")

For i = 0 to UBound(strArray)
'Поиск необходимой папки в MS Outlook.
strCurrentFolder = strArray(i)

If i = 0 Then
If UCase(strCurrentFolder) <> "INBOX" Then
lngReturn = wsShell.Popup("Задан неверный формат пути к папке MS Outlook, в которую необходимо поместить письма." & vbCrLf & "Все письма будут помещены в папку 'Входящие'.", -1, "Неверный формат пути", 0 + 48)
Exit For
End If
Else
Set olInboxFolder = olInboxFolder.Folders(strCurrentFolder)
End If
Next

For lngCurrentFileIndex = fldMessageFolder.Files.Count To 1 Step -1
'-----[Перебор всех message|START]--------------------->

strCurrentFileName = strMessageFolder & "\" & String(8 - Len(CStr(lngCurrentFileIndex)), "0") & CStr(lngCurrentFileIndex) & ".MSG"
Set filCurrentFile = FSO.GetFile(strCurrentFileName)

Set objStream = CreateObject("ADODB.Stream")
objStream.Open
objStream.LoadFromFile filCurrentFile.Path

Set cdoMessage = CreateObject("CDO.Message")
Set cdoDataSource = cdoMessage.DataSource
cdoDataSource.OpenObject objStream, "_Stream"

strMessageID = cdoMessage.Fields("urn:schemas:mailheader:message-id")
strFilter = "[BillingInformation] = '" & strMessageID & "'"

fMessageBeDeleteNow = 0

If fDeleteMessagesOLDeleted = 1 Then
'Поиск и удаление из The Bat! сообщений обнаруженных в корзине MS Outlook.

Set objFindDelMailItem = olFolderDeletedItems.Items.Find(strFilter)
If Not objFindDelMailItem Is Nothing Then

strMessageNumber = CStr(Clng(Left(filCurrentFile.Name, Len(filCurrentFile.Name)-4)) - 1)

strDeletedFolder = strMessageFolder & "\" & FSO.GetTempName()
strDeletedFolder = Left(strDeletedFolder, Len(strDeletedFolder)-4)
Set fldDeletedFolder = FSO.CreateFolder(strDeletedFolder)

strDeletedParameters = "/NOLOGO /MINIMIZE /EXIT /EXPORTU=" & Chr(34) & strTheBatMailBoxName & Chr(34) & ";F=" & Chr(34) & strTheBatFolderName & Chr(34) & ";DIR=" & strDeletedFolder & ";DELETE" & ";START=" & strMessageNumber & ";END=" & strMessageNumber
If Not strTheBatFolderPassword = "" Then strDeletedParameters = strDeletedParameters & ";P=" & Chr(34) & strTheBatFolderPassword & Chr(34)
strDeletedCommand = Chr(34) & strTheBatFilePath & Chr(34) & strDeletedParameters

lngReturn = wsShell.Run (strDeletedCommand, 1, True)
WScript.Sleep 1000

fMessageBeDeleteNow = fldDeletedFolder.Files.Count
If fDeleteMessagesAfterExport = 0 Then lngCountDeletedMessages = lngCountDeletedMessages + fMessageBeDeleteNow

For Each filDeletedFile In fldDeletedFolder.Files
filDeletedFile.Delete
Next
FSO.DeleteFolder(strDeletedFolder)
Set fldDeletedFolder = Nothing
End If
End If

If fMessageBeDeleteNow = 0 Then

Set objFindMailItem = olInboxFolder.Items.Find(strFilter)
If objFindMailItem Is Nothing Then
'Перенос сообщения из The Bat! в MS Outlook (если текущее сообщение в MS Outlook не найдено).

Set objMailItem = appOutlook.CreateItem(olMailItem)

'-----[Перенос свойств в MailItem|START]------>
objMailItem.BillingInformation = strMessageID
objMailItem.To = cdoMessage.To
objMailItem.SentOnBehalfOfName = cdoMessage.From
objMailItem.BCC = cdoMessage.BCC
objMailItem.CC = cdoMessage.CC
objMailItem.Subject = cdoMessage.Subject
objMailItem.AlternateRecipientAllowed = True
objMailItem.HTMLBody = cdoMessage.HTMLBody
cdoMessage.AutoGenerateTextBody = True

If cdoMessage.Attachments.Count > 0 And fExportAttachments = 1 Then
'В письме присутствуют присоединенные файлы (Attachments)

objMailItem.Body = vbCrLf & cdoMessage.TextBody

strAttachmentsFolder = strMessageFolder & "\" & FSO.GetTempName()
strAttachmentsFolder = Left(strAttachmentsFolder, Len(strAttachmentsFolder)-4)
Set fldAttachmentsFolder = FSO.CreateFolder(strAttachmentsFolder)

For lngI = 1 To cdoMessage.Attachments.Count Step 1
'Добавляем присоединенные файлы (Attachments)

strAttachmentFile = cdoMessage.Attachments.Item(lngI).FileName
If strAttachmentFile = "" Then strAttachmentFile = FSO.GetTempName()

strAttachmentFilePath = strAttachmentsFolder & "\" & strAttachmentFile

cdoMessage.Attachments.Item(lngI).SaveToFile (strAttachmentFilePath)

objMailItem.Attachments.Add strAttachmentFilePath, 1, lngI, strAttachmentFile
Next

For Each filAttachmentFile In fldAttachmentsFolder.Files
filAttachmentFile.Delete
Next
FSO.DeleteFolder(strAttachmentsFolder)
Set fldAttachmentsFolder = Nothing
Else
objMailItem.Body = cdoMessage.TextBody
End If

'-----[Перенос свойств в MailItem|FINISH]----->
objMailItem.Save
objMailItem.Move(olInboxFolder)

lngMailCount = lngMailCount + 1
End If
End If

filCurrentFile.Delete

'-----[Перебор всех message|FINISH]-------------------->
Next

If lngMailCount > 0 Then
lngReturn = wsShell.Popup("В MS Outlook успешно экспортировано: " & lngMailCount & " писем." & vbcrlf & "Из The Bat! удалено: " & lngCountDeletedMessages & " писем." & vbcrlf & vbcrlf & "Желаю приятных новостей." & vbcrlf & vbcrlf & "Автоматическое продолжение через: " & lngFinishTimeout & " сек.", lngFinishTimeout, "Экспорт завершен", 0 + 64)
Else
lngReturn = wsShell.Popup("Новых писем для экспорта в MS Outlook не обнаружено." & vbcrlf & "Из The Bat! удалено: " & lngCountDeletedMessages & " писем." & vbcrlf & vbcrlf & "Автоматическое продолжение через: " & lngFinishTimeout & " сек.", lngFinishTimeout, "Экспорт завершен", 0 + 64)
End If
Else
lngReturn = wsShell.Popup("Писем для экспорта в MS Outlook не обнаружено." & vbcrlf & "Из The Bat! удалено: " & lngCountDeletedMessages & " писем." & vbcrlf & vbcrlf & "Автоматическое продолжение через: " & lngFinishTimeout & " сек.", lngFinishTimeout, "Экспорт завершен", 0 + 48)
End if

WScript.Sleep 1000

FSO.DeleteFolder(strMessageFolder)

Wscript.Quit

[voler]

Предлагаю выкладывать тут надстройки и макросы для outlook 2003 года. Вот один ресурс.

mapilab.com (http://www.mapilab.com/ru/outlook/toolbox/)

potolook.ru (http://www.potolook.ru/download/)

Как правило это платные продукты, по этому лучше всего макросы. Так как бесплатных надстроек очень мало.

[slavuta]

Здравствуйте.
По неизвестной причине Ms Office Outlook 2003 при старте выдает сообщение "Не удается запустить Microsoft Office Outlook. Файл MAPI32.DLL поврежден или имеет неверную версию. Это могло быть вызвано установкой другой почтовой программы. Переустановите Outlook". Удалось выяснить только, что сын установил Excel 2007.
Все другие оффисные программы работают.
Поиском обнаружил наличие указанного файла MAPI32.DLL в четырех местах:
C:\Windows\system32
C:\Program Files\Common Files\System\MSMAPI\1033
C:\Program Files\Common Files\System\MSMAPI\1049
C:\Program Files\Common Files\System\Mapi
Пробовал подложить файл MAPI32.DLL, взятый на другом компе, во все эти папки. Пробовал удалять его. Ничего не изменялось.
В результате деинсталлировал весь Оффис и переустановил по-новому. А воз и ныне там. И что заметил: после инсталляции этот самый файл MAPI32.DLL нигде не появился!
Помогите, пожалуйста, разобраться и получить работающий Outlook.
Спасибо.

[Petya V4sechkin]

slavuta
Надеюсь, это поможет:
Error message when you try to start Outlook 2003: "MAPI32.DLL is corrupt or the wrong version" (http://support.microsoft.com/kb/926196)
Удалите файлы:
C:\Program Files\Common Files\System\Msmapi\1033\MSMapi32.dll
C:\Program Files\Common Files\System\Msmapi\1049\MSMapi32.dll

P. S. Обратите внимание - имена несколько отличаются.

[SimSim]

При получении такого сообщения можно устранить неполадку, запустив программу из системной папки Microsoft Windows.
Чтобы запустить программу для устранения неполадки, в папке C:\windows\system32 дважды щелкните файл Fixmapi.exe.

[slavuta]

все получилось.
Огромное спасибо, друзья!

[Viper]

Я пользуюсь MSO Outlook 07, и все меня в нем устраивает, кроме одного.. когда после переустановки подключаешь заново свои базы, учетные записи почты приходится вводить заново.
У меня 4 почтовых ящика и каждый раз приходится каждый из них настраивать заново. Читал Helpы, пытался сохранять файлы, где по идее Outlook хранит настройки учетных записей почты, не помогает..
если кто-нить встречался с этой проблемой отпишитесь...

[visual_]

Подскажите как экспортировать список e-mail из Microsoft Outlook? адресная книга пуста! при создании письма и вводе 3-х символов появляется e-mail, таких e-mail очень моного накопилось, вот их я и хочу экспортировать в файл, а где они спрятаны и как это сделать пока не знаю, надеюсь на вашу помощь!

[Whitetroy]

Это автозаполнение срабатывает, мне кажется никак...

[pklujev]

Комп в домене.
Outlook настроен на EXCHANGE.
Установили на этот же комп Lotus Notes.
Перед запуском Lotus Notes заходишь на страничку какую-то, чтоб залогиниться, вводишь данные, все готово для работы Lotusа.
Но после логирования на той страничке, Outlook перестает получать почту.
Так же после этого логирования 1C перестает видеть ключ защиты в сети.

Нигде ничего не могу найти про конфликт при одновременной работе лотуса и оутлука.

Подскажите.

[Baber]

visual_Ну не ужели никак? Я тебе очень хочу помочь, но ни как не врублюсь в вопрос. У тебя есть Офис и ты работаешь с его
Outlook (Microsoft Outlook)? Сделать экспорт Адресной книги ты умеешь?

[Udaff_es]

ось винхр, outlook 2003. посоветуйте плиз в каком направлении копать, т.к. в клинике у друга (где этот глюк наблюдается) я бываю только раз в неделю и вся эта процедура может затянуться на месяцы :)