Автор | Сообщение |
|
| постоянный участник
|
Пост N: 914
Зарегистрирован: 12.09.06
|
|
Отправлено: 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
|
|
|
Ответов - 3
[только новые]
|
|
|
| постоянный участник
|
Пост N: 165
Зарегистрирован: 27.01.07
|
|
Отправлено: 27.09.09 14:24. Заголовок: Что-то типа: ShellEx..
Что-то типа: ShellExecute( 0, "open", "rundll32.exe", "url.dll,FileProtocolHandler mailto:" + cAdress + "?subject="+cTitle+"&body="+cText, , 1 )
|
|
|
|
| постоянный участник
|
Пост N: 1729
Зарегистрирован: 12.09.06
|
|
Отправлено: 04.04.11 19:46. Заголовок: PSP пишет: Что-то т..
PSP пишет: цитата: | Что-то типа: ShellExecute( 0, "open", "rundll32.exe", "url.dll,FileProtocolHandler mailto:" + cAdress + "?subject="+cTitle+"&body="+cText, , 1 ) |
| А как бы прикрепить файл в это письмо ?
|
|
|
|
| |
Пост N: 12
Зарегистрирован: 08.02.11
|
|
Отправлено: 05.04.11 03:11. Заголовок: в socket.lib есть CL..
в socket.lib есть CLASS TSMTP в нем есть метод METHOD AddAttach( cAttach ) Добавляет ссылку на файл, который нужно вложить в письмо, в список вложенных файлов. Возвращает Nil. я сам не пробовал. http://ssmessages.by.ru/tsocket/tsmtp.html
|
|
|
|