Форматировать вывод в колонки

[MOV]

Необходимо составить мессагу (msgbox)
в форме таблички, но трабл в том, что, юзая только vbTab
и vbCrlF получается геморройно (ибо надо расчитывать сколько табов вставить, чтобы колонки не поползли (информация в них разной длинны))

col1 col2 col3 ... coln
aaaa aaaaaaa aa ... aaaaaaa
a aa aaaaaaaaaa ... aaaaaaaaaa
...............

[RayShade]

Я бы сделал форму с WebBrowser контролом, и в нем нарисовал табличку и кнопку ОК

[MOV]

Хм... прикольно, но мне потом эту мессагу по почте намылить надо

[RayShade]

Ну так что, почтовики перестали понимать формат HTML?

[MOV]

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

[MOV]

Да. Некисло там тегов то написалось (абличка в семь колонок) давлиста плотных тегов запихивать в прогу - извращение по моему .
А как сделать с WebBrowser?

[shady]

сделай таблицу например в HomeSite или Dreamviewer - ничего лишнего кроме кода не будет. html уже подзабыл, но таблица рисется тегами <tr></tr> - столбцы и <td></td> - строки

[MOV]

Хорошо, доупстим, сдлеаю. Как запихнуть эти теги в тело почтового сообщения, чтобы получаетель увидел не теги а саму табличку?

[tyomitch]

сделай таблицу например в HomeSite или Dreamviewer - ничего лишнего кроме кода не будет. html уже подзабыл, но таблица рисется тегами <tr></tr> - столбцы и <td></td> - строки

Наоборот.

[Konst_One]

Код: Выделить всё

<table border=1 cellspacing=0 cellpadding=0>
<tr>
   <td>Колонка 1</td><td>Колонка 2</td><td>Колонка 3</td>
</tr>
<tr>
   <td>1</td><td>2</td><td>3</td>
</tr>
</table>

[MOV]

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

И еще. Как теги засунуть в brwWebBrowser?

[MOV]

По последнему вопросу понял, что можно скинуть в текстовик, а потом навигейтом подцепить его, но может можно как-то без создания файла?

И про почту тоже вопрос открыт пока.

[shady]

Наоборот.

писал по памяти... ошибся
2 MOV
а послать как вложение .html?
и еще можно попробовать послать самому себе сообщение из Outlook и посмотреть свойства. там будет примерно следующее:

------=_NextPart_001_0009_01C6D298.4E8B1EC0
Content-Type: text/plain;
charset="windows-1251"
Content-Transfer-Encoding: quoted-printable

думаю что надо искать в сторону Content-Type: text/plain

[Konst_One]

Content-Type: text/plain
неверно

Content-Type: text/html;
charset="windows-1251"
Content-Transfer-Encoding: quoted-printable

[shady]

Konst_One
да, спасбио за поправку.

[AntonGV]

Чтобы загрузить свой код в WebBrowser

Код: Выделить всё

Private Sub Command1_Click()
Dim strHTMLText As String
On Error GoTo WaitAwhileLonger
  brwWebBrowser.Navigate "about:blank"
  strHTMLText = Text1.Text  ' твой HTML код
  brwWebBrowser.Document.body.innerhtml = strHTMLText
  Exit Sub
 
WaitAwhileLonger:
  Debug.Print Hex(err.Number), err.Description
  DoEvents
  Resume
End Sub

[MOV]

Пробую отправлять с
Content-Type: text/plain
приходит с тем же типом (теги не подхватывает)
когда отправляю с
Content-Type: text/html
приходит с
Content-Type: multipart/alternative
и тоже не подхватывает теги

[Konst_One]

а галочка у клиента почтового в настройках стоит, чтобы он мог читать письма в HTML-формате?

[MOV]

а где она в аутлюке? я думаю, стоит.

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

[shady]

выложи сюда свое сообщение которое отсылаешь

[MOV]

вот такой допустим текст отсылаю:

<table border=1 cellspacing=0 cellpadding=0>
<tr>
<td>Колонка 1</td><td>Колонка 2</td><td>Колонка 3</td>
</tr>
<tr>
<td>1</td><td>2</td><td>3</td>
</tr>
</table>

[shady]

а
<HTML>
<BODY>
</BODY>
</HTML>
где?
откуда он узнает что это html ?

[tyomitch]

движок IE прекрасно справляется с HTML без тегов <HTML> и <BODY>: не веришь -- проверь

[Konst_One]

а где она в аутлюке? я думаю, стоит.

Read all messages in plain text - нужно галку снять на закладке Read в опциях OE