Visual Basic 6.0 - Mail

Hello Dmitry!

12 Sep 04 09:10, Dmitriy Kozyrev wrote to Dmitry Bogdanov:



[покусано]

Hа самом деле по поводу алгоритмов можно еще посоветовать (если есть желание
покопаться в C++) - там уже есть реализация и Base64, и UUE и Quoted Printable.
Как раз сейчас копаю в этом направлении (хочу немного .mht помучить). Копать
надо в сторону функций из ATL: base64encode/decode/getrequiredlength etc.,
uuedencode/decode etc., qpencode/decode etc (см. MSDN). Обвязка на C++ пишется
достаточно быстро - правда, если хоть что-то в нем понимаешь (я доолго копался -
часов 6, наверное - пока простой command line base64 encoder/decoder собрал :))
Просто создаешь проект - win32 dll, #include "atlenc.h" и вперед... Если совсем
никак, то, как доделаю, могу выслать мылом .dll с реализацией этого всего
(правильную работоспособность не гарантирую - до сих пор не выяснил, где у меня
переполнение при переделке unix-овых md5 и sha1 вылезает на больших файлах - кто
знает, что здесь вылезет? :)).

Bye! Max Egorov

* Origin: Please believe me, the river told me... (2:5030/846.26)


Hello, All

Вот задался такой задачкой: хочется чтобы пользователь мог по клавише (напpимеp +) пеpейти на следующее сообщение в деpеве.

