Форум » GUI » Как вставить текст письма ? » Ответить

Как вставить текст письма ?

Andrey: В примере 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

Ответов - 3

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

Andrey: PSP пишет: Что-то типа: ShellExecute( 0, "open", "rundll32.exe", "url.dll,FileProtocolHandler mailto:" + cAdress + "?subject="+cTitle+"&body="+cText, , 1 ) А как бы прикрепить файл в это письмо ?

SADSTAR4: в socket.lib есть CLASS TSMTP в нем есть метод METHOD AddAttach( cAttach ) Добавляет ссылку на файл, который нужно вложить в письмо, в список вложенных файлов. Возвращает Nil. я сам не пробовал. http://ssmessages.by.ru/tsocket/tsmtp.html




полная версия страницы