Отправлено: 27.09.09 12:55. Заголовок: Как вставить текст письма ?

В примере Z:\MiniGUI\SAMPLES\Advanced\AVI_Animation

есть вызов почтовой программы. Классный пример !
А как бы туда вставить еще и текст письма и прикрепить файл ?

Я переработал функцию под хХарбор:
*************************************************************
FUNCTION Send_MyMail()
LOCAL cAdress := HB_OEMTOANSI("Григорий Филатов <gfilatov@freemail.ru>")
LOCAL cTitle := HB_OEMTOANSI("Тестовая%20программа%20посылки%20почты")
LOCAL cText := HB_OEMTOANSI("Текст письма") // - Куда вставлять ?

ShellExecute( 0, "open", "rundll32.exe", "url.dll,FileProtocolHandler mailto:" + cAdress + "?subject="+cTitle, , 1 )
INKEY(20)

RETURN Nil

 Отправлено: 27.09.09 14:24. Заголовок: Что-то типа: ShellEx..

Что-то типа:
ShellExecute( 0, "open", "rundll32.exe", "url.dll,FileProtocolHandler mailto:" + cAdress + "?subject="+cTitle+"&body="+cText, , 1 )

 Отправлено: 04.04.11 19:46. Заголовок: PSP пишет: Что-то т..

PSP пишет:

цитата:

Что-то типа: ShellExecute( 0, "open", "rundll32.exe", "url.dll,FileProtocolHandler mailto:" + cAdress + "?subject="+cTitle+"&body="+cText, , 1 )

А как бы прикрепить файл в это письмо ?

 Отправлено: 05.04.11 03:11. Заголовок: в socket.lib есть CL..

в socket.lib есть CLASS TSMTP
в нем есть метод
METHOD AddAttach( cAttach )
Добавляет ссылку на файл, который нужно вложить в письмо, в список вложенных файлов.
Возвращает Nil.

я сам не пробовал.
http://ssmessages.by.ru/tsocket/tsmtp.html