Опьять почтовый клиент......

[sQx]

Как передать в почтовый клиент (по умолчанию) текст что бы оно с нового рядка писало... Например:

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

АААААААА
АААААА
А
АА
А
А
ААААА

[Alfa]

А можете во время открытия темы писать вопрос пояснее?

[sQx]

Я просто уже задавал этот вопрос..... так что я думал что....
Ладно....

Слушайте:
1. У меня есть прога...
2. На форме есть тексБОКС и КНОПКА
3. У текстБОКСЕ есть екст - мультЛАЙН....
4. Когда нажимаешь на кнопку создаеться новое письмо (с темой, например: ХЕЛЛО) - туда передаеться текст (почтовый клиент по умолчанию (реестр))
5. Нужно что бы текст был не в один рядок....

[SSecurity]

Привет ...

Вот какие у меня мысли есть по этому поводу...

Если ты отправляешь писмот через SMTP -там всё по барабану, т.е. ты вводишь DATA а затем пишешь всё что хошь ... в одну строку сервак сам всё распознает ....

Теперь если ты записываешь данные в реестр ...
то .. тут чего-то я немного не понял что ты имеешь в виду ... попробуй распознать текст по наличию vbCrLf
По схеме ищешь - заменяешь ...

[sQx]

Мне нужно просто запустить почтовый клиент по умолчанию и передать туда тектс ну новое письмо...

[alibek]

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

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL As Long = 1&
...
ShellExecute hWnd, vbNullString, "mailto:bill.gates@microsoft.ru?subject=test%20letter&body=Line1%0D%0ALine2%0D%0ALine3", vbNullString, vbNullString, SW_SHOWNORMAL


[sQx]

Большое спасибо!

[sQx]

Сорри...
Я проверил оно принимает только 255 символов как мне сделать что бы больше принимало..

[alibek]

Тогда универсального решения не существует.
Если почтовый клиент MS Outlook, то юзай CDO, можно создать любое письмо. А если Outlook Express, то он почему-то не хочет работать сервером, там остается только запустить его и посылать ему SendKeys.