Сообщество Чайников

Вопрос

Что бы послать почту, пишу:

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)
Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Sub Label1_Click()
'Выяываем маил с адресом
Call ShellExecute(0&, "Open", "mailto:" + "ЛОГИН@СЕРВЕР.ru" + "?Subject=" + "'Здесь описана тема…'" + "?body=" + "'Сдесь
нужно написать сообщение'", "", "", SW_SHOWNORMAL)
End Sub

Но в почтовой программе текст 'Сдесь нужно написать сообщение' выводится там где вводится тема. Помогите сделать так чтобы в текстовом поле ияображалать текст

Ответ

Все дело в том что у вас получается след вызываемая комманда:
mailto:ЛОГИН@СЕРВЕР.ru?Subject=описана тема…?body=Сдесь нужно написать сообщение
Между Subject и Body должен быть знак (& — амперсанд), а не ? иначе ничего работать небудет!

Александр