Отправка e-mail из программы....

← →
Razorblade (2003-11-17 12:30) [0]

Мастера! Есть такой вопрос. Мне из программы надо запустить почтовый клиент используемый по умолчанию, подставить атрибуты (from, to и т.д) + !САМ ВОПРОС! НЕОБХОДИМО ДОБАВИТЬ ТЕКСТ В ТЕЛО ПИСЬМА!

Пробую ShellExecute. mailto:......

Всё работает но небозможно в письме задать возврат каретки, т.е. весь текст изёт одной строкой.

Если кто делал нечто подобное или есть какие идеи - ответьте.

← →
dataMaster © (2003-11-17 12:40) [1]

Пример на Indy:
uses IdMessage, IdSMTP var LSMTP: TIdSMTP; LMsg: TIdMessage; s:string; begin LSMTP := TIdSMTP.Create(nil); LMsg := TIdMessage.Create(LSMTP); with LMsg do begin { так присоединяется какой-нибудь аттач if opendialog1.Execute then begin s := opendialog1.FileName; TIdAttachment.Create(LMsg.MessageParts, s); end; } Subject := "тема"; Recipients.EMailAddresses := "адрес получателя"; From.Text := "адрес от кого"; Body.Text := "текст письма"; end; with LSMTP do begin AuthenticationType:=atNone; Host := "host"; Connect; Send(LMsg); ShowMessage("письмо отправлено"); Disconnect; end; FreeAndNil(LMsg); FreeAndNil(LSMTP); end;

← →
Fay (2003-11-17 12:44) [2]

я бы переставил местами
ShowMessage("письмо отправлено");
и
Disconnect;

8)

← →
Razorblade (2003-11-17 13:01) [3]

Спасибо dataMaster.

Но мне не надо отправлять письмо, а надо просто создать его и вывести на редактирование...

← →
Fay (2003-11-17 13:12) [4]

А чё-нибудь типа "line1"#13#10"line2" не помогает?

← →
dataMaster © (2003-11-17 13:20) [5]

>Fay
я бы переставил местами

Согласен.

← →
Razorblade (2003-11-17 13:23) [6]

типа "line1"#13#10" - Не помогает! Вообще символы перевода строки как бы изчезают. Пробовал наверное все варианты.

← →
Fay (2003-11-17 13:32) [7]

Можно весь ShellExecute. mailto:...... ?

← →
Razorblade (2003-11-17 14:07) [8]

to Fay:

ShellExecute(handle,"OPEN",pcHar("mailto:mail@mail.ru?subject=Тема&body="вот тут и вся проблема""),"","",1);

← →
Razorblade (2003-11-17 14:22) [9]

ВСЁ !!! Разобрался. Всем спасибо... :)

← →
Fay (2003-11-17 14:34) [10]

ShellExecute(handle,"OPEN",pcHar("mailto:mail@mail.ru?subject=Тема&body="вот тут и вся%0D%0A проблема""),"","",1);

http://lattice.itep.ru/UNIX/RFC/rfc2368.html

← →
Александр из Минска © (2003-11-17 15:56) [11]

to Razorblade:
и что Вы сделали? (у меня тоже самое)

to dataMaster:
а что в host писать?

Имя сервера

← →
AlexVas (2004-01-08 20:36) [14]

Fay (17.11.03 14:34) [10]

Как файл приатачить

А как получить email?
С помощью Indy это можно сделать?

← →
Плохиш_ (2004-01-12 10:47) [16]

>AlexVas (08.01.04 20:36) [14]

&file=

Отправка e-mail из программы.... Найти похожие ветки