Отправляет email-рассылки с помощью сервиса Sendsay

Эффективный Интернет.

  Все выпуски  

Эффективный Интернет. 30


Информационный Канал Subscribe.Ru

Эффективный Интернет.

Выпуск 29.

Мышь на ладони.

 

Уникальные CD. Школа Своего Дела. Партнерская программа.

Бесплатный Интернет. Секреты Супер Хакера.

 

 

Всем привет!
После приобретения КПК Rover PC 5+ пробудилось желание читать.

Но, осталась небольшая проблема. Не удается найти софт для синхронизации почтовой программы The Bat с наладонником.

Outlook - без проблем. Но не люблю я его, до спазмов в горле. Кому интересны доводы за и против - почитайте архив рассылки, там есть весьма жаркая дискуссия по этому поводу :-)

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

Программа под гордым названием ABC Amber The Bat! Converter. Действительно, судя по заявленным возможностям, программа стоящая. Конвертирует письма в уйму всяких форматов, PDF HTML DOC TXT, присутствуют, что очень радует.

Единственное, что омрачает счастье - программа платная, но это не беда, я бы заплатил, так как поисков реальных кряков не дал ничего, кроме пары мертвых ссылок.

 

Но и купить ее реально не возможно. Все ссылки мертвые, похоже, проект загнулся.

В связи с этим, если у кого завалялось это добро, прошу отписать мне. Буду страшно рад.

---------------------------------------------------------------------------------------------------------------------------------------

Секс, Деньги и Власть - реальные вызовы, которые принимает от мира Настоящая личность.
Секс, Деньги и Власть - сферы, определяющие Успех. Достичь реального успеха помогут техники НЛП и эриксоновского гипноза.

Узнайте все о манипулировании и жестких переговорных технологиях!

Не будьте щепкой в чужих руках!

Обретите реальную силу воздействия на людей, познайте себя, свои силы!

Оградите себя и своих близких от чужой злой воли!

Поймите все о сущности рекламы, которой Вас ежедневно пичкают по ТВ, не будьте ее жертвой!

Научитесь понимать своего любимого человека, узнайте, действительно ли Вас любят!

Станьте, наконец, человеком действия! Пора начинать жить!

Время уходит! Не опоздай!

-----------------------------------------------------------------------------------------------------------------------------------------

Еще одна полумера расположена по адресу http://files.nobat.ru/uploads/1096298669/Bat2PPC_0.9a.zip . Все здорово, но не конвертируются в почтовик письма в HTM формате, что не есть гут. Бяда да и только.

 

Есть еще один скриптик, который конвертирует письма из Бата в Оутлук,  потом синхронизация производится обычным способом, через Active Sync.

Не плохо.

Откуда качал - не помню.

Поэтому даю листинг программы:

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

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

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

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

'4. Путь к папке в ящике The Bat!, из которой нужно экспортировать сообщения.
Const strTheBatFolderName = "Inbox"

'5. Экспорт ТОЛЬКО непрочитанных сообщений. (1-Да/0-Нет)
Const fTheBatUnreadOnly = 0

'6. Количество секунд показа подтверждения на экспорт. (Бесконечно: -1)
Const lngPopupTimeout = 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

Set FSO = CreateObject("Scripting.FileSystemObject")

If Not FSO.FileExists(strTheBatFilePath) Then
Wscript.Echo "Файл " & strTheBatFilePath & " не обнаружен." & vbcrlf & vbcrlf & "Для изменения параметров скрипта необходимо щелкнуть" & vbcrlf & "по нему правой кнопкой мыши и выбрать пункт: 'Изменить'."
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 fTheBatUnreadOnly Then strParameters = strParameters & ";UNREAD"
strCommand = Chr(34) & strTheBatFilePath & Chr(34) & strParameters

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

lngFilesCount = fldMessageFolder.Files.Count

If lngFilesCount <> 0 Then
For Each filCurrentFile In fldMessageFolder.Files
'[Перебор всех message|START]--------------------->
Set objStream = CreateObject("ADODB.Stream")
objStream.Open
objStream.LoadFromFile filCurrentFile.Path

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

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

Set objMailItem = appOutlook.CreateItem(olMailItem)

'[Перенос свойств в MailItem|START]------>
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
objMailItem.Body = cdoMessage.TextBody
'[Перенос свойств в MailItem|FINISH]----->

objMailItem.Save
objMailItem.Move(olInboxFolder)
'[Перебор всех message|FINISH]-------------------->

filCurrentFile.Delete
Next

lngReturn = wsShell.Popup("В MS Outlook успешно экспортировано: " & lngFilesCount & " писем." & vbcrlf & vbcrlf & "Желаю приятных новостей.", -1, "Экспорт завершен", 0 + 64)
Else
lngReturn = wsShell.Popup("Писем для экспорта в MS Outlook не обнаружено.", -1, "Экспорт завершен", 0 + 48)
End if

WScript.Sleep 1000
FSO.DeleteFolder(fldMessageFolder)

Wscript.Quit

 

 

Все это копируем в блокнот, и сохраняем в файле с расширением .bat

 

 

 


 

Бесплатный Интернет. Секреты Супер Хакера.
 

КАТАЛОГ ЛУЧШИХ РАССЫЛОК:  http://www.alex-world.nm.ru/mail.htm
Скачать весь архив: http://www.alex-world.nm.ru/update/!catalog.rar
 

 

Если Вы желаете, чтобы Ваши адреса публиковались в Рассылке, указывайте это в своих письмах.

Принимаются Ваши статьи для публикации.

До скорой встречи!

Валерий zork@pochtamt.ru


http://subscribe.ru/
http://subscribe.ru/feedback/
Подписан адрес:
Код этой рассылки: inet.region.effect
Отписаться

В избранное