Форум: "Сети";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Вниз
Отправка 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:
и что Вы сделали? (у меня тоже самое)
← →
Александр из Минска © (2003-11-17 16:24) [12]to dataMaster:
а что в host писать?
← →
dataMaster © (2003-11-17 16:43) [13]Имя сервера
← →
AlexVas (2004-01-08 20:36) [14]Fay (17.11.03 14:34) [10]
Как файл приатачить
← →
Alibaba © (2004-01-12 10:41) [15]А как получить email?
С помощью Indy это можно сделать?
← →
Плохиш_ (2004-01-12 10:47) [16]>AlexVas (08.01.04 20:36) [14]
&file=
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.035 c