Я уже втоpой день ломаю голову как оpганизовать последовательный обход узлов с захватом всех подчинённых, но не получается.
Максимум чего добился: сделал пpостую пpоцедуpу. Если у текущего элемента несколько чилдpенов то пpоход по всем с заходом в каждую ветку. Hо если у какждого последующего элемента подчинённый элемент только один, тогда после пpохода двух таких элементов я не могу веpнуться на уpовень выше двух элементов...
В общем запутался я совсем. Понимаю что нужно чеpез pекуpсию. Hо что-то не ваpит у меня сегодня (вчеpа тоже не ваpила.. :( ).

Пpимеp кода:
======= Сгpызено моей собакой ========
With SabjList
If .SelectedItem.key = "Root" Then Exit Sub

.Nodes.Item(.SelectedItem.Children(1)).Selected = True
ElseIf .SelectedItem.Index < .SelectedItem.Parent.Children.Count Then
.Nodes.Item(.SelectedItem.Parent.Children.Item _
(.SelectedItem.Index + 1)).Selected = True
Else
.Nodes.Item(.SelectedItem.Parent).Parent.Children _
(.SelectedItem.Parent.Index + 1).Selected = True
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
End If
End With
======= Сгpызено моей собакой ========

Пpи пpевышении .Nodes.Item(.SelectedItem.Parent).Parent.Children.Count
на подчёpкнутом вылетаю по ошибке.
Как быть? Может кто-нибудь подскажет?

Всех благ тебе, All.
ICQ 177792013 FmMB200016700
*Hа уши давит* - 09 - That's Rock N' Roll
* Origin: http://www.r-demidow.front.ru/FBR/index.htm (2:5015/112.35)






отпpавить


Спаси Господи!

Если нужно через Outlook (не через Express), то сложного ничего нет:
смотри http://www.relib.com/articles/article.asp?id=183. Возможно TheBat
также экспортирует свои объекты,
но я ею не никогда не пользовался... Express объекты не экспортирует и
сделать через VB с ним ничего нельзя.
Хотя, по моему, смысла использовать клинета нет, лучше все же через SMTP.

Макс


* Origin: Demos online service (2:5020/400)


Hello, Max!




Так задумано. Если тебе нужно, чтобы менялся - переделай его из UDT в класс
из публичных переменных.
* Origin: We like our Mike and this is why: (2:5080/1003.16)





(напpимеp


пеpеходим

Если

деpева, а
Есть пример в книге Петрусоса рекурсивный обход дерева, давай мыло ,
зашлю..


* Origin: Demos online service (2:5020/400)




Доброго времени суток, Gribkov!
Mon, 6 Sep 2004 09:41:05 +0000 (UTC) Вы писали to Ruslan Demidow:




В чём тогда сложности? Winsock отменили? ;)
Там всего 6 основных команд:




DATA

Вот здесь идёт само письмо
(два vbcrlf отделяют само письмо от его заголовка)

. (точка в начале строки)
QUIT

P.S. Пример?
--
____________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru
* Origin: Алт (2:5020/400)


Hello Terekhin.

04 сен 04 20:37, you wrote to me:




ну тогда фиг у тебя что получится - нет общих правил для почтовых программ,
тебе придется под каждый клиент подгонять свою прогу. это гемор.
ничего бессовестного вообще-то нет.



руль где-то рядом.

np: Winamp is DEAD
* Origin: (2:5020/829.610)


Мы где-то виделись, Ruslan?


















Положи на форму MSComCtlLib.TreeView и вставь в ее модуль этот код:

============================== Смотри ниже ===============================
Option Explicit

Private Sub Form_Load()
Dim r As Node
With TreeView1
.Style = tvwTreelinesPlusMinusText
.LineStyle = tvwRootLines
.Indentation = ScaleX(24, vbPixels)
End With
With TreeView1.Nodes
.Add , , "Root", "Root"
.Add !Root, tvwChild, "Sub1", "Sub1"
.Add !Root, tvwChild, "Sub2", "Sub2"
.Add !Root, tvwChild, "Sub3", "Sub3"
.Add !Sub1, tvwChild, "Sub11", "Sub11"
.Add !Sub1, tvwChild, "Sub12", "Sub12"
.Add !Sub1, tvwChild, "Sub13", "Sub13"
.Add !Sub2, tvwChild, "Sub21", "Sub21"
.Add !Sub2, tvwChild, "Sub22", "Sub22"
.Add !Sub2, tvwChild, "Sub23", "Sub23"
.Add !Sub3, tvwChild, "Sub31", "Sub31"
.Add !Sub3, tvwChild, "Sub32", "Sub32"
.Add !Sub3, tvwChild, "Sub33", "Sub33"
.Add !Sub11, tvwChild, "Sub111", "Sub111"
.Add !Sub11, tvwChild, "Sub112", "Sub112"
.Add !Sub11, tvwChild, "Sub113", "Sub113"
.Add !Sub12, tvwChild, "Sub121", "Sub121"
.Add !Sub12, tvwChild, "Sub122", "Sub122"
.Add !Sub12, tvwChild, "Sub123", "Sub123"
.Add !Sub13, tvwChild, "Sub131", "Sub131"
.Add !Sub13, tvwChild, "Sub132", "Sub132"
.Add !Sub13, tvwChild, "Sub133", "Sub133"
End With
End Sub

Private Sub TreeView1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyAdd And Shift = 0 Then
Dim n As Node
Set n = TreeView1.SelectedItem
If n Is Nothing Then Exit Sub


Set n = n.Child
Else
If Not n.Next Is Nothing Then
Set n = n.Next
Else
Do
Set n = n.Parent
If n Is Nothing Then Exit Do
If Not n.Next Is Nothing Then
Set n = n.Next
Exit Do
End If
Loop
End If
End If

Set TreeView1.SelectedItem = n
End If
End Sub
============================== Смотри выше ===============================

Дерево обходится нажатием плюса на цифровой клавиатуре.

Всего хорошего!
Дмитрий Козырев aka Master

P.S. ТСД рулит! :)

* Origin: Дорогу осилит идущий. (2:5023/11.148)






отпpавить


Спаси Господи!

Если нужно через Outlook (не через Express), то сложного ничего нет:
смотри http://www.relib.com/articles/article.asp?id=183. Возможно TheBat
также экспортирует свои объекты,
но я ею не никогда не пользовался... Express объекты не экспортирует и
сделать через VB с ним ничего нельзя.
Хотя, по моему, смысла использовать клинета нет, лучше все же через SMTP.

Макс


* Origin: Demos online service (2:5020/400)


Hello, Max!




Так задумано. Если тебе нужно, чтобы менялся - переделай его из UDT в класс
из публичных переменных.
* Origin: We like our Mike and this is why: (2:5080/1003.16)